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