From d9af8bac5eb7836a3c90e37e870fd73d30b841fd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 29 Mar 2014 23:10:52 -0400 Subject: initial check-in too young to have a name --- Utility/Applicative.hs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 Utility/Applicative.hs (limited to 'Utility/Applicative.hs') diff --git a/Utility/Applicative.hs b/Utility/Applicative.hs new file mode 100644 index 00000000..64400c80 --- /dev/null +++ b/Utility/Applicative.hs @@ -0,0 +1,16 @@ +{- applicative stuff + - + - Copyright 2012 Joey Hess + - + - Licensed under the GNU GPL version 3 or higher. + -} + +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 <$$> -- cgit v1.2.3