diff options
Diffstat (limited to 'Utility/Applicative.hs')
-rw-r--r-- | Utility/Applicative.hs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/Utility/Applicative.hs b/Utility/Applicative.hs new file mode 100644 index 0000000..fce3c04 --- /dev/null +++ b/Utility/Applicative.hs @@ -0,0 +1,16 @@ +{- applicative stuff + - + - Copyright 2012 Joey Hess <id@joeyh.name> + - + - License: BSD-2-clause + -} + +module Utility.Applicative where + +{- Like <$> , but supports one level of currying. + - + - foo v = bar <$> action v == foo = bar <$$> action + -} +(<$$>) :: Functor f => (a -> b) -> (c -> f a) -> c -> f b +f <$$> v = fmap f . v +infixr 4 <$$> |