diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-09 15:22:53 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-09 15:22:53 -0400 |
| commit | ee1131f01a2fa517fd3795c339799be96a6e4ca0 (patch) | |
| tree | 2b301c3e430efd9a7405e46104700000b781858a /Build/EvilLinker.hs | |
| parent | 5d317483e788ee3bfd644b46d5ef16870129d168 (diff) | |
record output to file
Diffstat (limited to 'Build/EvilLinker.hs')
| -rw-r--r-- | Build/EvilLinker.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |