
10 May
2011
10 May
'11
3:53 a.m.
On 10 May 2011 09:47, Andrew Butterfield
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