From 2e77586d1b56a8d2182548875fc64b6b5d4ccfdc Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 22 Dec 2022 00:38:51 -1000
Subject: [PATCH] imp: journal: ignore value directives (ledger compat)

---
 hledger-lib/Hledger/Read/JournalReader.hs            | 7 +++++--
 hledger/hledger.m4.md                                | 1 +
 hledger/test/ledger-compat/syntax/hledger-other.test | 1 +
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs
index 6e31a034c..5daf540ad 100644
--- a/hledger-lib/Hledger/Read/JournalReader.hs
+++ b/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 ()
diff --git a/hledger/hledger.m4.md b/hledger/hledger.m4.md
index 5a9cb7917..df9f4760c 100644
--- a/hledger/hledger.m4.md
+++ b/hledger/hledger.m4.md
@@ -2750,6 +2750,7 @@ check   EXPR
 define  VAR=EXPR
 expr    EXPR
 tag     NAME
+value   EXPR
 --command-line-flag
 ```
 
diff --git a/hledger/test/ledger-compat/syntax/hledger-other.test b/hledger/test/ledger-compat/syntax/hledger-other.test
index 02dfd8adf..535aeb128 100644
--- a/hledger/test/ledger-compat/syntax/hledger-other.test
+++ b/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