blob: 09bebe7569a41945925d1561bb3bb15f37990eb9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
implementation module GenTreePrint
import StdEnv
import GenTree
import TextCompose
instance toString (GenTree a b) | toString a & toString b where
toString tree = indentTree tree
// toString tree = tree2D tree
/******************************************************************************************
version with indented trees
******************************************************************************************/
indentTree :: !(GenTree a b) -> String | toString a & toString b
indentTree tree = ...
/******************************************************************************************
version with TextCompose
******************************************************************************************/
tree2D :: !(GenTree a b) -> String | toString a & toString b
tree2D tree = ...
|
