copied from git-annex

1 files changed, 38 insertions, 0 deletions

diff --git a/git-repair.hs b/git-repair.hs
new file mode 100644
index 0000000..f726893
--- /dev/null
+++ b/git-repair.hs
@@ -0,0 +1,38 @@
+{- git-repair program
+ -
+ - Copyright 2013 Joey Hess <joey@kitenet.net>
+ -
+ - Licensed under the GNU GPL version 3 or higher.
+ -}
+
+import System.Environment
+import Data.Tuple.Utils
+
+import Common
+import qualified Git.CurrentRepo
+import qualified Git.Repair
+import qualified Git.Config
+
+header :: String
+header = "Usage: git-repair"
+
+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
+		)