Parser: semplify color parsing

darcs-hash:20071012193920-d6583-14b739dd4e04e221e3ff9ceacf0b2e7bf365f3de.gz

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)