[commit: ghc] wip/nfs-locking: Fix lint error on doesFileExist 'config.mk'. (f63e9db)
git at git.haskell.org
git at git.haskell.org
Fri Oct 27 00:11:14 UTC 2017
Repository : ssh://git@git.haskell.org/ghc
On branch : wip/nfs-locking
Link : http://ghc.haskell.org/trac/ghc/changeset/f63e9db131bfd9860db988b01d4a581a6541d796/ghc
>---------------------------------------------------------------
commit f63e9db131bfd9860db988b01d4a581a6541d796
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date: Sat Jan 16 12:16:29 2016 +0000
Fix lint error on doesFileExist 'config.mk'.
>---------------------------------------------------------------
f63e9db131bfd9860db988b01d4a581a6541d796
src/Rules/Gmp.hs | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/Rules/Gmp.hs b/src/Rules/Gmp.hs
index 61a0a6f..ec14b36 100644
--- a/src/Rules/Gmp.hs
+++ b/src/Rules/Gmp.hs
@@ -2,6 +2,8 @@ module Rules.Gmp (
gmpRules, gmpBuildPath, gmpObjects, gmpLibraryH, gmpDependencies
) where
+import qualified System.Directory as IO
+
import Base
import Expression
import GHC
@@ -80,7 +82,7 @@ gmpRules = do
-- twice -- think how this can be optimised (shall we solve #18 first?)
-- TODO: this is a hacky optimisation: we do not rerun configure of
-- integerGmp package if we detect the results of the previous run
- unlessM (doesFileExist $ gmpBase -/- "config.mk") $ do
+ unlessM (liftIO . IO.doesFileExist $ gmpBase -/- "config.mk") $ do
args <- configureIntGmpArguments
runConfigure (pkgPath integerGmp) envs args
More information about the ghc-commits
mailing list