[Haskell] Newbie: fix