diff options
| -rw-r--r-- | Build/Configure.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/Build/Configure.hs b/Build/Configure.hs index c5e3b9735..116a44215 100644 --- a/Build/Configure.hs +++ b/Build/Configure.hs @@ -7,7 +7,6 @@ import Control.Applicative import System.Environment (getArgs) import Control.Monad.IfElse import Control.Monad -import System.IO import Build.TestConfig import Build.Version @@ -63,11 +62,7 @@ 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 |