diff options
| author | Alexander Polakov <plhk@sdf.org> | 2013-02-03 19:43:06 +0400 |
|---|---|---|
| committer | Alexander Polakov <plhk@sdf.org> | 2013-02-03 19:43:06 +0400 |
| commit | 1f3fc3dea150fbda24d0aba6cc0e180ae5314fe4 (patch) | |
| tree | 01e72625e912914616d26594f2fdfb8e7428b413 | |
| parent | 43c1dd26c41fcc8400a40cc434cb0851119ea76d (diff) | |
| download | xmobar-1f3fc3dea150fbda24d0aba6cc0e180ae5314fe4.tar.gz xmobar-1f3fc3dea150fbda24d0aba6cc0e180ae5314fe4.tar.bz2 | |
<icon=..> -> <icon=../>
| -rw-r--r-- | src/Parsers.hs | 6 |
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. |