From 06de511c8033c92ad5ec01bbbd6c284a991bcfd4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 20 Nov 2013 18:45:22 -0400 Subject: merge from git-repair --- Git/Fsck.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Git') diff --git a/Git/Fsck.hs b/Git/Fsck.hs index 85e60542b..350b2bbf1 100644 --- a/Git/Fsck.hs +++ b/Git/Fsck.hs @@ -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 -- cgit v1.2.3