fix implicit --all in bare repo

Using the many combinator resulted in Just (WantBranchKeys []) which
bypassed the defualt used for Nothing.
This commit is contained in:
Joey Hess 2016-07-20 15:52:32 -04:00
parent d13194b230
commit db323d2837
Failed to extract signature

View file

@ -153,7 +153,7 @@ parseKeyOptions allowincomplete = if allowincomplete
else base
where
base = parseAllOption
<|> WantBranchKeys <$> many (option (str >>= pure . Ref)
<|> WantBranchKeys <$> some (option (str >>= pure . Ref)
( long "branch" <> metavar paramRef
<> help "operate on files in the specified branch or treeish"
))