git-repair-1.20131118: git-repair.hs

{- 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
		)