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

debug

Browse source
This commit is contained in:
Joey Hess 2013-12-07 11:14:54 -04:00
parent 24469a7d54
commit 50f4f2b1ef
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Build/EvilLinker.hs
View file

@ -113,7 +113,9 @@ restOfLine = newline `after` many (noneOf "\n")
getOutput :: String -> [String] -> Maybe [(String, String)] -> IO (String, Bool) getOutput :: String -> [String] -> Maybe [(String, String)] -> IO (String, Bool)
getOutput cmd params env = do getOutput cmd params env = do
putStrLn $ unwords [cmd, show params] 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' :: Parser a -> String -> String -> a
runParser' p s paramfile = either failedparse id (parse p "" s) runParser' p s paramfile = either failedparse id (parse p "" s)