imp: journal: accept @ as a prefix of directives (ledger compat)

This commit is contained in:
Simon Michael 2022-12-21 22:56:32 -10:00
parent 95d7679f6d
commit e09ab0936a

View File

@ -230,7 +230,7 @@ addJournalItemP =
-- http://ledger-cli.org/3.0/doc/ledger3.html#Command-Directives -- http://ledger-cli.org/3.0/doc/ledger3.html#Command-Directives
directivep :: MonadIO m => ErroringJournalParser m () directivep :: MonadIO m => ErroringJournalParser m ()
directivep = (do directivep = (do
optional $ char '!' optional $ oneOf ['!','@']
choice [ choice [
includedirectivep includedirectivep
,aliasdirectivep ,aliasdirectivep