diff options
Diffstat (limited to 'Command/Adjust.hs')
-rw-r--r-- | Command/Adjust.hs | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/Command/Adjust.hs b/Command/Adjust.hs new file mode 100644 index 000000000..e2850a361 --- /dev/null +++ b/Command/Adjust.hs @@ -0,0 +1,41 @@ +{- git-annex command + - + - Copyright 2016 Joey Hess <id@joeyh.name> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Command.Adjust where + +import Command +import Annex.AdjustedBranch +import Annex.Version + +cmd :: Command +cmd = notBareRepo $ notDirect $ noDaemonRunning $ + command "adjust" SectionSetup "enter adjusted branch" + paramNothing (seek <$$> optParser) + +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" + ) + -} + +seek :: Adjustment -> CommandSeek +seek = commandAction . start + +start :: Adjustment -> CommandStart +start adj = do + unlessM versionSupportsAdjustedBranch $ + error "Adjusted branches are only supported in v6 or newer repositories." + showStart "adjust" "" + enterAdjustedBranch adj + next $ next $ return True |