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

fix a regex bug in showtree

Browse Source
This commit is contained in:
Simon Michael 2009-08-12 06:40:01 +00:00
parent 87fc165918
commit d1cb9cedae
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

@ -209,7 +209,7 @@ treeany f t = f (root t) || any (treeany f) (branches t)
-- | show a compact ascii representation of a tree -- | show a compact ascii representation of a tree
showtree :: Show a => Tree a -> String showtree :: Show a => Tree a -> String
showtree = unlines . filter (containsRegex "[^ |]") . lines . drawTree . treemap show showtree = unlines . filter (containsRegex "[^ \\|]") . lines . drawTree . treemap show
-- | show a compact ascii representation of a forest -- | show a compact ascii representation of a forest
showforest :: Show a => Forest a -> String showforest :: Show a => Forest a -> String