dev: Uniqueleafnames.hs: fix haddock failure

This commit is contained in:
Simon Michael 2022-07-13 19:10:28 +01:00
parent 7d8fbe2dc0
commit 0ecc1ed79b

View File

@ -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