From 04f96ca7e10310c352ecf046792fc14fde1928bf Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 20 Nov 2013 15:42:39 -0400 Subject: fix a crash --- Git/Fsck.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Git/Fsck.hs b/Git/Fsck.hs index 16b0235..ad92cdb 100644 --- a/Git/Fsck.hs +++ b/Git/Fsck.hs @@ -97,7 +97,7 @@ findMissing objs r = go objs [] =<< start where start = catFileStart' False r go [] c h = do - catFileStop h + void $ tryIO $ catFileStop h return $ S.fromList c go (o:os) c h = do v <- tryIO $ isNothing <$> catObjectDetails h o -- cgit v1.2.3