From 79f473e57419a21803c85d3bd42d20de5bea148f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 20 Nov 2013 18:42:32 -0400 Subject: catch non-IO exception from cat-file Aguably, I should make cat-file only throw IO exceptions, but currently it throws some errors too. --- Git/Fsck.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Git/Fsck.hs') diff --git a/Git/Fsck.hs b/Git/Fsck.hs index 85e6054..350b2bb 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