Fix Haskell expression
Typo