diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-30 13:34:24 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-30 13:34:24 -0400 |
| commit | 931f5e75276d3717ea42738ac8be5fc262ead4c8 (patch) | |
| tree | d358ba99f14d46bdffacc920362a463f0802aa66 | |
| parent | 0f3e3af525f95501b33f20e50b4344c5bbb88645 (diff) | |
remove debug info
| -rw-r--r-- | Build/EvilLinker.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Build/EvilLinker.hs b/Build/EvilLinker.hs index c36ec33f3..c8641f649 100644 --- a/Build/EvilLinker.hs +++ b/Build/EvilLinker.hs @@ -125,8 +125,8 @@ getOutput c ps environ = do putStrLn $ unwords [c, show ps] systemenviron <- getEnvironment let environ' = fromMaybe [] environ ++ systemenviron - out@(s, ok) <- processTranscript' c ps (Just environ') Nothing - putStrLn $ unwords [c, "finished", show ok, "output size:", show (length s)] + out@(_, ok) <- processTranscript' c ps (Just environ') Nothing + putStrLn $ unwords [c, "finished", show ok] return out atFile :: FilePath -> String |