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)