diff options
-rw-r--r-- | Parsers.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -119,10 +119,10 @@ stripComments = unlines . map (drop 5 . strip False . (replicate 5 ' '++)) . lin parseConfig :: String -> Either ParseError (Config,[String]) parseConfig = runParser parseConf fields "Config" . stripComments where - parseConf = do - many space - sepEndSpc ["Config","{"] - x <- perms + parseConf = parse $ do + sepEndSpaces ["Config","{"] + x <- unWrapParser perms + wrapSkip (string "}") eof s <- getState return (x,s) |