summaryrefslogtreecommitdiff
path: root/Build/EvilLinker.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-30 13:34:24 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-30 13:34:24 -0400
commit931f5e75276d3717ea42738ac8be5fc262ead4c8 (patch)
treed358ba99f14d46bdffacc920362a463f0802aa66 /Build/EvilLinker.hs
parent0f3e3af525f95501b33f20e50b4344c5bbb88645 (diff)
remove debug info
Diffstat (limited to 'Build/EvilLinker.hs')
-rw-r--r--Build/EvilLinker.hs4
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