git-annex/Utility/Applicative.hs

{- 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 <$$>
pointlessness 2012-06-29 14:00:05 +00:00			`{- applicative stuff`
			`-`
update my email address and homepage url 2015-01-21 16:50:09 +00:00			`- Copyright 2012 Joey Hess <id@joeyh.name>`
pointlessness 2012-06-29 14:00:05 +00:00			`-`
relicense general utility library code to BSD Omitted a couple of files what have had significant contributions from others. 2014-05-10 14:01:27 +00:00			`- License: BSD-2-clause`
pointlessness 2012-06-29 14:00:05 +00:00			`-}`

explict export lists 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' 2019-11-21 19:38:06 +00:00			`module Utility.Applicative (`
			`(<$$>),`
			`) where`
pointlessness 2012-06-29 14:00:05 +00:00
			`{- 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 <$$>`