diff options
-rw-r--r-- | Git/Fsck.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |