mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

record output to file

Browse source
This commit is contained in:
Joey Hess 2013-12-09 15:22:53 -04:00
parent d5981949e0
commit 5017523183
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Build/EvilLinker.hs
View file

@ -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