From 1f3fc3dea150fbda24d0aba6cc0e180ae5314fe4 Mon Sep 17 00:00:00 2001
From: Alexander Polakov <plhk@sdf.org>
Date: Sun, 3 Feb 2013 19:43:06 +0400
Subject: <icon=..> -> <icon=../>

---
 src/Parsers.hs | 6 ++----
 1 file 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.
-- 
cgit v1.2.3