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
|
-- trees
|
||||||
|
|
||||||
|
-- | Get the leaves of this tree as a list. The root node is not counted as a leaf.
|
||||||
treeLeaves :: Tree a -> [a]
|
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
|
-- text
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user