summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-04-20 19:55:08 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-04-20 19:55:08 -0400
commitdbc01939f3da3653df51f1fe8b2d5da891ea8828 (patch)
treebdce5a6b73dd6ad4fe1b5dd47c4cdc356dd7b2b7
parent7b3b2edcedf1dca89dfdbfd0dc01f7f499c8e33e (diff)
add debugging for odd OOM or hang on 5 architectures, all where configure runs sha224sum
-rw-r--r--Build/Configure.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/Build/Configure.hs b/Build/Configure.hs
index 116a44215..c5e3b9735 100644
--- a/Build/Configure.hs
+++ b/Build/Configure.hs
@@ -7,6 +7,7 @@ import Control.Applicative
import System.Environment (getArgs)
import Control.Monad.IfElse
import Control.Monad
+import System.IO
import Build.TestConfig
import Build.Version
@@ -62,7 +63,11 @@ shaTestCases l = map make l
key = "sha" ++ show n
search [] = return Nothing
search (c:cmds) = do
+ putStr $ "(" ++ c
+ hFlush stdout
sha <- externalSHA c n "/dev/null"
+ putStr $ ":" ++ show sha ++ ")"
+ hFlush stdout
if sha == Right knowngood
then return $ Just c
else search cmds