20 lines
391 B
Haskell
20 lines
391 B
Haskell
{- applicative stuff
|
|
-
|
|
- Copyright 2012 Joey Hess <id@joeyh.name>
|
|
-
|
|
- License: BSD-2-clause
|
|
-}
|
|
|
|
{-# OPTIONS_GHC -fno-warn-tabs #-}
|
|
|
|
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 <$$>
|