diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-03-31 19:05:47 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-03-31 19:05:47 -0400 |
| commit | 7cd0ba73996b2ed092f8ee7cb62d0edf9f8f3f1b (patch) | |
| tree | 6a23e810b4b3d8a3a4198a25190e0a8b3ce58c62 /Command/Adjust.hs | |
| parent | 4dfa6059e42995eb050f58656fc32f9ee5d3ef16 (diff) | |
| parent | dc6d60cb3cbeed45e0651818f762445812f84e7a (diff) | |
Merge branch 'adjustedbranch'
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 |