diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-07 11:14:54 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-07 11:14:54 -0400 |
| commit | 9b712140fe0da37a5377a16da52feea4c8eb914e (patch) | |
| tree | a6c58e04222a8afc53e9f918e0079ce0fb880cd2 /Build/EvilLinker.hs | |
| parent | 2754ca11c07fc7707fb451b38a51b96c57277c52 (diff) | |
debug
Diffstat (limited to 'Build/EvilLinker.hs')
| -rw-r--r-- | Build/EvilLinker.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Build/EvilLinker.hs b/Build/EvilLinker.hs index 0e68dfb2a..a6176754c 100644 --- a/Build/EvilLinker.hs +++ b/Build/EvilLinker.hs @@ -113,7 +113,9 @@ restOfLine = newline `after` many (noneOf "\n") getOutput :: String -> [String] -> Maybe [(String, String)] -> IO (String, Bool) getOutput cmd params env = do putStrLn $ unwords [cmd, show params] - processTranscript' cmd params env Nothing + out@(s, ok) <- processTranscript' cmd params env Nothing + putStrLn $ unwords [cmd, "finished", show ok, "output size:", length s] + return out runParser' :: Parser a -> String -> String -> a runParser' p s paramfile = either failedparse id (parse p "" s) |