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