1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
--- parse tree ---
[ Code
"test/typ/compiler/show-node-00.typ"
( line 1 , column 2 )
(Let
(BasicBind (Just (Identifier "test")))
(FuncExpr
[ NormalParam (Identifier "x") , NormalParam (Identifier "y") ]
(Block
(CodeBlock
[ If
[ ( Equals (Ident (Identifier "x")) (Ident (Identifier "y"))
, Block (Content [ Text "\9989" ])
)
, ( Literal (Boolean True)
, Block
(Content
[ Text "\10060"
, Text "("
, Code
"test/typ/compiler/show-node-00.typ"
( line 1 , column 47 )
(FuncCall
(Ident (Identifier "repr"))
[ NormalArg (Ident (Identifier "x")) ])
, Space
, Text "/"
, Text "="
, Space
, Code
"test/typ/compiler/show-node-00.typ"
( line 1 , column 59 )
(FuncCall
(Ident (Identifier "repr"))
[ NormalArg (Ident (Identifier "y")) ])
, Text ")"
])
)
]
]))))
, SoftBreak
, Comment
, Code
"test/typ/compiler/show-node-00.typ"
( line 3 , column 2 )
(Show
(Just (Ident (Identifier "list")))
(FuncExpr
[ NormalParam (Identifier "it") ]
(Plus
(Plus
(Literal (String "("))
(FuncCall
(FieldAccess
(Ident (Identifier "join"))
(FuncCall
(FieldAccess
(Ident (Identifier "map"))
(FieldAccess
(Ident (Identifier "children")) (Ident (Identifier "it"))))
[ NormalArg
(FuncExpr
[ NormalParam (Identifier "v") ]
(FieldAccess (Ident (Identifier "body")) (Ident (Identifier "v"))))
]))
[ NormalArg (Literal (String ", ")) ]))
(Literal (String ")")))))
, ParBreak
, BulletListItem
[ Text "A"
, SoftBreak
, BulletListItem [ Text "B" ]
, SoftBreak
, BulletListItem [ Text "C" ]
]
, SoftBreak
, BulletListItem [ Text "D" ]
, SoftBreak
, BulletListItem [ Text "E" , ParBreak ]
]
"test/typ/compiler/show-node-00.typ" (line 3, column 2):
unexpected end of input
Content does not have a method "body" or FieldAccess requires a dictionary
|
