[Haskell] arrows