diff options
author | Joey Hess <joey@kitenet.net> | 2013-11-20 15:42:39 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-11-20 15:42:39 -0400 |
commit | 04f96ca7e10310c352ecf046792fc14fde1928bf (patch) | |
tree | 3d872302c9925e73bc12f64e418bc60f4f1c1c0d /Git | |
parent | 9b5ab7d0118eff0b5d78d173b5a646cf9e89a891 (diff) | |
download | git-repair-04f96ca7e10310c352ecf046792fc14fde1928bf.tar.gz |
fix a crash
Diffstat (limited to 'Git')
-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 |