fix: ui: don't show root account, respect not:ACCT (fix #1782)

This commit is contained in:
Simon Michael 2021-12-08 17:17:57 -10:00
parent 0d83bdf6d7
commit 2bb309b073

View File

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