merge from git-repair

This commit is contained in:
Joey Hess 2013-11-20 18:45:22 -04:00
parent 7dbb702edd
commit 8a466247ed

View file

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