diff options
| author | Joey Hess <joey@kitenet.net> | 2013-11-19 16:09:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-19 16:09:44 -0400 |
| commit | e011fd72ef69dbbaa4f63bfd61564e0918cb3e22 (patch) | |
| tree | a371af17996f35ffa2d4bfa66c09a06124c40539 /git-repair.hs | |
| parent | d39035d46df979abcf34d1411f96b5a70bd2d93c (diff) | |
| download | git-repair-e011fd72ef69dbbaa4f63bfd61564e0918cb3e22.tar.gz | |
initial work on git repository destroyer
I suspect this might sometimes corrupt the **source** repo, so use with
caution!
Diffstat (limited to 'git-repair.hs')
| -rw-r--r-- | git-repair.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/git-repair.hs b/git-repair.hs index 9ece7e5..5a092d3 100644 --- a/git-repair.hs +++ b/git-repair.hs @@ -5,7 +5,6 @@ - Licensed under the GNU GPL version 3 or higher. -} -import Data.Tuple.Utils import Options.Applicative import Common @@ -22,7 +21,7 @@ parseSettings = Settings <$> switch forceopt where forceopt = long "force" - <> help "Force recovery, even if data is lost" + <> help "Force repair, even if data is lost" main :: IO () main = execParser opts >>= repair @@ -34,7 +33,7 @@ main = execParser opts >>= repair repair :: Settings -> IO () repair settings = do g <- Git.Config.read =<< Git.CurrentRepo.get - ifM (fst3 <$> Git.Repair.runRepair (forced settings) g) + ifM (Git.Repair.successfulRepair <$> Git.Repair.runRepair (forced settings) g) ( exitSuccess , exitFailure ) |