From 7454853985a838a138e1f0ba94bf20bcf6e0ed1b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 20 Jul 2016 15:52:32 -0400 Subject: fix implicit --all in bare repo Using the many combinator resulted in Just (WantBranchKeys []) which bypassed the defualt used for Nothing. --- CmdLine/GitAnnex/Options.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'CmdLine') 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" )) -- cgit v1.2.3