8ea5f3ff99
Eliminated some dead code. In other cases, exported a currently unused function, since it was a logical part of the API. Of course this improves the API documentation. It may also sometimes let ghc optimize code better, since it can know a function is internal to a module. 364 modules still to go, according to git grep -E 'module [A-Za-z.]+ where'
18 lines
355 B
Haskell
18 lines
355 B
Haskell
{- 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 <$$>
|