Fixed haskell behavior.