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

a more compact showtree

Browse Source
This commit is contained in:
Simon Michael 2008-10-10 11:11:55 +00:00
parent 9b5a35b5d2
commit d172cd0d6e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Ledger/Utils.hs
View File

@ -121,7 +121,7 @@ treeany f t = (f $ root t) || (any (treeany f) $ branches t)
-- treedropall -- do this repeatedly.
showtree :: Show a => Tree a -> String
showtree = drawTree . treemap show
showtree = unlines . filter (containsRegex (mkRegex "[^ |]")) . lines . drawTree . treemap show
-- debugging