aboutsummaryrefslogtreecommitdiff
path: root/CmdLine
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-07-20 15:52:32 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-07-20 15:52:32 -0400
commit7454853985a838a138e1f0ba94bf20bcf6e0ed1b (patch)
tree999e18e012681e79f1d4bc07f409e0cd18da9d3c /CmdLine
parent258a3356e6461e0164441bb3a3e202cb9ef889e6 (diff)
fix implicit --all in bare repo
Using the many combinator resulted in Just (WantBranchKeys []) which bypassed the defualt used for Nothing.
Diffstat (limited to 'CmdLine')
-rw-r--r--CmdLine/GitAnnex/Options.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/CmdLine/GitAnnex/Options.hs b/CmdLine/GitAnnex/Options.hs
index d404b211a..db2efeda5 100644
--- a/CmdLine/GitAnnex/Options.hs
+++ b/CmdLine/GitAnnex/Options.hs
@@ -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"
))