From 05355d4aab533d0c55666412b6c250e644bc7088 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 18 Nov 2013 13:51:55 -0400
Subject: use optparse-applicative

---
 git-repair.hs | 34 ++++++++++++++++++----------------
 1 file changed, 18 insertions(+), 16 deletions(-)

(limited to 'git-repair.hs')

diff --git a/git-repair.hs b/git-repair.hs
index f726893..9ece7e5 100644
--- a/git-repair.hs
+++ b/git-repair.hs
@@ -5,34 +5,36 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
-import System.Environment
 import Data.Tuple.Utils
+import Options.Applicative
 
 import Common
 import qualified Git.CurrentRepo
 import qualified Git.Repair
 import qualified Git.Config
 
-header :: String
-header = "Usage: git-repair"
+data Settings = Settings
+	{ forced :: Bool
+	}
 
-usage :: a
-usage = error $ "bad parameters\n\n" ++ header
-
-parseArgs :: IO Bool
-parseArgs = do
-	args <- getArgs
-	return $ or $ map parse args
+parseSettings :: Parser Settings
+parseSettings = Settings
+	<$> switch forceopt
   where
-	parse "--force" = True
-	parse _ = usage
+	forceopt = long "force"
+		<> help "Force recovery, even if data is lost"
 
 main :: IO ()
-main = do
-	forced <- parseArgs
-	
+main = execParser opts >>= repair
+  where
+  	opts = info (helper <*> parseSettings) desc
+	desc = fullDesc
+		<> header "git-repair - repair a damanged git repository" 
+
+repair :: Settings -> IO ()
+repair settings = do
 	g <- Git.Config.read =<< Git.CurrentRepo.get
-	ifM (fst3 <$> Git.Repair.runRepair forced g)
+	ifM (fst3 <$> Git.Repair.runRepair (forced settings) g)
 		( exitSuccess
 		, exitFailure
 		)
-- 
cgit v1.2.3