summaryrefslogtreecommitdiffhomepage
path: root/src/Parsers.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Parsers.hs')
-rw-r--r--src/Parsers.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Parsers.hs b/src/Parsers.hs
index 9872a63..62345fe 100644
--- a/src/Parsers.hs
+++ b/src/Parsers.hs
@@ -61,12 +61,10 @@ notFollowedBy' p e = do x <- p
notFollowedBy $ try (e >> return '*')
return x
-icon :: Parser String
-icon = many1 $ noneOf ">"
-
iconParser :: String -> Parser [(Widget, ColorString)]
iconParser c = do
- i <- between (string "<icon=") (string ">") icon
+ string "<icon="
+ i <- manyTill (noneOf ">") (try (string "/>"))
return [(Icon i, c)]
-- | Parsers a string wrapped in a color specification.