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

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

diff --git a/Build/Configure.hs b/Build/Configure.hs
index 116a44215f..c5e3b9735e 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