diff options
| -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 |