haskell - bugfix