slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Also parse ! as a modifier, like *

Browse Source
This commit is contained in:
Joachim Breitner 2012-12-03 21:38:05 +00:00
parent 2b0826b4cb
commit f0372bdd93
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Read/JournalReader.hs
View File

@ -463,7 +463,7 @@ effectivedate actualdate = do
return edate return edate
status :: GenParser Char JournalContext Bool status :: GenParser Char JournalContext Bool
status = try (do { many spacenonewline; char '*' <?> "status"; return True } ) <|> return False status = try (do { many spacenonewline; (char '*' <|> char '!') <?> "status"; return True } ) <|> return False
code :: GenParser Char JournalContext String code :: GenParser Char JournalContext String
code = try (do { many1 spacenonewline; char '(' <?> "code"; code <- anyChar `manyTill` char ')'; return code } ) <|> return "" code = try (do { many1 spacenonewline; char '(' <?> "code"; code <- anyChar `manyTill` char ')'; return code } ) <|> return ""