Haskell part of case splitting working!