diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-04-20 19:55:08 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-20 19:55:08 -0400 |
| commit | dbc01939f3da3653df51f1fe8b2d5da891ea8828 (patch) | |
| tree | bdce5a6b73dd6ad4fe1b5dd47c4cdc356dd7b2b7 | |
| parent | 7b3b2edcedf1dca89dfdbfd0dc01f7f499c8e33e (diff) | |
add debugging for odd OOM or hang on 5 architectures, all where configure runs sha224sum
| -rw-r--r-- | Build/Configure.hs | 5 |
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 |