From 0f7aaa96006b6000431aee9f041b9e6cc18e770b Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Wed, 16 Oct 2024 21:10:01 -1000 Subject: [PATCH] imp: check accounts: simplify confusing suggestion in error message, 2 --- hledger-lib/Hledger/Data/JournalChecks.hs | 2 +- hledger/test/errors/accounts.test | 1 - 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/hledger-lib/Hledger/Data/JournalChecks.hs b/hledger-lib/Hledger/Data/JournalChecks.hs index 68ba523e2..e361f82b9 100644 --- a/hledger-lib/Hledger/Data/JournalChecks.hs +++ b/hledger-lib/Hledger/Data/JournalChecks.hs @@ -67,7 +67,7 @@ journalCheckAccounts j = mapM_ checkacct (journalPostings j) ,"Consider adding an account directive. Examples:" ,"" ,"account %s" - ]) f l ex (show a) a a + ]) f l ex (show a) a where (f,l,_mcols,ex) = makePostingAccountErrorExcerpt p diff --git a/hledger/test/errors/accounts.test b/hledger/test/errors/accounts.test index b31160c65..3d5b01598 100644 --- a/hledger/test/errors/accounts.test +++ b/hledger/test/errors/accounts.test @@ -9,7 +9,6 @@ account "a" has not been declared. Consider adding an account directive. Examples: account a -account a ; type:A ; \(L,E,R,X,C,V\) / >>>= 1