[commit: ghc] wip/nfs-locking: Add custom predicate builderGhc for Ghc/GhcM builders. (7ca8be7)

[git at git.haskell.org]

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

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

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

commit 7ca8be77837fed2ebb05d369996edd6ee5d72b8e
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Wed Dec 30 03:04:12 2015 +0000

    Add custom predicate builderGhc for Ghc/GhcM builders.


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

7ca8be77837fed2ebb05d369996edd6ee5d72b8e
 src/Predicates.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Predicates.hs b/src/Predicates.hs
index 28dd51a..7f590f4 100644
--- a/src/Predicates.hs
+++ b/src/Predicates.hs
@@ -1,6 +1,6 @@
 -- | Convenient predicates
 module Predicates (
-    stage, package, builder, stagedBuilder, file, way,
+    stage, package, builder, stagedBuilder, builderGhc, file, way,
     stage0, stage1, stage2, notStage0, notPackage, registerPackage, splitObjects
     ) where
 
@@ -24,6 +24,9 @@ builder b = fmap (b ==) getBuilder
 stagedBuilder :: (Stage -> Builder) -> Predicate
 stagedBuilder sb = (builder . sb) =<< getStage
 
+builderGhc :: Predicate
+builderGhc = stagedBuilder Ghc ||^ stagedBuilder GhcM
+
 file :: FilePattern -> Predicate
 file f = fmap (any (f ?==)) getOutputs