option parser for adjust command

Command/Adjust.hs

@@ -12,14 +12,26 @@ import Annex.AdjustedBranch
 
 cmd :: Command
 cmd = notBareRepo $ notDirect $
-	command "adjust" SectionSetup "adjust branch"
+	command "adjust" SectionSetup "enter adjusted branch"
-		paramNothing (withParams seek)
+		paramNothing (seek <$$> optParser)
 
-seek :: CmdParams -> CommandSeek
+optParser :: CmdParamsDesc -> Parser Adjustment
-seek = withWords start
+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
+seek :: Adjustment -> CommandSeek
-start [] = do
+seek = commandAction . start
-	enterAdjustedBranch HideMissingAdjustment
+
+start :: Adjustment -> CommandStart
+start adj = do
+	enterAdjustedBranch adj
 	next $ next $ return True
-start _ = error "Unknown parameter"