Use ||^ for OR-ing Predicates.
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Sat, 26 Dec 2015 22:00:44 +0000 (22:00 +0000)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Sat, 26 Dec 2015 22:00:44 +0000 (22:00 +0000)
src/Settings/Builders/GhcCabal.hs

index 17b1725..80c4f4c 100644 (file)
@@ -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