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

merge from git-repair

Browse source
This commit is contained in:
Joey Hess 2013-11-20 18:45:22 -04:00
parent 7dbb702edd
commit 8a466247ed
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Git/Fsck.hs
View file

@ -68,7 +68,7 @@ findMissing objs r = go objs [] =<< start
void $ tryIO $ catFileStop h void $ tryIO $ catFileStop h
return $ S.fromList c return $ S.fromList c
go (o:os) c h = do go (o:os) c h = do
v <- tryIO $ isNothing <$> catObjectDetails h o v <- tryNonAsync $ isNothing <$> catObjectDetails h o
case v of case v of
Left _ -> do Left _ -> do
void $ tryIO $ catFileStop h void $ tryIO $ catFileStop h