[commit: ghc] wip/nfs-locking: Switch to isWindows (88a7b4e)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 01:00:34 UTC 2017


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

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

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

commit 88a7b4e31616f06ea9c0f75d3565ae11936009e0
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Thu Sep 28 23:49:12 2017 +0100

    Switch to isWindows


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

88a7b4e31616f06ea9c0f75d3565ae11936009e0
 src/Rules/Configure.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Rules/Configure.hs b/src/Rules/Configure.hs
index 5e29116..492d91c 100644
--- a/src/Rules/Configure.hs
+++ b/src/Rules/Configure.hs
@@ -1,6 +1,6 @@
 module Rules.Configure (configureRules) where
 
-import qualified System.Info as System
+import qualified System.Info.Extra as System
 
 import Base
 import Builder
@@ -21,7 +21,7 @@ configureRules = do
                 ++ "--skip-configure flag."
         else do
             -- We cannot use windowsHost here due to a cyclic dependency.
-            when (System.os == "mingw32") $ do
+            when System.isWindows $ do
                 putBuild "| Checking for Windows tarballs..."
                 quietly $ cmd ["bash", "mk/get-win32-tarballs.sh", "download", System.arch]
             let srcs    = map (<.> "in") outs



More information about the ghc-commits mailing list