fix: ui: don't show root account, respect not:ACCT (fix #1782)
This commit is contained in:
parent
0d83bdf6d7
commit
2bb309b073
@ -120,8 +120,9 @@ splitAtElement x l =
|
||||
|
||||
-- trees
|
||||
|
||||
-- | Get the leaves of this tree as a list. The root node is not counted as a leaf.
|
||||
treeLeaves :: Tree a -> [a]
|
||||
treeLeaves = foldTree (\a bs -> (if null bs then (a:) else id) $ concat bs)
|
||||
treeLeaves = drop 1 . foldTree (\a bs -> (if null bs then (a:) else id) $ concat bs)
|
||||
|
||||
-- text
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user