[commit: ghc] wip/nfs-locking: Minor revision. (f5dff68)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:11:30 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/f5dff684386aaec9ed079364423524c91b5be2cd/ghc

>---------------------------------------------------------------

commit f5dff684386aaec9ed079364423524c91b5be2cd
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Sat Jan 16 23:56:57 2016 +0000

    Minor revision.
    
    [skip ci]


>---------------------------------------------------------------

f5dff684386aaec9ed079364423524c91b5be2cd
 src/Predicates.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/Predicates.hs b/src/Predicates.hs
index 497fca5..1e56993 100644
--- a/src/Predicates.hs
+++ b/src/Predicates.hs
@@ -9,15 +9,15 @@ import Expression
 
 -- | Is the build currently in the provided stage?
 stage :: Stage -> Predicate
-stage s = fmap (s ==) getStage
+stage s = (s ==) <$> getStage
 
 -- | Is a particular package being built?
 package :: Package -> Predicate
-package p = fmap (p ==) getPackage
+package p = (p ==) <$> getPackage
 
 -- | Is an unstaged builder is being used such as /GhcCabal/?
 builder :: Builder -> Predicate
-builder b = fmap (b ==) getBuilder
+builder b = (b ==) <$> getBuilder
 
 -- | Is a certain builder used in the current stage?
 stagedBuilder :: (Stage -> Builder) -> Predicate
@@ -35,11 +35,11 @@ builderGhc = stagedBuilder Ghc ||^ stagedBuilder GhcM
 
 -- | Does any of the output files match a given pattern?
 file :: FilePattern -> Predicate
-file f = fmap (any (f ?==)) getOutputs
+file f = any (f ?==) <$> getOutputs
 
 -- | Is the current build 'Way' equal to a certain value?
 way :: Way -> Predicate
-way w = fmap (w ==) getWay
+way w = (w ==) <$> getWay
 
 -- | Is the build currently in stage 0?
 stage0 :: Predicate



More information about the ghc-commits mailing list