slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

;check: uniqueleafnames: short circuit to avoid wasted work

Browse Source
This commit is contained in:
Simon Michael 2021-01-09 18:59:10 -08:00
parent b96713a584
commit 6931eec3ce
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/Commands/Check/Uniqueleafnames.hs
View File

@ -23,7 +23,9 @@ import Text.Printf (printf)
journalCheckUniqueleafnames :: Journal -> Either String () journalCheckUniqueleafnames :: Journal -> Either String ()
journalCheckUniqueleafnames j = do journalCheckUniqueleafnames j = do
-- find all duplicate leafnames, and the full account names they appear in -- find all duplicate leafnames, and the full account names they appear in
let dupes = finddupes $ journalLeafAndFullAccountNames j case finddupes $ journalLeafAndFullAccountNames j of
[] -> Right ()
dupes ->
-- report the first posting that references one of them (and its position), for now -- report the first posting that references one of them (and its position), for now
sequence_ $ map (checkposting dupes) $ journalPostings j sequence_ $ map (checkposting dupes) $ journalPostings j