[commit: ghc] wip/nfs-locking: Fix lint error on doesFileExist 'config.mk'. (f63e9db)

git at git.haskell.org git at git.haskell.org
Thu Oct 26 23:53:30 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