diff options
| -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 |