diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-11-18 13:24:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-18 13:24:55 -0400 |
| commit | 0f99873417030ee9f5375fca12022879d8e5727f (patch) | |
| tree | 9288f95245410818a2a7af28d7bdc6b7f9099383 /git-recover-repository.hs | |
| parent | e82e13dea5c3daf1053d4322b5579d01074712c1 (diff) | |
moving git-repair to its own package
Diffstat (limited to 'git-recover-repository.hs')
| -rw-r--r-- | git-recover-repository.hs | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/git-recover-repository.hs b/git-recover-repository.hs deleted file mode 100644 index 3e348f5bb..000000000 --- a/git-recover-repository.hs +++ /dev/null @@ -1,42 +0,0 @@ -{- git-recover-repository program - - - - Copyright 2013 Joey Hess <joey@kitenet.net> - - - - Licensed under the GNU GPL version 3 or higher. - -} - -import System.Environment -import qualified Data.Set as S -import Data.Tuple.Utils - -import Common -import qualified Git -import qualified Git.CurrentRepo -import qualified Git.Fsck -import qualified Git.Repair -import qualified Git.Config -import qualified Git.Branch - -header :: String -header = "Usage: git-recover-repository" - -usage :: a -usage = error $ "bad parameters\n\n" ++ header - -parseArgs :: IO Bool -parseArgs = do - args <- getArgs - return $ or $ map parse args - where - parse "--force" = True - parse _ = usage - -main :: IO () -main = do - forced <- parseArgs - - g <- Git.Config.read =<< Git.CurrentRepo.get - ifM (fst3 <$> Git.Repair.runRepair forced g) - ( exitSuccess - , exitFailure - ) |