summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--Parsers.hs6
1 files changed, 1 insertions, 5 deletions
diff --git a/Parsers.hs b/Parsers.hs
index a236368..72fba94 100644
--- a/Parsers.hs
+++ b/Parsers.hs
@@ -74,11 +74,7 @@ colorsAndText config =
-- | Parses a color specification (hex or named)
colorSpec :: Parser String
colorSpec =
- do { c <- char '#'
- ; s <- count 6 hexDigit
- ; return $ c:s
- }
- <|> many1 alphaNum
+ many1 (alphaNum <|> char ',' <|> char '#')
-- | Parses the output template string
templateStringParser :: Config -> Parser (String,String,String)