From 3b7202cb47f89547e09f6fd219d73c88d4e52bc6 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 29 Mar 2016 11:54:18 -0400
Subject: option parser for adjust command

---
 Command/Adjust.hs | 28 ++++++++++++++++++++--------
 1 file changed, 20 insertions(+), 8 deletions(-)

(limited to 'Command')

diff --git a/Command/Adjust.hs b/Command/Adjust.hs
index 766f608f8..7646cfa57 100644
--- a/Command/Adjust.hs
+++ b/Command/Adjust.hs
@@ -12,14 +12,26 @@ import Annex.AdjustedBranch
 
 cmd :: Command
 cmd = notBareRepo $ notDirect $
-	command "adjust" SectionSetup "adjust branch"
-		paramNothing (withParams seek)
+	command "adjust" SectionSetup "enter adjusted branch"
+		paramNothing (seek <$$> optParser)
 
-seek :: CmdParams -> CommandSeek
-seek = withWords start
+optParser :: CmdParamsDesc -> Parser Adjustment
+optParser _ = 
+	flag' UnlockAdjustment
+		( long "unlock"
+		<> help "unlock annexed files"
+		)
+	{- Not ready yet
+	<|> flag' HideMissingAdjustment
+		( long "hide-missing"
+		<> help "omit annexed files whose content is not present"
+		)
+	-}
 
-start :: [String] -> CommandStart
-start [] = do
-	enterAdjustedBranch HideMissingAdjustment
+seek :: Adjustment -> CommandSeek
+seek = commandAction . start
+
+start :: Adjustment -> CommandStart
+start adj = do
+	enterAdjustedBranch adj
 	next $ next $ return True
-start _ = error "Unknown parameter"
-- 
cgit v1.2.3