mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add debugging for odd OOM or hang on 5 architectures, all where configure runs sha224sum

Browse source
This commit is contained in:
Joey Hess 2014-04-20 19:55:08 -04:00
parent 6fbf4ab776
commit 238a935f9c
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Build/Configure.hs
View file

@ -7,6 +7,7 @@ import Control.Applicative
import System.Environment (getArgs) import System.Environment (getArgs)
import Control.Monad.IfElse import Control.Monad.IfElse
import Control.Monad import Control.Monad
import System.IO
import Build.TestConfig import Build.TestConfig
import Build.Version import Build.Version
@ -62,7 +63,11 @@ shaTestCases l = map make l
key = "sha" ++ show n key = "sha" ++ show n
search [] = return Nothing search [] = return Nothing
search (c:cmds) = do search (c:cmds) = do
putStr $ "(" ++ c
hFlush stdout
sha <- externalSHA c n "/dev/null" sha <- externalSHA c n "/dev/null"
putStr $ ":" ++ show sha ++ ")"
hFlush stdout
if sha == Right knowngood if sha == Right knowngood
then return $ Just c then return $ Just c
else search cmds else search cmds