Fix Haskell function declaration