summaryrefslogtreecommitdiff
path: root/hadrian
diff options
context:
space:
mode:
authorÖmer Sinan Ağacan <omeragacan@gmail.com>2020-02-10 14:55:58 +0300
committerMarge Bot <ben+marge-bot@smart-cactus.org>2020-02-11 18:04:57 -0500
commit50e24eddbac3d3b34003ad985fe6126aa0f83e0f (patch)
tree46bb5f59d31cddc6f267083fab7448561c7e5ce6 /hadrian
parent82023524ff050f26bf00be3432a97f1e537caf41 (diff)
downloadhaskell-50e24eddbac3d3b34003ad985fe6126aa0f83e0f.tar.gz
Remove Hadrian's copy of (Data.Functor.<&>)
The function was added to base with base-4.11 (GHC 8.4)
Diffstat (limited to 'hadrian')
-rw-r--r--hadrian/src/Hadrian/Utilities.hs12
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