Also parse ! as a modifier, like *

2012-12-03 21:38:05 +00:00 · 2012-12-03 21:38:05 +00:00 · f0372bdd93
commit f0372bdd93
parent 2b0826b4cb
1 changed files with 1 additions and 1 deletions
--- a/hledger-lib/Hledger/Read/JournalReader.hs
+++ b/hledger-lib/Hledger/Read/JournalReader.hs
@ -463,7 +463,7 @@ effectivedate actualdate = do
  return edate

 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 = try (do { many1 spacenonewline; char '(' <?> "code"; code <- anyChar `manyTill` char ')'; return code } ) <|> return ""