convert some error to giveup

error has a backtrace, but these are non-internal errors, so a backtrace
is unlikely to be useful
This commit is contained in:
Joey Hess 2021-12-09 14:36:54 -04:00
parent ab3c13c021
commit a62f2e141b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 3 additions and 3 deletions

View file

@ -68,7 +68,7 @@ safeForLsFiles r = isNothing (remoteName r)
guardSafeForLsFiles :: Repo -> IO a -> IO a
guardSafeForLsFiles r a
| safeForLsFiles r = a
| otherwise = error $ "git ls-files is unsafe to run on repository " ++ repoDescribe r
| otherwise = giveup $ "git ls-files is unsafe to run on repository " ++ repoDescribe r
data Options = ErrorUnmatch