add new update-merge-base flag

currently does nothing
This commit is contained in:
Ryan Mulligan 2019-01-09 21:38:11 -08:00
parent d75b19a714
commit a9de547c15

View File

@ -21,6 +21,7 @@ default (T.Text)
data Mode
= Update
| DeleteDone
| UpdateMergeBase
modeParser :: Opt.Parser Mode
modeParser =
@ -30,7 +31,11 @@ modeParser =
Opt.flag'
DeleteDone
(Opt.long "delete-done" <>
Opt.help "Delete branches from PRs that were merged or closed")
Opt.help "Delete branches from PRs that were merged or closed") <|>
Opt.flag'
UpdateMergeBase
(Opt.long "update-merge-base" <>
Opt.help "Updates the branch to use for updates")
programInfo :: Opt.ParserInfo Mode
programInfo =
@ -55,3 +60,4 @@ main = do
case mode of
DeleteDone -> deleteDone options
Update -> updateAll options updates
UpdateMergeBase -> return ()