From 1010e3dee637d0940e69fbc9d0c7e11aa3fd70bb Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 3 Dec 2024 10:45:16 -1000
Subject: [PATCH] imp:csv: improve debug=7 output from isBlockActive

---
 hledger-lib/Hledger/Read/RulesReader.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/hledger-lib/Hledger/Read/RulesReader.hs b/hledger-lib/Hledger/Read/RulesReader.hs
index e52c6ad4b..3b82dedda 100644
--- a/hledger-lib/Hledger/Read/RulesReader.hs
+++ b/hledger-lib/Hledger/Read/RulesReader.hs
@@ -774,7 +774,6 @@ isBlockActive rules record CB{..} = any (all matcherMatches) $ groupedMatchers c
     matcherMatches :: Matcher -> Bool
     matcherMatches (RecordMatcher prefix pat) = maybeNegate prefix origbool
       where
-        pat' = dbg7 "regex" pat
         -- A synthetic whole CSV record to match against. Note, this can be
         -- different from the original CSV data:
         -- - any whitespace surrounding field values is preserved
@@ -782,12 +781,12 @@ isBlockActive rules record CB{..} = any (all matcherMatches) $ groupedMatchers c
         -- - and the field separator is always comma
         -- which means that a field containing a comma will look like two fields.
         wholecsvline = dbg7 "wholecsvline" $ T.intercalate "," record
-        origbool = regexMatchText pat' wholecsvline
+        origbool = regexMatchText (dbg7 "regex" pat) wholecsvline
     matcherMatches (FieldMatcher prefix csvfieldref pat) = maybeNegate prefix origbool
       where
         -- the value of the referenced CSV field to match against.
         csvfieldvalue = dbg7 "csvfieldvalue" $ replaceCsvFieldReference rules record csvfieldref
-        origbool = regexMatchText pat csvfieldvalue
+        origbool = regexMatchText (dbg7 "regex" pat) csvfieldvalue
 
     -- | Group matchers into associative pairs based on prefix, e.g.:
     --   A