2014-03-30 03:10:52 +00:00
|
|
|
{- applicative stuff
|
|
|
|
|
-
|
|
|
|
|
- Copyright 2012 Joey Hess <joey@kitenet.net>
|
|
|
|
|
-
|
2014-05-10 14:05:28 +00:00
|
|
|
- License: BSD-2-clause
|
2014-03-30 03:10:52 +00:00
|
|
|
-}
|
|
|
|
|
|
|
|
|
|
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 <$$>
|
