parsing: allow spaces in double-quoted commodity symbols

This commit is contained in:
Simon Michael 2010-05-27 00:56:35 +00:00
parent 856f1f965a
commit 3305141206

View File

@ -552,7 +552,7 @@ commoditysymbol = (quotedcommoditysymbol <|>
quotedcommoditysymbol :: GenParser Char st String quotedcommoditysymbol :: GenParser Char st String
quotedcommoditysymbol = do quotedcommoditysymbol = do
char '"' char '"'
s <- many1 $ noneOf "-.@;\n \"" s <- many1 $ noneOf "-.@;\n\""
char '"' char '"'
return s return s