summaryrefslogtreecommitdiffhomepage
path: root/Parsers.hs
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2010-02-11 14:51:18 +0100
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2010-02-11 14:51:18 +0100
commitade76da78cae90f11a00b229718c765b339ab0cb (patch)
treeb800518f98234bf5cae0a9171a75cce4364de2eb /Parsers.hs
parent785760051218a726e68f16a3558b7607a52975e0 (diff)
downloadxmobar-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.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Parsers.hs b/Parsers.hs
index 78b4f3e..b969c8b 100644
--- a/Parsers.hs
+++ b/Parsers.hs
@@ -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 (++) "]"