[commit: ghc] wip/nfs-locking: Minor revision. (11f78b1)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:12:38 UTC 2017


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

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

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

commit 11f78b18b914bb72e1f1cff75cadc9d7c4012ac2
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Tue Jan 19 12:02:52 2016 +0000

    Minor revision.
    
    [skip ci]


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

11f78b18b914bb72e1f1cff75cadc9d7c4012ac2
 src/Settings/Packages/Rts.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Settings/Packages/Rts.hs b/src/Settings/Packages/Rts.hs
index e41e2bf..f67b709 100644
--- a/src/Settings/Packages/Rts.hs
+++ b/src/Settings/Packages/Rts.hs
@@ -20,9 +20,9 @@ rtsConf = pkgPath rts -/- targetDirectory Stage1 rts -/- "package.conf.inplace"
 
 rtsLibffiLibraryName :: Action FilePath
 rtsLibffiLibraryName = do
-    use_system_ffi <- flag UseSystemFfi
-    windows <- windowsHost
-    case (use_system_ffi, windows) of
+    useSystemFfi <- flag UseSystemFfi
+    windows      <- windowsHost
+    case (useSystemFfi, windows) of
       (True , False) -> return "ffi"
       (False, False) -> return "Cffi"
       (_    , True ) -> return "Cffi-6"



More information about the ghc-commits mailing list