diff options
Diffstat (limited to 'Command/Adjust.hs')
-rw-r--r-- | Command/Adjust.hs | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/Command/Adjust.hs b/Command/Adjust.hs new file mode 100644 index 000000000..b52537a64 --- /dev/null +++ b/Command/Adjust.hs @@ -0,0 +1,25 @@ +{- 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 + +cmd :: Command +cmd = notBareRepo $ notDirect $ + command "adjust" SectionSetup "adjust branch" + paramNothing (withParams seek) + +seek :: CmdParams -> CommandSeek +seek = withWords start + +start :: [String] -> CommandStart +start [] = do + enterAdjustedBranch UnlockAdjustment + next $ next $ return True +start _ = error "Unknown parameter" |