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

some work on the sha1 backend; still incomplete

Browse source
This commit is contained in:
Joey Hess 2010-10-27 15:00:41 -04:00
parent d92730bef6
commit 7bd7cca399
3 changed files with 17 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
GitRepo.hs
View file

@ -195,8 +195,8 @@ run repo params = assertLocal repo $ do
pipeRead :: Repo -> [String] -> IO String
pipeRead repo params = assertLocal repo $ do
pOpen ReadFromPipe "git" (gitCommandLine repo params) $ \h -> do
ret <- hGetContentsStrict h
return ret
ret <- hGetContentsStrict h
return ret
{- Passed a location, recursively scans for all files that
- are checked into git at that location. -}