diff options
| author | Joey Hess <joey@kitenet.net> | 2013-11-20 18:42:32 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-20 18:42:32 -0400 |
| commit | 79f473e57419a21803c85d3bd42d20de5bea148f (patch) | |
| tree | 6abb592a8d474f8200931d14fd67672bfb634217 | |
| parent | c592d4b622842d62e80550dcc85a75e43d949373 (diff) | |
| download | git-repair-79f473e57419a21803c85d3bd42d20de5bea148f.tar.gz | |
catch non-IO exception from cat-file
Aguably, I should make cat-file only throw IO exceptions, but currently it
throws some errors too.
| -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 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 |