diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2010-02-11 14:51:18 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2010-02-11 14:51:18 +0100 |
| commit | ade76da78cae90f11a00b229718c765b339ab0cb (patch) | |
| tree | b800518f98234bf5cae0a9171a75cce4364de2eb /Parsers.hs | |
| parent | 785760051218a726e68f16a3558b7607a52975e0 (diff) | |
| download | xmobar-ade76da78cae90f11a00b229718c765b339ab0cb.tar.gz xmobar-ade76da78cae90f11a00b229718c765b339ab0cb.tar.bz2 | |
fix issue 19 - a small reegression in the config parser
Ignore-this: cea42efaa2e4c13ed3580154172008592d6e4970
darcs-hash:20100211135118-d6583-5be151b1907f91dec13ed555c47bd1c83119ad0d.gz
Diffstat (limited to 'Parsers.hs')
| -rw-r--r-- | Parsers.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -147,7 +147,7 @@ parseConfig = runParser parseConf fields "Config" . stripComments pLowerOnStart = field lowerOnStart "lowerOnStart" $ tillFieldEnd >>= read' "lowerOnStart" pCommands = field commands "commands" $ readCommands - tillFieldEnd = many $ noneOf ",} \n\r" + tillFieldEnd = many $ noneOf ",}\n\r" commandsEnd = wrapSkip (string "]") >> oneOf "}," readCommands = manyTill anyChar (try commandsEnd) >>= read' commandsErr . flip (++) "]" |