blob: bd19cccee841c0972f2894d0ae4d736d61802ec3 (
plain)
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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
==================== Parser AST ====================
(L
{ T22919.hs:1:1 }
(HsModule
(XModulePs
(EpAnn
(EpaSpan { T22919.hs:1:1 })
(AnnsModule
[(AddEpAnn AnnModule (EpaSpan { T22919.hs:1:1-6 }))
,(AddEpAnn AnnWhere (EpaSpan { T22919.hs:1:29-33 }))]
[]
(Just
((,)
{ T22919.hs:3:1 }
{ T22919.hs:2:7-9 })))
(EpaCommentsBalanced
[(L
(EpaSpan { T22919.hs:1:15-27 })
(EpaComment
(EpaBlockComment
"{- comment -}")
{ T22919.hs:1:8-13 }))]
[]))
(VirtualBraces
(1))
(Nothing)
(Nothing))
(Just
(L
((EpAnnS
(EpaSpan { T22919.hs:1:8-13 })
(AnnListItem
[])
(EpaComments
[])))
{ModuleName: T22919}))
(Nothing)
[]
[(L
((EpAnnS
(EpaSpan { T22919.hs:2:1-9 })
(AnnListItem
[])
(EpaComments
[])))
(ValD
(NoExtField)
(FunBind
(NoExtField)
(L
((EpAnnS
(EpaSpan { T22919.hs:2:1-3 })
(NameAnnTrailing
[])
(EpaComments
[])))
(Unqual
{OccName: foo}))
(MG
(FromSource)
(L
(SrcSpanAnn (EpAnnNotUsed) { T22919.hs:2:1-9 })
[(L
((EpAnnS
(EpaSpan { T22919.hs:2:1-9 })
(AnnListItem
[])
(EpaComments
[])))
(Match
(EpAnn
(EpaSpan { T22919.hs:2:1-9 })
[]
(EpaComments
[]))
(FunRhs
(L
((EpAnnS
(EpaSpan { T22919.hs:2:1-3 })
(NameAnnTrailing
[])
(EpaComments
[])))
(Unqual
{OccName: foo}))
(Prefix)
(NoSrcStrict))
[]
(GRHSs
(EpaComments
[])
[(L
(EpAnnS
(EpaSpan { T22919.hs:2:5-9 })
(NoEpAnns)
(EpaComments
[]))
(GRHS
(EpAnn
(EpaSpan { T22919.hs:2:5-9 })
(GrhsAnn
(Nothing)
(AddEpAnn AnnEqual (EpaSpan { T22919.hs:2:5 })))
(EpaComments
[]))
[]
(L
((EpAnnS
(EpaSpan { T22919.hs:2:7-9 })
(AnnListItem
[])
(EpaComments
[])))
(HsLit
(EpAnn
(EpaSpan { T22919.hs:2:7-9 })
(NoEpAnns)
(EpaComments
[]))
(HsChar
(SourceText 's')
('s'))))))]
(EmptyLocalBinds
(NoExtField)))))])))))]))
|
