From 15b2e7d586fbafaabf0ce06ee259d61efa7b5c88 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 3 Oct 2022 07:50:23 -1000
Subject: [PATCH] fix: csv: ignore extra whitespace in account rule when
 detecting virtual postings

Reported by CruxOfTheB in chat.
---
 hledger-lib/Hledger/Read/CsvReader.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-lib/Hledger/Read/CsvReader.hs b/hledger-lib/Hledger/Read/CsvReader.hs
index e0c7c55fd..d71906308 100644
--- a/hledger-lib/Hledger/Read/CsvReader.hs
+++ b/hledger-lib/Hledger/Read/CsvReader.hs
@@ -1186,7 +1186,7 @@ getAccount :: CsvRules -> CsvRecord -> Maybe MixedAmount -> Maybe (Amount, Sourc
 getAccount rules record mamount mbalance n =
   let
     fieldval = hledgerFieldValue rules record :: HledgerFieldName -> Maybe Text
-    maccount = fieldval ("account"<> T.pack (show n))
+    maccount = T.strip <$> fieldval ("account"<> T.pack (show n))
   in case maccount of
     -- accountN is set to the empty string - no posting will be generated
     Just "" -> Nothing