On 10 May 2011 09:47, Andrew Butterfield <andrew.butterfi...@cs.tcd.ie> wrote:
> Why not indeed ?
> (-->) = flip (.)
> f = Main.id --> show --> (++ " = message received") --> putStrLn

-- (>>>) :: Category cat => cat a b -> cat b c -> cat a c

import Control.Category ( (>>>) )
f = Main.id >>> show >>> (++ " - message received") >>> putStrLn

_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to