dev: Uniqueleafnames.hs: fix haddock failure

2022-07-13 19:10:28 +01:00 · 2022-07-13 19:10:28 +01:00 · 0ecc1ed79b
commit 0ecc1ed79b
parent 7d8fbe2dc0
1 changed files with 1 additions and 1 deletions
--- 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