[commit: ghc] wip/nfs-locking: Use ||^ for OR-ing Predicates. (2d221a4)

git at git.haskell.org git at git.haskell.org
Thu Oct 26 23:47:55 UTC 2017


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

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

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

commit 2d221a4c3d8b79d3a88f8faa90b884aef5d160ea
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Sat Dec 26 22:00:44 2015 +0000

    Use ||^ for OR-ing Predicates.


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

2d221a4c3d8b79d3a88f8faa90b884aef5d160ea
 src/Settings/Builders/GhcCabal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Settings/Builders/GhcCabal.hs b/src/Settings/Builders/GhcCabal.hs
index 17b1725..80c4f4c 100644
--- a/src/Settings/Builders/GhcCabal.hs
+++ b/src/Settings/Builders/GhcCabal.hs
@@ -80,7 +80,7 @@ bootPackageDbArgs :: Args
 bootPackageDbArgs = stage0 ? do
     path <- getSetting GhcSourcePath
     lift $ need [bootstrappingConfInitialised]
-    isGhc <- (||) <$> stagedBuilder Ghc <*> stagedBuilder GhcM
+    isGhc <- stagedBuilder Ghc ||^ stagedBuilder GhcM
     let prefix = if isGhc then "-package-db " else "--package-db="
     arg $ prefix ++ path -/- bootstrappingConf
 



More information about the ghc-commits mailing list