blob: 62427a57460c23829e439df51e36fdb888aa8c28 (
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
127
128
|
==================== Parser AST ====================
(L
{ mod185.hs:1:1 }
(HsModule
(EpAnn
(Anchor
{ mod185.hs:1:1 }
(UnchangedAnchor))
(AnnsModule
[]
(AnnList
(Nothing)
(Nothing)
(Nothing)
[]
[]))
(EpaCommentsBalanced
[]
[(L
(Anchor
{ mod185.hs:6:1 }
(UnchangedAnchor))
(EpaComment
(EpaEofComment)
{ mod185.hs:6:1 }))]))
(VirtualBraces
(1))
(Nothing)
(Nothing)
[(L
(SrcSpanAnn (EpAnnNotUsed) { mod185.hs:3:1-24 })
(ImportDecl
(EpAnn
(Anchor
{ mod185.hs:3:1-6 }
(UnchangedAnchor))
(EpAnnImportDecl
(EpaSpan { mod185.hs:3:1-6 })
(Nothing)
(Nothing)
(Just
(EpaSpan { mod185.hs:3:16-24 }))
(Nothing)
(Nothing))
(EpaComments
[]))
(NoSourceText)
(L
{ mod185.hs:3:8-14 }
{ModuleName: Prelude})
(Nothing)
(NotBoot)
(False)
(QualifiedPost)
(False)
(Nothing)
(Nothing)))]
[(L
(SrcSpanAnn (EpAnn
(Anchor
{ mod185.hs:5:1-24 }
(UnchangedAnchor))
(AnnListItem
[])
(EpaComments
[])) { mod185.hs:5:1-24 })
(ValD
(NoExtField)
(FunBind
(NoExtField)
(L
(SrcSpanAnn (EpAnnNotUsed) { mod185.hs:5:1-4 })
(Unqual
{OccName: main}))
(MG
(NoExtField)
(L
(SrcSpanAnn (EpAnnNotUsed) { mod185.hs:5:1-24 })
[(L
(SrcSpanAnn (EpAnnNotUsed) { mod185.hs:5:1-24 })
(Match
(EpAnn
(Anchor
{ mod185.hs:5:1-24 }
(UnchangedAnchor))
[]
(EpaComments
[]))
(FunRhs
(L
(SrcSpanAnn (EpAnnNotUsed) { mod185.hs:5:1-4 })
(Unqual
{OccName: main}))
(Prefix)
(NoSrcStrict))
[]
(GRHSs
(NoExtField)
[(L
{ mod185.hs:5:6-24 }
(GRHS
(EpAnn
(Anchor
{ mod185.hs:5:6-24 }
(UnchangedAnchor))
(GrhsAnn
(Nothing)
(AddEpAnn AnnEqual (EpaSpan { mod185.hs:5:6 })))
(EpaComments
[]))
[]
(L
(SrcSpanAnn (EpAnnNotUsed) { mod185.hs:5:8-24 })
(HsVar
(NoExtField)
(L
(SrcSpanAnn (EpAnnNotUsed) { mod185.hs:5:8-24 })
(Qual
{ModuleName: Prelude}
{OccName: undefined}))))))]
(EmptyLocalBinds
(NoExtField)))))])
(FromSource))
[])))]
(Nothing)
(Nothing)))
|
