From dbc01939f3da3653df51f1fe8b2d5da891ea8828 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 20 Apr 2014 19:55:08 -0400
Subject: add debugging for odd OOM or hang on 5 architectures, all where
 configure runs sha224sum

---
 Build/Configure.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Build/Configure.hs')

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
-- 
cgit v1.2.3