[Haskell] Broken monad laws