Added a new operator to Utils (>.>, the flipped version of <.<)

2008-06-02 14:09:33 +00:00 · 2008-06-02 14:09:33 +00:00 · 59e0922263
commit 59e0922263
parent 0adbdda126
1 changed files with 3 additions and 0 deletions
--- a/common/Utils.hs
+++ b/common/Utils.hs
@ -198,6 +198,9 @@ liftF f x = lift (f x)
 (<.<) :: Monad m => (b -> m c) -> (a -> m b) -> (a -> m c)
 (<.<) f1 f0 x = f0 x >>= f1

+-- | The <.< operator, flipped
+(>.>) :: Monad m => (a -> m b) -> (b -> m c) -> (a -> m c)
+(>.>) = flip (<.<)

 -- | A size 3 version of the standard uncurry function.
 uncurry3 :: (a -> b -> c -> d) -> (a,b,c) -> d