diff options
author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2020-02-10 14:55:58 +0300 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-02-11 18:04:57 -0500 |
commit | 50e24eddbac3d3b34003ad985fe6126aa0f83e0f (patch) | |
tree | 46bb5f59d31cddc6f267083fab7448561c7e5ce6 | |
parent | 82023524ff050f26bf00be3432a97f1e537caf41 (diff) | |
download | haskell-50e24eddbac3d3b34003ad985fe6126aa0f83e0f.tar.gz |
Remove Hadrian's copy of (Data.Functor.<&>)
The function was added to base with base-4.11 (GHC 8.4)
-rw-r--r-- | hadrian/src/Hadrian/Utilities.hs | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/hadrian/src/Hadrian/Utilities.hs b/hadrian/src/Hadrian/Utilities.hs index 7419722b3f..81b76a8db5 100644 --- a/hadrian/src/Hadrian/Utilities.hs +++ b/hadrian/src/Hadrian/Utilities.hs @@ -38,6 +38,7 @@ import Control.Applicative import Control.Monad.Extra import Data.Char import Data.Dynamic (Dynamic, fromDynamic, toDyn) +import Data.Functor import Data.HashMap.Strict (HashMap) import Data.List (isPrefixOf) import Data.List.Extra @@ -283,17 +284,6 @@ buildRootRules = do BuildRoot path <- userSettingRules (BuildRoot "") return path --- | A version of 'fmap' with flipped arguments. Useful for manipulating values --- in context, e.g. 'buildRoot', as in the example below. --- --- @ --- buildRoot <&> (-/- "dir") == fmap (-/- "dir") buildRoot --- @ -(<&>) :: Functor f => f a -> (a -> b) -> f b -(<&>) = flip fmap - -infixl 1 <&> - -- | Given a 'FilePath' to a source file, return 'True' if it is generated. -- The current implementation simply assumes that a file is generated if it -- lives in the 'buildRoot' directory. Since most files are not generated the |