summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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