From ee1131f01a2fa517fd3795c339799be96a6e4ca0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 9 Dec 2013 15:22:53 -0400 Subject: record output to file --- Build/EvilLinker.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Build') diff --git a/Build/EvilLinker.hs b/Build/EvilLinker.hs index 8166d0e83..4e165d360 100644 --- a/Build/EvilLinker.hs +++ b/Build/EvilLinker.hs @@ -116,6 +116,7 @@ getOutput cmd params env = do putStrLn $ unwords [cmd, show params] out@(s, ok) <- processTranscript' cmd params env Nothing putStrLn $ unwords [cmd, "finished", show ok, "output size:", show (length s)] + writeFile (cmd ++ ".out") s return out runParser' :: Parser a -> String -> String -> a -- cgit v1.2.3