imp: journal: ignore value directives (ledger compat)

hledger-lib/Hledger/Read/JournalReader.hs

@@ -256,6 +256,7 @@ directivep = (do
    ,ignoredpricecommoditydirectivep
    ,tagdirectivep
    ,endtagdirectivep
+   ,valuedirectivep
    ]
   ) <?> "directive"
 
@@ -525,8 +526,9 @@ formatdirectivep expectedsym = do
 
 -- More Ledger directives, ignore for now:
 -- apply fixed, apply tag, assert, bucket, A, capture, check, define, expr
-applyfixeddirectivep, applytagdirectivep, assertdirectivep, bucketdirectivep, capturedirectivep,
-  checkdirectivep, definedirectivep, exprdirectivep, commandlineflagdirectivep :: JournalParser m ()
+applyfixeddirectivep, applytagdirectivep, assertdirectivep, bucketdirectivep,
+  capturedirectivep, checkdirectivep, definedirectivep, exprdirectivep,
+  valuedirectivep, commandlineflagdirectivep :: JournalParser m ()
 applyfixeddirectivep = do string "apply fixed" >> lift restofline >> return ()
 applytagdirectivep   = do string "apply tag" >> lift restofline >> return ()
 assertdirectivep     = do string "assert"  >> lift restofline >> return ()
@@ -535,6 +537,7 @@ capturedirectivep    = do string "capture" >> lift restofline >> return ()
 checkdirectivep      = do string "check"   >> lift restofline >> return ()
 definedirectivep     = do string "define"  >> lift restofline >> return ()
 exprdirectivep       = do string "expr"    >> lift restofline >> return ()
+valuedirectivep      = do string "value"   >> lift restofline >> return ()
 commandlineflagdirectivep = do string "--" >> lift restofline >> return ()
 
 keywordp :: String -> JournalParser m ()

hledger/hledger.m4.md

@@ -2750,6 +2750,7 @@ check   EXPR
 define  VAR=EXPR
 expr    EXPR
 tag     NAME
+value   EXPR
 --command-line-flag
 ```
 

hledger/test/ledger-compat/syntax/hledger-other.test

@@ -58,6 +58,7 @@ N USD
 tag Receipt
   check value =~ /pattern/
   assert value != "foobar"
+value some_func
 --command-line-flag
 
 $ hledger -f- check