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 | |
| parent | 9b5ab7d0118eff0b5d78d173b5a646cf9e89a891 (diff) | |
| download | git-repair-04f96ca7e10310c352ecf046792fc14fde1928bf.tar.gz | |
fix a crash
| -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 |