From db323d28374df4b1775374a9120429a469c71b34 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 20 Jul 2016 15:52:32 -0400 Subject: [PATCH] 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(-) diff --git a/CmdLine/GitAnnex/Options.hs b/CmdLine/GitAnnex/Options.hs index d404b211ac..db2efeda56 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" ))