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

avoid unncessary IO

Browse source
This commit is contained in:
Joey Hess 2015-02-12 15:33:05 -04:00
parent ecf7ef3ff2
commit 52e40970c8
6 changed files with 15 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Git/Config.hs
View file

@ -66,10 +66,9 @@ global = do
home <- myHomeDir
ifM (doesFileExist $ home </> ".gitconfig")
( do
repo <- Git.Construct.fromUnknown
repo' <- withHandle StdoutHandle createProcessSuccess p $
hRead repo
return $ Just repo'
repo <- withHandle StdoutHandle createProcessSuccess p $
hRead (Git.Construct.fromUnknown)
return $ Just repo
, return Nothing
)
where