[Haskell] help with some basic code that doesn't work