From 0ecc1ed79b69cb471346d9e52d8a1ec0c2af3e38 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 13 Jul 2022 19:10:28 +0100
Subject: [PATCH] dev: Uniqueleafnames.hs: fix haddock failure

---
 hledger-lib/Hledger/Data/JournalChecks/Uniqueleafnames.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-lib/Hledger/Data/JournalChecks/Uniqueleafnames.hs b/hledger-lib/Hledger/Data/JournalChecks/Uniqueleafnames.hs
index 7bb6258a2..2e78f8039 100755
--- a/hledger-lib/Hledger/Data/JournalChecks/Uniqueleafnames.hs
+++ b/hledger-lib/Hledger/Data/JournalChecks/Uniqueleafnames.hs
@@ -50,7 +50,7 @@ journalCheckUniqueleafnames j = do
                 llen = T.length $ accountLeafName a
                 col = 5 + (if isVirtual p then 1 else 0) + alen - llen
                 col2 = col + llen - 1
-            accts = T.unlines fulls  -- $ map (("\""<>).(<>"\"")) fulls
+            accts = T.unlines fulls
 
         _ -> Right ()  -- shouldn't happen