From 50f4f2b1ef405c99e8c608cbbbcb972e1118b895 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 7 Dec 2013 11:14:54 -0400 Subject: [PATCH] debug --- Build/EvilLinker.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Build/EvilLinker.hs b/Build/EvilLinker.hs index 0e68dfb2a9..a6176754cd 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)