Switch to isWindows
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Thu, 28 Sep 2017 22:49:12 +0000 (23:49 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Thu, 28 Sep 2017 22:49:12 +0000 (23:49 +0100)
src/Rules/Configure.hs

index 5e29116..492d91c 100644 (file)
@@ -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