Show output of boot and configure.
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Thu, 5 May 2016 03:22:57 +0000 (04:22 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Thu, 5 May 2016 03:22:57 +0000 (04:22 +0100)
See #234.

src/Rules/Actions.hs
src/Rules/Configure.hs

index 9910ce5..a312ce9 100644 (file)
@@ -62,7 +62,7 @@ customBuild rs opts target@Target {..} = do
                 need [dir -/- "configure"]
                 -- Inject /bin/bash into `libtool`, instead of /bin/sh
                 let env = AddEnv "CONFIG_SHELL" "/bin/bash"
                 need [dir -/- "configure"]
                 -- Inject /bin/bash into `libtool`, instead of /bin/sh
                 let env = AddEnv "CONFIG_SHELL" "/bin/bash"
-                cmd Shell (EchoStdout False) [Cwd dir] [path] (env:opts) argList
+                cmd Shell [Cwd dir] [path] (env:opts) argList
 
             HsCpp    -> captureStdout target path argList
             GenApply -> captureStdout target path argList
 
             HsCpp    -> captureStdout target path argList
             GenApply -> captureStdout target path argList
index d1c7cf2..44ed75c 100644 (file)
@@ -1,6 +1,6 @@
 module Rules.Configure (configureRules) where
 
 module Rules.Configure (configureRules) where
 
-import qualified System.Info
+import qualified System.Info as System
 
 import Base
 import Builder
 
 import Base
 import Builder
@@ -22,12 +22,9 @@ configureRules = do
                 ++ "--skip-configure flag."
         else do
             -- We cannot use windowsHost here due to a cyclic dependency.
                 ++ "--skip-configure flag."
         else do
             -- We cannot use windowsHost here due to a cyclic dependency.
-            when (System.Info.os == "mingw32") $ do
+            when (System.os == "mingw32") $ do
                 putBuild "| Checking for Windows tarballs..."
                 putBuild "| Checking for Windows tarballs..."
-                quietly $ cmd [ "bash"
-                              , "mk/get-win32-tarballs.sh"
-                              , "download"
-                              , System.Info.arch ]
+                quietly $ cmd ["bash mk/get-win32-tarballs.sh download", System.arch]
             let srcs    = map (<.> "in") outs
                 context = vanillaContext Stage0 compiler
             need srcs
             let srcs    = map (<.> "in") outs
                 context = vanillaContext Stage0 compiler
             need srcs
@@ -41,4 +38,4 @@ configureRules = do
         else do
             need ["configure.ac"]
             putBuild "| Running boot..."
         else do
             need ["configure.ac"]
             putBuild "| Running boot..."
-            quietly $ cmd (EchoStdout False) "perl boot"
+            quietly $ cmd "perl boot"