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

remove debug info

Browse source
This commit is contained in:
Joey Hess 2014-01-30 13:34:24 -04:00
parent bc466f675d
commit 7dd94c0846
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Build/EvilLinker.hs
View file

@ -125,8 +125,8 @@ getOutput c ps environ = do
putStrLn $ unwords [c, show ps] putStrLn $ unwords [c, show ps]
systemenviron <- getEnvironment systemenviron <- getEnvironment
let environ' = fromMaybe [] environ ++ systemenviron let environ' = fromMaybe [] environ ++ systemenviron
out@(s, ok) <- processTranscript' c ps (Just environ') Nothing out@(_, ok) <- processTranscript' c ps (Just environ') Nothing
putStrLn $ unwords [c, "finished", show ok, "output size:", show (length s)] putStrLn $ unwords [c, "finished", show ok]
return out return out
atFile :: FilePath -> String atFile :: FilePath -> String