blob: 2d0eb5ec6772f159986aa825e25d0500f89ccd66 (
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
129
130
131
132
133
134
135
|
==================== Renamer ====================
(Just
((,,,)
(HsGroup
(XValBindsLR
(NValBinds
[]
[]))
[]
[(TyClGroup
[({ T14189.hs:6:1-42 }
(DataDecl
({ T14189.hs:6:6-11 }
{Name: T14189.MyType})
(HsQTvs
[]
[]
{NameSet:
[]})
(Prefix)
(HsDataDefn
(DataType)
({ <no location info> }
[])
(Nothing)
(Nothing)
[({ T14189.hs:6:15-20 }
(ConDeclH98
({ T14189.hs:6:15-16 }
{Name: T14189.MT})
(False)
[]
(Nothing)
(PrefixCon
[({ T14189.hs:6:18-20 }
(HsTyVar
(PlaceHolder)
(NotPromoted)
({ T14189.hs:6:18-20 }
{Name: GHC.Types.Int})))])
(Nothing)))
,({ T14189.hs:6:24-25 }
(ConDeclH98
({ T14189.hs:6:24-25 }
{Name: T14189.NT})
(False)
[]
(Nothing)
(PrefixCon
[])
(Nothing)))
,({ T14189.hs:6:29-42 }
(ConDeclH98
({ T14189.hs:6:29 }
{Name: T14189.F})
(False)
[]
(Nothing)
(RecCon
({ T14189.hs:6:31-42 }
[({ T14189.hs:6:33-40 }
(ConDeclField
[({ T14189.hs:6:33 }
(FieldOcc
{Name: T14189.f}
({ T14189.hs:6:33 }
(Unqual
{OccName: f}))))]
({ T14189.hs:6:38-40 }
(HsTyVar
(PlaceHolder)
(NotPromoted)
({ T14189.hs:6:38-40 }
{Name: GHC.Types.Int})))
(Nothing)))]))
(Nothing)))]
({ <no location info> }
[]))
(True)
{NameSet:
[{Name: GHC.Types.Int}]}))]
[]
[])]
[]
[]
[]
[]
[]
[]
[]
[]
[])
[({ T14189.hs:1:8-13 }
(ImportDecl
(NoSourceText)
({ T14189.hs:1:8-13 }
{ModuleName: Prelude})
(Nothing)
(False)
(False)
(False)
(True)
(Nothing)
(Nothing)))]
(Just
[((,)
({ T14189.hs:3:3-15 }
(IEThingWith
({ T14189.hs:3:3-8 }
(IEName
({ T14189.hs:3:3-8 }
{Name: T14189.MyType})))
(NoIEWildcard)
[({ T14189.hs:3:13-14 }
(IEName
({ T14189.hs:3:13-14 }
{Name: T14189.NT})))]
[({ T14189.hs:3:11 }
(FieldLabel
{FastString: "f"}
(False)
{Name: T14189.f}))]))
[(AvailTC
{Name: T14189.MyType}
[{Name: T14189.MyType}
,{Name: T14189.NT}]
[(FieldLabel
{FastString: "f"}
(False)
{Name: T14189.f})])])])
(Nothing)))
|