From e011fd72ef69dbbaa4f63bfd61564e0918cb3e22 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 19 Nov 2013 16:09:44 -0400 Subject: initial work on git repository destroyer I suspect this might sometimes corrupt the **source** repo, so use with caution! --- git-repair.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'git-repair.hs') 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 ) -- cgit v1.2.3