[Haskell-beginners] fix