Commit 54fa99cd authored by Oleg Grenrus's avatar Oleg Grenrus

Fix ActiveRepos parsing: don't accept empty string

parent 867e45e9
......@@ -14,7 +14,7 @@ import Distribution.Client.Types.RepoName (RepoName (..))
import Prelude ()
import Distribution.FieldGrammar.Described
import Distribution.Parsec (Parsec (..), parsecLeadingCommaList)
import Distribution.Parsec (Parsec (..), parsecLeadingCommaNonEmpty)
import Distribution.Pretty (Pretty (..), prettyShow)
import qualified Distribution.Compat.CharParsing as P
......@@ -63,7 +63,7 @@ instance Pretty ActiveRepos where
instance Parsec ActiveRepos where
parsec = ActiveRepos [] <$ P.try (P.string ":none")
<|> do
repos <- parsecLeadingCommaList parsec
repos <- parsecLeadingCommaNonEmpty parsec
return (ActiveRepos (toList repos))
instance Described ActiveRepos where
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment