[Haskell] intent-typing