summaryrefslogtreecommitdiff
path: root/testdata
diff options
context:
space:
mode:
authorPéter Diviánszky <divipp@gmail.com>2016-05-10 16:32:23 +0200
committerPéter Diviánszky <divipp@gmail.com>2016-05-10 16:32:23 +0200
commit6ecef8f577432ffcaee07f09b2a73d4ea5eb5de2 (patch)
tree82ed1f4401c3cf2cd4910e5f2e62d0d3a8ac6904 /testdata
parente061e1a91afc552fd7c3d7e5f7efb59746cc446f (diff)
explicit lhs marks, first step
Diffstat (limited to 'testdata')
-rw-r--r--testdata/Builtins.out869
-rw-r--r--testdata/Internals.out210
-rw-r--r--testdata/Material.out472
-rw-r--r--testdata/Prelude.out834
-rw-r--r--testdata/SampleMaterial.out3752
-rw-r--r--testdata/ambig.out30
-rw-r--r--testdata/complex.out140
-rw-r--r--testdata/data.out74
-rw-r--r--testdata/id.out3
-rw-r--r--testdata/instantiate.out3
-rw-r--r--testdata/language-features/basic-list/list01.out6
-rw-r--r--testdata/language-features/basic-list/list02.out6
-rw-r--r--testdata/language-features/basic-list/list08.out2
-rw-r--r--testdata/language-features/basic-list/list09.out2
-rw-r--r--testdata/language-features/basic-list/list11.out2
-rw-r--r--testdata/language-features/basic-list/list12.out3
-rw-r--r--testdata/language-features/basic-list/list13.out2
-rw-r--r--testdata/language-features/basic-list/listcomp01.out2
-rw-r--r--testdata/language-features/basic-list/listcomp02.out4
-rw-r--r--testdata/language-features/basic-list/listcomp03.out4
-rw-r--r--testdata/language-features/basic-list/listcomp04.out5
-rw-r--r--testdata/language-features/basic-list/listcomp05.out12
-rw-r--r--testdata/language-features/basic-list/listcomp06.out31
-rw-r--r--testdata/language-features/basic-list/listcomp07.out54
-rw-r--r--testdata/language-features/basic-list/listcomp09.out4
-rw-r--r--testdata/language-features/basic-values/bool01.out4
-rw-r--r--testdata/language-features/basic-values/case01.out12
-rw-r--r--testdata/language-features/basic-values/case02.out22
-rw-r--r--testdata/language-features/basic-values/case05.out6
-rw-r--r--testdata/language-features/basic-values/case06.out6
-rw-r--r--testdata/language-features/basic-values/def01.out6
-rw-r--r--testdata/language-features/basic-values/def03.out12
-rw-r--r--testdata/language-features/basic-values/def04.out24
-rw-r--r--testdata/language-features/basic-values/deforder01.out4
-rw-r--r--testdata/language-features/basic-values/deforder02.out4
-rw-r--r--testdata/language-features/basic-values/deforder03.out2
-rw-r--r--testdata/language-features/basic-values/deforder04.out2
-rw-r--r--testdata/language-features/basic-values/deforder05.out2
-rw-r--r--testdata/language-features/basic-values/deforder06.out2
-rw-r--r--testdata/language-features/basic-values/fixity01.out8
-rw-r--r--testdata/language-features/basic-values/fixity02.out46
-rw-r--r--testdata/language-features/basic-values/if01.out4
-rw-r--r--testdata/language-features/basic-values/indentation01.out4
-rw-r--r--testdata/language-features/basic-values/indentation02.out4
-rw-r--r--testdata/language-features/basic-values/infix01.out4
-rw-r--r--testdata/language-features/basic-values/infix02.out4
-rw-r--r--testdata/language-features/basic-values/infix03.out4
-rw-r--r--testdata/language-features/basic-values/lambda01.out16
-rw-r--r--testdata/language-features/basic-values/lambda03.out4
-rw-r--r--testdata/language-features/basic-values/let01.out17
-rw-r--r--testdata/language-features/basic-values/let02.out20
-rw-r--r--testdata/language-features/basic-values/literal01.out16
-rw-r--r--testdata/language-features/basic-values/operator01.out8
-rw-r--r--testdata/language-features/basic-values/operator05.out3
-rw-r--r--testdata/language-features/basic-values/operator06.out3
-rw-r--r--testdata/language-features/basic-values/shadowing01.out34
-rw-r--r--testdata/language-features/basic-values/shadowing02.out43
-rw-r--r--testdata/language-features/basic-values/shadowing03.out2
-rw-r--r--testdata/language-features/basic-values/shadowing04.out2
-rw-r--r--testdata/language-features/basic-values/tuple01.out2
-rw-r--r--testdata/language-features/basic-values/tuple02.out6
-rw-r--r--testdata/language-features/basic-values/typesig01.out4
-rw-r--r--testdata/language-features/basic-values/typesig02.out4
-rw-r--r--testdata/language-features/basic-values/typesig03.out4
-rw-r--r--testdata/language-features/basic-values/typesig04.out4
-rw-r--r--testdata/language-features/basic-values/typesig05.out12
-rw-r--r--testdata/language-features/basic-values/typesig06.out8
-rw-r--r--testdata/language-features/basic-values/typesig07.out12
-rw-r--r--testdata/language-features/basic-values/typesyn01.out2
-rw-r--r--testdata/language-features/basic-values/typesyn02.out4
-rw-r--r--testdata/language-features/basic-values/where01.out24
-rw-r--r--testdata/language-features/basic-values/where04.out9
-rw-r--r--testdata/language-features/basic-values/where05.out64
-rw-r--r--testdata/language-features/basic-values/wildcard01.out2
-rw-r--r--testdata/language-features/guard/guard01.out2
-rw-r--r--testdata/language-features/guard/guard03.out12
-rw-r--r--testdata/language-features/guard/guard04.out3
-rw-r--r--testdata/language-features/guard/guard06.out2
-rw-r--r--testdata/language-features/guard/guard07.out12
-rw-r--r--testdata/language-features/guard/guard08.out12
-rw-r--r--testdata/language-features/guard/guard09.out12
-rw-r--r--testdata/language-features/guard/guard11.out5
-rw-r--r--testdata/language-features/guard/guard13.out2
-rw-r--r--testdata/language-features/guard/guard14.out6
-rw-r--r--testdata/language-features/guard/guard15.out6
-rw-r--r--testdata/language-features/guard/guard16.out16
-rw-r--r--testdata/language-features/module/Hello01.out4
-rw-r--r--testdata/language-features/module/Hello02.out4
-rw-r--r--testdata/language-features/module/Hello03.out4
-rw-r--r--testdata/language-features/module/ModulePackage/SubModule01.out2
-rw-r--r--testdata/language-features/module/Moduledef06.out2
-rw-r--r--testdata/language-features/module/Moduledef07.out2
-rw-r--r--testdata/language-features/module/Moduledef08.out2
-rw-r--r--testdata/language-features/module/Moduledef09.out4
-rw-r--r--testdata/language-features/module/Moduledef10.out6
-rw-r--r--testdata/language-features/module/Moduledef13.out2
-rw-r--r--testdata/language-features/module/TypeSyn01Mod.out2
-rw-r--r--testdata/language-features/module/import01.out2
-rw-r--r--testdata/language-features/module/import05.out2
-rw-r--r--testdata/language-features/module/import06.out4
-rw-r--r--testdata/language-features/module/import07.out4
-rw-r--r--testdata/language-features/module/import08.out8
-rw-r--r--testdata/language-features/module/import09.out2
-rw-r--r--testdata/language-features/module/import12.out2
-rw-r--r--testdata/language-features/module/import13.out2
-rw-r--r--testdata/language-features/module/import14.out2
-rw-r--r--testdata/language-features/module/import15.out2
-rw-r--r--testdata/language-features/pattern/pattern01.out16
-rw-r--r--testdata/language-features/pattern/uncovered.out116
-rw-r--r--testdata/language-features/pattern/unreachable.out2
-rw-r--r--testdata/language-features/recursion/simplerec01.out12
-rw-r--r--testdata/language-features/recursion/simplerec02.out24
-rw-r--r--testdata/language-features/recursion/simplerec03.out24
-rw-r--r--testdata/language-features/section/section01.out6
-rw-r--r--testdata/let.out4
-rw-r--r--testdata/letIndent.out6
-rw-r--r--testdata/localfun2.out62
-rw-r--r--testdata/performance/Material.out472
-rw-r--r--testdata/performance/SampleMaterial.out3752
-rw-r--r--testdata/traceTest.out4
-rw-r--r--testdata/typeclass.out68
-rw-r--r--testdata/where.out8
-rw-r--r--testdata/zip01.out16
123 files changed, 6139 insertions, 5648 deletions
diff --git a/testdata/Builtins.out b/testdata/Builtins.out
index e27f95cd..c47b4fd5 100644
--- a/testdata/Builtins.out
+++ b/testdata/Builtins.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3id = \(a :: _) -> _rhs a 3id = _lhs id \(a :: _) -> _rhs a
4 4
5data VecS (_ :: Type) :: Nat -> Type where 5data VecS (_ :: Type) :: Nat -> Type where
6 V2 :: forall a . a -> a -> VecS a (fromInt 2) 6 V2 :: forall a . a -> a -> VecS a (fromInt 2)
@@ -9,27 +9,31 @@ data VecS (_ :: Type) :: Nat -> Type where
9 9
10mapVec :: forall (a :: _) (b :: _) (c :: _) . (a -> b) -> VecS a c -> VecS b c 10mapVec :: forall (a :: _) (b :: _) (c :: _) . (a -> b) -> VecS a c -> VecS b c
11mapVec 11mapVec
12 = \(a :: _) (b :: _) -> case'VecS 12 = _lhs
13 (\(_ :: _) (_ :: _) -> _) 13 mapVec
14 (\(c :: _) (d :: _) -> _rhs (V2 (a c) (a d))) 14 \(a :: _) (b :: _) -> case'VecS
15 (\(e :: _) (f :: _) (g :: _) -> _rhs (V3 (a e) (a f) (a g))) 15 (\(_ :: _) (_ :: _) -> _)
16 (\(h :: _) (i :: _) (j :: _) (k :: _) -> _rhs (V4 (a h) (a i) (a j) (a k))) 16 (\(c :: _) (d :: _) -> _rhs (V2 (a c) (a d)))
17 b 17 (\(e :: _) (f :: _) (g :: _) -> _rhs (V3 (a e) (a f) (a g)))
18 (\(h :: _) (i :: _) (j :: _) (k :: _) -> _rhs (V4 (a h) (a i) (a j) (a k)))
19 b
18 20
19'Vec :: Nat -> Type -> Type 21'Vec :: Nat -> Type -> Type
20'Vec = \(a :: _) (b :: _) -> _rhs ('VecS b a) 22'Vec = _lhs 'Vec \(a :: _) (b :: _) -> _rhs ('VecS b a)
21 23
22'VecScalar :: Nat -> Type -> Type 24'VecScalar :: Nat -> Type -> Type
23'VecScalar 25'VecScalar
24 = \(a :: _) (b :: _) -> case'Nat 26 = _lhs
25 (\(_ :: _) -> _) 27 'VecScalar
26 undefined 28 \(a :: _) (b :: _) -> case'Nat
27 (\(c :: _) -> case'Nat
28 (\(_ :: _) -> _) 29 (\(_ :: _) -> _)
29 (_rhs b) 30 undefined
30 (\(d :: _) -> _rhs ('Vec (Succ (Succ d)) b)) 31 (\(c :: _) -> case'Nat
31 c) 32 (\(_ :: _) -> _)
32 a 33 (_rhs b)
34 (\(d :: _) -> _rhs ('Vec (Succ (Succ d)) b))
35 c)
36 a
33 37
34data Mat :: Nat -> Nat -> Type -> Type where 38data Mat :: Nat -> Nat -> Type -> Type where
35 M22F 39 M22F
@@ -71,368 +75,347 @@ data Mat :: Nat -> Nat -> Type -> Type where
71 75
72'MatVecScalarElem :: Type -> Type 76'MatVecScalarElem :: Type -> Type
73'MatVecScalarElem 77'MatVecScalarElem
74 = \(a :: _) -> match'Float 78 = _lhs
75 (\(_ :: _) -> _) 79 'MatVecScalarElem
76 (_rhs 'Float) 80 \(a :: _) -> match'Float
77 a
78 (match'Bool
79 (\(_ :: _) -> _) 81 (\(_ :: _) -> _)
80 (_rhs 'Bool) 82 (_rhs 'Float)
81 a 83 a
82 (match'Int 84 (match'Bool
83 (\(_ :: _) -> _) 85 (\(_ :: _) -> _)
84 (_rhs 'Int) 86 (_rhs 'Bool)
85 a 87 a
86 (match'VecS 88 (match'Int
87 (\(_ :: _) -> _) 89 (\(_ :: _) -> _)
88 (\(b :: _) (_ :: _) -> _rhs b) 90 (_rhs 'Int)
89 a 91 a
90 (match'Mat 92 (match'VecS
91 (\(_ :: _) -> _) 93 (\(_ :: _) -> _)
92 (\(_ :: _) (_ :: _) (c :: _) -> _rhs c) 94 (\(b :: _) (_ :: _) -> _rhs b)
93 a 95 a
94 undefined)))) 96 (match'Mat
97 (\(_ :: _) -> _)
98 (\(_ :: _) (_ :: _) (c :: _) -> _rhs c)
99 a
100 undefined))))
95 101
96'Signed :: Type -> Constraint 102'Signed :: Type -> Constraint
97'Signed 103'Signed
98 = \(a :: _) -> match'Int 104 = _lhs
99 (\(_ :: _) -> _) 105 'Signed
100 (_rhs 'CUnit) 106 \(a :: _) -> match'Int
101 a
102 (match'Float
103 (\(_ :: _) -> _) 107 (\(_ :: _) -> _)
104 (_rhs 'CUnit) 108 (_rhs 'CUnit)
105 a 109 a
106 (_rhs ('CEmpty "no instance of 'Signed on ???"))) 110 (match'Float
111 (\(_ :: _) -> _)
112 (_rhs 'CUnit)
113 a
114 (_rhs ('CEmpty "no instance of 'Signed on ???")))
107 115
108'Component :: Type -> Constraint 116'Component :: Type -> Constraint
109'Component 117'Component
110 = \(a :: _) -> match'Int 118 = _lhs
111 (\(_ :: _) -> _) 119 'Component
112 (_rhs 'CUnit) 120 \(a :: _) -> match'Int
113 a
114 (match'Word
115 (\(_ :: _) -> _) 121 (\(_ :: _) -> _)
116 (_rhs 'CUnit) 122 (_rhs 'CUnit)
117 a 123 a
118 (match'Float 124 (match'Word
119 (\(_ :: _) -> _) 125 (\(_ :: _) -> _)
120 (_rhs 'CUnit) 126 (_rhs 'CUnit)
121 a 127 a
122 (match'VecS 128 (match'Float
123 (\(_ :: _) -> _) 129 (\(_ :: _) -> _)
124 (\(b :: _) (c :: _) -> match'Float 130 (_rhs 'CUnit)
131 a
132 (match'VecS
125 (\(_ :: _) -> _) 133 (\(_ :: _) -> _)
126 (case'Nat 134 (\(b :: _) (c :: _) -> match'Float
127 (\(_ :: _) -> _) 135 (\(_ :: _) -> _)
128 (_rhs ('CEmpty "no instance of 'Component on ???")) 136 (case'Nat
129 (\(d :: _) -> case'Nat
130 (\(_ :: _) -> _) 137 (\(_ :: _) -> _)
131 (_rhs ('CEmpty "no instance of 'Component on ???")) 138 (_rhs ('CEmpty "no instance of 'Component on ???"))
132 (\(e :: _) -> case'Nat 139 (\(d :: _) -> case'Nat
133 (\(_ :: _) -> _) 140 (\(_ :: _) -> _)
134 (_rhs 'CUnit) 141 (_rhs ('CEmpty "no instance of 'Component on ???"))
135 (\(f :: _) -> case'Nat 142 (\(e :: _) -> case'Nat
136 (\(_ :: _) -> _) 143 (\(_ :: _) -> _)
137 (_rhs 'CUnit) 144 (_rhs 'CUnit)
138 (\(g :: _) -> case'Nat 145 (\(f :: _) -> case'Nat
139 (\(_ :: _) -> _) 146 (\(_ :: _) -> _)
140 (_rhs 'CUnit) 147 (_rhs 'CUnit)
141 (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Component on ???")) 148 (\(g :: _) -> case'Nat
142 g) 149 (\(_ :: _) -> _)
143 f) 150 (_rhs 'CUnit)
144 e) 151 (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Component on ???"))
145 d) 152 g)
146 c) 153 f)
147 b 154 e)
148 (match'Bool 155 d)
149 (\(_ :: _) -> _) 156 c)
150 (case'Nat 157 b
158 (match'Bool
151 (\(_ :: _) -> _) 159 (\(_ :: _) -> _)
152 (_rhs ('CEmpty "no instance of 'Component on ???")) 160 (case'Nat
153 (\(h :: _) -> case'Nat
154 (\(_ :: _) -> _) 161 (\(_ :: _) -> _)
155 (_rhs ('CEmpty "no instance of 'Component on ???")) 162 (_rhs ('CEmpty "no instance of 'Component on ???"))
156 (\(i :: _) -> case'Nat 163 (\(h :: _) -> case'Nat
157 (\(_ :: _) -> _) 164 (\(_ :: _) -> _)
158 (_rhs 'CUnit) 165 (_rhs ('CEmpty "no instance of 'Component on ???"))
159 (\(j :: _) -> case'Nat 166 (\(i :: _) -> case'Nat
160 (\(_ :: _) -> _) 167 (\(_ :: _) -> _)
161 (_rhs 'CUnit) 168 (_rhs 'CUnit)
162 (\(k :: _) -> case'Nat 169 (\(j :: _) -> case'Nat
163 (\(_ :: _) -> _) 170 (\(_ :: _) -> _)
164 (_rhs 'CUnit) 171 (_rhs 'CUnit)
165 (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Component on ???")) 172 (\(k :: _) -> case'Nat
166 k) 173 (\(_ :: _) -> _)
167 j) 174 (_rhs 'CUnit)
168 i) 175 (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Component on ???"))
169 h) 176 k)
170 c) 177 j)
171 b 178 i)
172 (_rhs ('CEmpty "no instance of 'Component on ???")))) 179 h)
173 a 180 c)
174 (match'Bool 181 b
175 (\(_ :: _) -> _) 182 (_rhs ('CEmpty "no instance of 'Component on ???"))))
176 (_rhs 'CUnit)
177 a 183 a
178 (_rhs ('CEmpty "no instance of 'Component on ???")))))) 184 (match'Bool
185 (\(_ :: _) -> _)
186 (_rhs 'CUnit)
187 a
188 (_rhs ('CEmpty "no instance of 'Component on ???"))))))
179 189
180zero :: forall a . Component a => a 190zero :: forall a . Component a => a
181zero 191zero
182 = \ @a @(_ :: _) -> match'Int 192 = _lhs
183 (\(_ :: _) -> _) 193 zero
184 (_rhs let b = _rhs (fromInt 0 :: Int) in b) 194 \ @a @(_ :: _) -> match'Int
185 a
186 (match'Word
187 (\(_ :: _) -> _) 195 (\(_ :: _) -> _)
188 (_rhs let c = _rhs (fromInt 0 :: Word) in c) 196 (_rhs let b = _lhs zero (_rhs (fromInt 0 :: Int)) in b)
189 a 197 a
190 (match'Float 198 (match'Word
191 (\(_ :: _) -> _) 199 (\(_ :: _) -> _)
192 (_rhs let d = _rhs 0.0 in d) 200 (_rhs let c = _lhs zero (_rhs (fromInt 0 :: Word)) in c)
193 a 201 a
194 (match'VecS 202 (match'Float
195 (\(_ :: _) -> _) 203 (\(_ :: _) -> _)
196 (\(e :: _) (f :: _) -> match'Float 204 (_rhs let d = _lhs zero (_rhs 0.0) in d)
205 a
206 (match'VecS
197 (\(_ :: _) -> _) 207 (\(_ :: _) -> _)
198 (case'Nat 208 (\(e :: _) (f :: _) -> match'Float
199 (\(_ :: _) -> _)
200 (_rhs undefined)
201 (\(g :: _) -> case'Nat
202 (\(_ :: _) -> _)
203 (_rhs undefined)
204 (\(h :: _) -> case'Nat
205 (\(_ :: _) -> _)
206 (_rhs let i = _rhs (V2 0.0 0.0) in i)
207 (\(j :: _) -> case'Nat
208 (\(_ :: _) -> _)
209 (_rhs let k = _rhs (V3 0.0 0.0 0.0) in k)
210 (\(l :: _) -> case'Nat
211 (\(_ :: _) -> _)
212 (_rhs let m = _rhs (V4 0.0 0.0 0.0 0.0) in m)
213 (\(_ :: _) -> _rhs undefined)
214 l)
215 j)
216 h)
217 g)
218 f)
219 e
220 (match'Bool
221 (\(_ :: _) -> _) 209 (\(_ :: _) -> _)
222 (case'Nat 210 (case'Nat
223 (\(_ :: _) -> _) 211 (\(_ :: _) -> _)
224 (_rhs undefined) 212 (_rhs undefined)
225 (\(n :: _) -> case'Nat 213 (\(g :: _) -> case'Nat
226 (\(_ :: _) -> _) 214 (\(_ :: _) -> _)
227 (_rhs undefined) 215 (_rhs undefined)
228 (\(o :: _) -> case'Nat 216 (\(h :: _) -> case'Nat
229 (\(_ :: _) -> _) 217 (\(_ :: _) -> _)
230 (_rhs let p = _rhs (V2 False False) in p) 218 (_rhs let i = _lhs zero (_rhs (V2 0.0 0.0)) in i)
231 (\(q :: _) -> case'Nat 219 (\(j :: _) -> case'Nat
232 (\(_ :: _) -> _) 220 (\(_ :: _) -> _)
233 (_rhs let r = _rhs (V3 False False False) in r) 221 (_rhs let k = _lhs zero (_rhs (V3 0.0 0.0 0.0)) in k)
234 (\(s :: _) -> case'Nat 222 (\(l :: _) -> case'Nat
235 (\(_ :: _) -> _) 223 (\(_ :: _) -> _)
236 (_rhs let t = _rhs (V4 False False False False) in t) 224 (_rhs let m = _lhs zero (_rhs (V4 0.0 0.0 0.0 0.0)) in m)
237 (\(_ :: _) -> _rhs undefined) 225 (\(_ :: _) -> _rhs undefined)
238 s) 226 l)
239 q) 227 j)
240 o) 228 h)
241 n) 229 g)
242 f) 230 f)
243 e 231 e
244 (_rhs undefined))) 232 (match'Bool
245 a 233 (\(_ :: _) -> _)
246 (match'Bool 234 (case'Nat
247 (\(_ :: _) -> _) 235 (\(_ :: _) -> _)
248 (_rhs let u = _rhs False in u) 236 (_rhs undefined)
237 (\(n :: _) -> case'Nat
238 (\(_ :: _) -> _)
239 (_rhs undefined)
240 (\(o :: _) -> case'Nat
241 (\(_ :: _) -> _)
242 (_rhs let p = _lhs zero (_rhs (V2 False False)) in p)
243 (\(q :: _) -> case'Nat
244 (\(_ :: _) -> _)
245 (_rhs let r = _lhs zero (_rhs (V3 False False False)) in r)
246 (\(s :: _) -> case'Nat
247 (\(_ :: _) -> _)
248 (_rhs let t = _lhs zero (_rhs (V4 False False False False)) in t)
249 (\(_ :: _) -> _rhs undefined)
250 s)
251 q)
252 o)
253 n)
254 f)
255 e
256 (_rhs undefined)))
249 a 257 a
250 (_rhs undefined))))) 258 (match'Bool
259 (\(_ :: _) -> _)
260 (_rhs let u = _lhs zero (_rhs False) in u)
261 a
262 (_rhs undefined)))))
251 263
252one :: forall a . Component a => a 264one :: forall a . Component a => a
253one 265one
254 = \ @a @(_ :: _) -> match'Int 266 = _lhs
255 (\(_ :: _) -> _) 267 one
256 (_rhs let b = _rhs (fromInt 1 :: Int) in b) 268 \ @a @(_ :: _) -> match'Int
257 a
258 (match'Word
259 (\(_ :: _) -> _) 269 (\(_ :: _) -> _)
260 (_rhs let c = _rhs (fromInt 1 :: Word) in c) 270 (_rhs let b = _lhs one (_rhs (fromInt 1 :: Int)) in b)
261 a 271 a
262 (match'Float 272 (match'Word
263 (\(_ :: _) -> _) 273 (\(_ :: _) -> _)
264 (_rhs let d = _rhs 1.0 in d) 274 (_rhs let c = _lhs one (_rhs (fromInt 1 :: Word)) in c)
265 a 275 a
266 (match'VecS 276 (match'Float
267 (\(_ :: _) -> _) 277 (\(_ :: _) -> _)
268 (\(e :: _) (f :: _) -> match'Float 278 (_rhs let d = _lhs one (_rhs 1.0) in d)
279 a
280 (match'VecS
269 (\(_ :: _) -> _) 281 (\(_ :: _) -> _)
270 (case'Nat 282 (\(e :: _) (f :: _) -> match'Float
271 (\(_ :: _) -> _)
272 (_rhs undefined)
273 (\(g :: _) -> case'Nat
274 (\(_ :: _) -> _)
275 (_rhs undefined)
276 (\(h :: _) -> case'Nat
277 (\(_ :: _) -> _)
278 (_rhs let i = _rhs (V2 1.0 1.0) in i)
279 (\(j :: _) -> case'Nat
280 (\(_ :: _) -> _)
281 (_rhs let k = _rhs (V3 1.0 1.0 1.0) in k)
282 (\(l :: _) -> case'Nat
283 (\(_ :: _) -> _)
284 (_rhs let m = _rhs (V4 1.0 1.0 1.0 1.0) in m)
285 (\(_ :: _) -> _rhs undefined)
286 l)
287 j)
288 h)
289 g)
290 f)
291 e
292 (match'Bool
293 (\(_ :: _) -> _) 283 (\(_ :: _) -> _)
294 (case'Nat 284 (case'Nat
295 (\(_ :: _) -> _) 285 (\(_ :: _) -> _)
296 (_rhs undefined) 286 (_rhs undefined)
297 (\(n :: _) -> case'Nat 287 (\(g :: _) -> case'Nat
298 (\(_ :: _) -> _) 288 (\(_ :: _) -> _)
299 (_rhs undefined) 289 (_rhs undefined)
300 (\(o :: _) -> case'Nat 290 (\(h :: _) -> case'Nat
301 (\(_ :: _) -> _) 291 (\(_ :: _) -> _)
302 (_rhs let p = _rhs (V2 True True) in p) 292 (_rhs let i = _lhs one (_rhs (V2 1.0 1.0)) in i)
303 (\(q :: _) -> case'Nat 293 (\(j :: _) -> case'Nat
304 (\(_ :: _) -> _) 294 (\(_ :: _) -> _)
305 (_rhs let r = _rhs (V3 True True True) in r) 295 (_rhs let k = _lhs one (_rhs (V3 1.0 1.0 1.0)) in k)
306 (\(s :: _) -> case'Nat 296 (\(l :: _) -> case'Nat
307 (\(_ :: _) -> _) 297 (\(_ :: _) -> _)
308 (_rhs let t = _rhs (V4 True True True True) in t) 298 (_rhs let m = _lhs one (_rhs (V4 1.0 1.0 1.0 1.0)) in m)
309 (\(_ :: _) -> _rhs undefined) 299 (\(_ :: _) -> _rhs undefined)
310 s) 300 l)
311 q) 301 j)
312 o) 302 h)
313 n) 303 g)
314 f) 304 f)
315 e 305 e
316 (_rhs undefined))) 306 (match'Bool
317 a 307 (\(_ :: _) -> _)
318 (match'Bool 308 (case'Nat
319 (\(_ :: _) -> _) 309 (\(_ :: _) -> _)
320 (_rhs let u = _rhs True in u) 310 (_rhs undefined)
311 (\(n :: _) -> case'Nat
312 (\(_ :: _) -> _)
313 (_rhs undefined)
314 (\(o :: _) -> case'Nat
315 (\(_ :: _) -> _)
316 (_rhs let p = _lhs one (_rhs (V2 True True)) in p)
317 (\(q :: _) -> case'Nat
318 (\(_ :: _) -> _)
319 (_rhs let r = _lhs one (_rhs (V3 True True True)) in r)
320 (\(s :: _) -> case'Nat
321 (\(_ :: _) -> _)
322 (_rhs let t = _lhs one (_rhs (V4 True True True True)) in t)
323 (\(_ :: _) -> _rhs undefined)
324 s)
325 q)
326 o)
327 n)
328 f)
329 e
330 (_rhs undefined)))
321 a 331 a
322 (_rhs undefined))))) 332 (match'Bool
333 (\(_ :: _) -> _)
334 (_rhs let u = _lhs one (_rhs True) in u)
335 a
336 (_rhs undefined)))))
323 337
324'Integral :: Type -> Constraint 338'Integral :: Type -> Constraint
325'Integral 339'Integral
326 = \(a :: _) -> match'Int 340 = _lhs
327 (\(_ :: _) -> _) 341 'Integral
328 (_rhs 'CUnit) 342 \(a :: _) -> match'Int
329 a
330 (match'Word
331 (\(_ :: _) -> _) 343 (\(_ :: _) -> _)
332 (_rhs 'CUnit) 344 (_rhs 'CUnit)
333 a 345 a
334 (_rhs ('CEmpty "no instance of 'Integral on ???"))) 346 (match'Word
347 (\(_ :: _) -> _)
348 (_rhs 'CUnit)
349 a
350 (_rhs ('CEmpty "no instance of 'Integral on ???")))
335 351
336'Floating :: Type -> Constraint 352'Floating :: Type -> Constraint
337'Floating 353'Floating
338 = \(a :: _) -> match'Float 354 = _lhs
339 (\(_ :: _) -> _) 355 'Floating
340 (_rhs 'CUnit) 356 \(a :: _) -> match'Float
341 a
342 (match'VecS
343 (\(_ :: _) -> _) 357 (\(_ :: _) -> _)
344 (\(b :: _) (c :: _) -> match'Float 358 (_rhs 'CUnit)
359 a
360 (match'VecS
345 (\(_ :: _) -> _) 361 (\(_ :: _) -> _)
346 (case'Nat 362 (\(b :: _) (c :: _) -> match'Float
347 (\(_ :: _) -> _) 363 (\(_ :: _) -> _)
348 (_rhs ('CEmpty "no instance of 'Floating on ???")) 364 (case'Nat
349 (\(d :: _) -> case'Nat
350 (\(_ :: _) -> _) 365 (\(_ :: _) -> _)
351 (_rhs ('CEmpty "no instance of 'Floating on ???")) 366 (_rhs ('CEmpty "no instance of 'Floating on ???"))
352 (\(e :: _) -> case'Nat 367 (\(d :: _) -> case'Nat
353 (\(_ :: _) -> _) 368 (\(_ :: _) -> _)
354 (_rhs 'CUnit) 369 (_rhs ('CEmpty "no instance of 'Floating on ???"))
355 (\(f :: _) -> case'Nat 370 (\(e :: _) -> case'Nat
356 (\(_ :: _) -> _) 371 (\(_ :: _) -> _)
357 (_rhs 'CUnit) 372 (_rhs 'CUnit)
358 (\(g :: _) -> case'Nat 373 (\(f :: _) -> case'Nat
359 (\(_ :: _) -> _) 374 (\(_ :: _) -> _)
360 (_rhs 'CUnit) 375 (_rhs 'CUnit)
361 (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???")) 376 (\(g :: _) -> case'Nat
362 g) 377 (\(_ :: _) -> _)
363 f) 378 (_rhs 'CUnit)
364 e) 379 (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???"))
365 d) 380 g)
366 c) 381 f)
367 b 382 e)
368 (_rhs ('CEmpty "no instance of 'Floating on ???"))) 383 d)
369 a 384 c)
370 (match'Mat 385 b
371 (\(_ :: _) -> _) 386 (_rhs ('CEmpty "no instance of 'Floating on ???")))
372 (\(h :: _) (i :: _) (j :: _) -> case'Nat 387 a
388 (match'Mat
373 (\(_ :: _) -> _) 389 (\(_ :: _) -> _)
374 (_rhs ('CEmpty "no instance of 'Floating on ???")) 390 (\(h :: _) (i :: _) (j :: _) -> case'Nat
375 (\(k :: _) -> case'Nat
376 (\(_ :: _) -> _) 391 (\(_ :: _) -> _)
377 (_rhs ('CEmpty "no instance of 'Floating on ???")) 392 (_rhs ('CEmpty "no instance of 'Floating on ???"))
378 (\(l :: _) -> case'Nat 393 (\(k :: _) -> case'Nat
379 (\(_ :: _) -> _) 394 (\(_ :: _) -> _)
380 (case'Nat 395 (_rhs ('CEmpty "no instance of 'Floating on ???"))
381 (\(_ :: _) -> _) 396 (\(l :: _) -> case'Nat
382 (_rhs ('CEmpty "no instance of 'Floating on ???"))
383 (\(m :: _) -> case'Nat
384 (\(_ :: _) -> _)
385 (_rhs ('CEmpty "no instance of 'Floating on ???"))
386 (\(n :: _) -> case'Nat
387 (\(_ :: _) -> _)
388 (match'Float
389 (\(_ :: _) -> _)
390 (_rhs 'CUnit)
391 j
392 (_rhs ('CEmpty "no instance of 'Floating on ???")))
393 (\(o :: _) -> case'Nat
394 (\(_ :: _) -> _)
395 (match'Float
396 (\(_ :: _) -> _)
397 (_rhs 'CUnit)
398 j
399 (_rhs ('CEmpty "no instance of 'Floating on ???")))
400 (\(p :: _) -> case'Nat
401 (\(_ :: _) -> _)
402 (match'Float
403 (\(_ :: _) -> _)
404 (_rhs 'CUnit)
405 j
406 (_rhs ('CEmpty "no instance of 'Floating on ???")))
407 (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???"))
408 p)
409 o)
410 n)
411 m)
412 i)
413 (\(q :: _) -> case'Nat
414 (\(_ :: _) -> _) 397 (\(_ :: _) -> _)
415 (case'Nat 398 (case'Nat
416 (\(_ :: _) -> _) 399 (\(_ :: _) -> _)
417 (_rhs ('CEmpty "no instance of 'Floating on ???")) 400 (_rhs ('CEmpty "no instance of 'Floating on ???"))
418 (\(r :: _) -> case'Nat 401 (\(m :: _) -> case'Nat
419 (\(_ :: _) -> _) 402 (\(_ :: _) -> _)
420 (_rhs ('CEmpty "no instance of 'Floating on ???")) 403 (_rhs ('CEmpty "no instance of 'Floating on ???"))
421 (\(s :: _) -> case'Nat 404 (\(n :: _) -> case'Nat
422 (\(_ :: _) -> _) 405 (\(_ :: _) -> _)
423 (match'Float 406 (match'Float
424 (\(_ :: _) -> _) 407 (\(_ :: _) -> _)
425 (_rhs 'CUnit) 408 (_rhs 'CUnit)
426 j 409 j
427 (_rhs ('CEmpty "no instance of 'Floating on ???"))) 410 (_rhs ('CEmpty "no instance of 'Floating on ???")))
428 (\(t :: _) -> case'Nat 411 (\(o :: _) -> case'Nat
429 (\(_ :: _) -> _) 412 (\(_ :: _) -> _)
430 (match'Float 413 (match'Float
431 (\(_ :: _) -> _) 414 (\(_ :: _) -> _)
432 (_rhs 'CUnit) 415 (_rhs 'CUnit)
433 j 416 j
434 (_rhs ('CEmpty "no instance of 'Floating on ???"))) 417 (_rhs ('CEmpty "no instance of 'Floating on ???")))
435 (\(u :: _) -> case'Nat 418 (\(p :: _) -> case'Nat
436 (\(_ :: _) -> _) 419 (\(_ :: _) -> _)
437 (match'Float 420 (match'Float
438 (\(_ :: _) -> _) 421 (\(_ :: _) -> _)
@@ -440,34 +423,34 @@ one
440 j 423 j
441 (_rhs ('CEmpty "no instance of 'Floating on ???"))) 424 (_rhs ('CEmpty "no instance of 'Floating on ???")))
442 (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???")) 425 (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???"))
443 u) 426 p)
444 t) 427 o)
445 s) 428 n)
446 r) 429 m)
447 i) 430 i)
448 (\(v :: _) -> case'Nat 431 (\(q :: _) -> case'Nat
449 (\(_ :: _) -> _) 432 (\(_ :: _) -> _)
450 (case'Nat 433 (case'Nat
451 (\(_ :: _) -> _) 434 (\(_ :: _) -> _)
452 (_rhs ('CEmpty "no instance of 'Floating on ???")) 435 (_rhs ('CEmpty "no instance of 'Floating on ???"))
453 (\(w :: _) -> case'Nat 436 (\(r :: _) -> case'Nat
454 (\(_ :: _) -> _) 437 (\(_ :: _) -> _)
455 (_rhs ('CEmpty "no instance of 'Floating on ???")) 438 (_rhs ('CEmpty "no instance of 'Floating on ???"))
456 (\(x :: _) -> case'Nat 439 (\(s :: _) -> case'Nat
457 (\(_ :: _) -> _) 440 (\(_ :: _) -> _)
458 (match'Float 441 (match'Float
459 (\(_ :: _) -> _) 442 (\(_ :: _) -> _)
460 (_rhs 'CUnit) 443 (_rhs 'CUnit)
461 j 444 j
462 (_rhs ('CEmpty "no instance of 'Floating on ???"))) 445 (_rhs ('CEmpty "no instance of 'Floating on ???")))
463 (\(y :: _) -> case'Nat 446 (\(t :: _) -> case'Nat
464 (\(_ :: _) -> _) 447 (\(_ :: _) -> _)
465 (match'Float 448 (match'Float
466 (\(_ :: _) -> _) 449 (\(_ :: _) -> _)
467 (_rhs 'CUnit) 450 (_rhs 'CUnit)
468 j 451 j
469 (_rhs ('CEmpty "no instance of 'Floating on ???"))) 452 (_rhs ('CEmpty "no instance of 'Floating on ???")))
470 (\(z :: _) -> case'Nat 453 (\(u :: _) -> case'Nat
471 (\(_ :: _) -> _) 454 (\(_ :: _) -> _)
472 (match'Float 455 (match'Float
473 (\(_ :: _) -> _) 456 (\(_ :: _) -> _)
@@ -475,19 +458,54 @@ one
475 j 458 j
476 (_rhs ('CEmpty "no instance of 'Floating on ???"))) 459 (_rhs ('CEmpty "no instance of 'Floating on ???")))
477 (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???")) 460 (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???"))
478 z) 461 u)
479 y) 462 t)
480 x) 463 s)
481 w) 464 r)
482 i) 465 i)
483 (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???")) 466 (\(v :: _) -> case'Nat
484 v) 467 (\(_ :: _) -> _)
485 q) 468 (case'Nat
486 l) 469 (\(_ :: _) -> _)
487 k) 470 (_rhs ('CEmpty "no instance of 'Floating on ???"))
488 h) 471 (\(w :: _) -> case'Nat
489 a 472 (\(_ :: _) -> _)
490 (_rhs ('CEmpty "no instance of 'Floating on ???")))) 473 (_rhs ('CEmpty "no instance of 'Floating on ???"))
474 (\(x :: _) -> case'Nat
475 (\(_ :: _) -> _)
476 (match'Float
477 (\(_ :: _) -> _)
478 (_rhs 'CUnit)
479 j
480 (_rhs ('CEmpty "no instance of 'Floating on ???")))
481 (\(y :: _) -> case'Nat
482 (\(_ :: _) -> _)
483 (match'Float
484 (\(_ :: _) -> _)
485 (_rhs 'CUnit)
486 j
487 (_rhs ('CEmpty "no instance of 'Floating on ???")))
488 (\(z :: _) -> case'Nat
489 (\(_ :: _) -> _)
490 (match'Float
491 (\(_ :: _) -> _)
492 (_rhs 'CUnit)
493 j
494 (_rhs ('CEmpty "no instance of 'Floating on ???")))
495 (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???"))
496 z)
497 y)
498 x)
499 w)
500 i)
501 (\(_ :: _) -> _rhs ('CEmpty "no instance of 'Floating on ???"))
502 v)
503 q)
504 l)
505 k)
506 h)
507 a
508 (_rhs ('CEmpty "no instance of 'Floating on ???"))))
491 509
492PrimAdd :: forall (a :: _) . Num (MatVecScalarElem a) => a -> a -> a 510PrimAdd :: forall (a :: _) . Num (MatVecScalarElem a) => a -> a -> a
493 511
@@ -778,44 +796,54 @@ PrimNoise3 :: forall (a :: _) . VecScalar a Float -> Vec (fromInt 3) Float
778PrimNoise4 :: forall (a :: _) . VecScalar a Float -> Vec (fromInt 4) Float 796PrimNoise4 :: forall (a :: _) . VecScalar a Float -> Vec (fromInt 4) Float
779 797
780head 798head
781 = \(a :: _) -> case'List 799 = _lhs
782 (\(_ :: _) -> _) 800 head
783 (_rhs undefined) 801 \(a :: _) -> case'List
784 (\(b :: _) (_ :: _) -> _rhs b) 802 (\(_ :: _) -> _)
785 a 803 (_rhs undefined)
804 (\(b :: _) (_ :: _) -> _rhs b)
805 a
786 806
787(++) 807(++)
788 = \(a :: _) (b :: _) -> case'List 808 = _lhs
789 (\(_ :: _) -> _) 809 (++)
790 (_rhs b) 810 \(a :: _) (b :: _) -> case'List
791 (\(c :: _) (d :: _) -> _rhs (c : d ++ b)) 811 (\(_ :: _) -> _)
792 a 812 (_rhs b)
813 (\(c :: _) (d :: _) -> _rhs (c : d ++ b))
814 a
793 815
794foldr 816foldr
795 = \(a :: _) (b :: _) (c :: _) -> case'List 817 = _lhs
796 (\(_ :: _) -> _) 818 foldr
797 (_rhs b) 819 \(a :: _) (b :: _) (c :: _) -> case'List
798 (\(d :: _) (e :: _) -> _rhs (a d (foldr a b e))) 820 (\(_ :: _) -> _)
799 c 821 (_rhs b)
822 (\(d :: _) (e :: _) -> _rhs (a d (foldr a b e)))
823 c
800 824
801concat = _rhs (foldr (++) []) 825concat = _lhs concat (_rhs (foldr (++) []))
802 826
803map 827map
804 = \(a :: _) (b :: _) -> case'List 828 = _lhs
805 (\(_ :: _) -> _) 829 map
806 (_rhs []) 830 \(a :: _) (b :: _) -> case'List
807 (\(c :: _) (d :: _) -> _rhs (a c : map a d)) 831 (\(_ :: _) -> _)
808 b 832 (_rhs [])
833 (\(c :: _) (d :: _) -> _rhs (a c : map a d))
834 b
809 835
810concatMap :: forall (a :: _) (b :: _) . (a -> [b]) -> [a] -> [b] 836concatMap :: forall (a :: _) (b :: _) . (a -> [b]) -> [a] -> [b]
811concatMap = \(a :: _) (b :: _) -> _rhs (concat (map a b)) 837concatMap = _lhs concatMap \(a :: _) (b :: _) -> _rhs (concat (map a b))
812 838
813len 839len
814 = \(a :: _) -> case'List 840 = _lhs
815 (\(_ :: _) -> _) 841 len
816 (_rhs (fromInt 0)) 842 \(a :: _) -> case'List
817 (\(_ :: _) (b :: _) -> _rhs (fromInt 1 `primAddInt` len b)) 843 (\(_ :: _) -> _)
818 a 844 (_rhs (fromInt 0))
845 (\(_ :: _) (b :: _) -> _rhs (fromInt 1 `primAddInt` len b))
846 a
819 847
820data Maybe (_ :: Type) :: Type where 848data Maybe (_ :: Type) :: Type where
821 Nothing :: forall a . Maybe a 849 Nothing :: forall a . Maybe a
@@ -840,16 +868,19 @@ mapPrimitive
840 :: forall (a :: _) (b :: _) (c :: _) 868 :: forall (a :: _) (b :: _) (c :: _)
841 . (a -> b) -> Primitive a c -> Primitive b c 869 . (a -> b) -> Primitive a c -> Primitive b c
842 870
843'PrimitiveStream = \(a :: _) (b :: _) -> _rhs ['Primitive b a] 871'PrimitiveStream
872 = _lhs 'PrimitiveStream \(a :: _) (b :: _) -> _rhs ['Primitive b a]
844 873
845mapPrimitives 874mapPrimitives
846 :: forall (a :: _) (b :: _) (c :: _) 875 :: forall (a :: _) (b :: _) (c :: _)
847 . (a -> b) -> PrimitiveStream c a -> PrimitiveStream c b 876 . (a -> b) -> PrimitiveStream c a -> PrimitiveStream c b
848mapPrimitives = \(a :: _) -> _rhs (map (mapPrimitive a)) 877mapPrimitives = _lhs mapPrimitives \(a :: _) -> _rhs (map (mapPrimitive a))
849 878
850'ListElem :: Type -> Type 879'ListElem :: Type -> Type
851'ListElem 880'ListElem
852 = \(a :: _) -> match'List (\(_ :: _) -> _) (\(b :: _) -> _rhs b) a undefined 881 = _lhs
882 'ListElem
883 \(a :: _) -> match'List (\(_ :: _) -> _) (\(b :: _) -> _rhs b) a undefined
853 884
854fetchArrays 885fetchArrays
855 :: forall (a :: _) (b :: _) (c :: _) 886 :: forall (a :: _) (b :: _) (c :: _)
@@ -868,21 +899,29 @@ fetchStream
868data SimpleFragment (_ :: Type) :: Type where 899data SimpleFragment (_ :: Type) :: Type where
869 SimpleFragment :: forall a . Vec (fromInt 3) Float -> a -> SimpleFragment a 900 SimpleFragment :: forall a . Vec (fromInt 3) Float -> a -> SimpleFragment a
870 901
871'Fragment = \(a :: _) (b :: _) -> _rhs ('Vector a ('Maybe ('SimpleFragment b))) 902'Fragment
903 = _lhs
904 'Fragment
905 \(a :: _) (b :: _) -> _rhs ('Vector a ('Maybe ('SimpleFragment b)))
872 906
873sFragmentCoords 907sFragmentCoords
874 = \(a :: _) -> case'SimpleFragment 908 = _lhs
875 (\(_ :: _) -> _) 909 sFragmentCoords
876 (\(b :: _) (_ :: _) -> _rhs b) 910 \(a :: _) -> case'SimpleFragment
877 a 911 (\(_ :: _) -> _)
912 (\(b :: _) (_ :: _) -> _rhs b)
913 a
878 914
879sFragmentValue 915sFragmentValue
880 = \(a :: _) -> case'SimpleFragment 916 = _lhs
881 (\(_ :: _) -> _) 917 sFragmentValue
882 (\(_ :: _) (b :: _) -> _rhs b) 918 \(a :: _) -> case'SimpleFragment
883 a 919 (\(_ :: _) -> _)
920 (\(_ :: _) (b :: _) -> _rhs b)
921 a
884 922
885'FragmentStream = \(a :: _) (b :: _) -> _rhs ['Fragment a b] 923'FragmentStream
924 = _lhs 'FragmentStream \(a :: _) (b :: _) -> _rhs ['Fragment a b]
886 925
887customizeDepth 926customizeDepth
888 :: forall (a :: _) (b :: _) . (a -> Float) -> Fragment b a -> Fragment b a 927 :: forall (a :: _) (b :: _) . (a -> Float) -> Fragment b a -> Fragment b a
@@ -890,7 +929,8 @@ customizeDepth
890customizeDepths 929customizeDepths
891 :: forall (a :: _) (b :: _) 930 :: forall (a :: _) (b :: _)
892 . (a -> Float) -> FragmentStream b a -> FragmentStream b a 931 . (a -> Float) -> FragmentStream b a -> FragmentStream b a
893customizeDepths = \(a :: _) -> _rhs (map (customizeDepth a)) 932customizeDepths
933 = _lhs customizeDepths \(a :: _) -> _rhs (map (customizeDepth a))
894 934
895filterFragment 935filterFragment
896 :: forall (a :: _) (b :: _) . (a -> Bool) -> Fragment b a -> Fragment b a 936 :: forall (a :: _) (b :: _) . (a -> Bool) -> Fragment b a -> Fragment b a
@@ -898,7 +938,8 @@ filterFragment
898filterFragments 938filterFragments
899 :: forall (a :: _) (b :: _) 939 :: forall (a :: _) (b :: _)
900 . (a -> Bool) -> FragmentStream b a -> FragmentStream b a 940 . (a -> Bool) -> FragmentStream b a -> FragmentStream b a
901filterFragments = \(a :: _) -> _rhs (map (filterFragment a)) 941filterFragments
942 = _lhs filterFragments \(a :: _) -> _rhs (map (filterFragment a))
902 943
903mapFragment 944mapFragment
904 :: forall (a :: _) (b :: _) (c :: _) . (a -> b) -> Fragment c a -> Fragment c b 945 :: forall (a :: _) (b :: _) (c :: _) . (a -> b) -> Fragment c a -> Fragment c b
@@ -906,7 +947,7 @@ mapFragment
906mapFragments 947mapFragments
907 :: forall (a :: _) (b :: _) (c :: _) 948 :: forall (a :: _) (b :: _) (c :: _)
908 . (a -> b) -> FragmentStream c a -> FragmentStream c b 949 . (a -> b) -> FragmentStream c a -> FragmentStream c b
909mapFragments = \(a :: _) -> _rhs (map (mapFragment a)) 950mapFragments = _lhs mapFragments \(a :: _) -> _rhs (map (mapFragment a))
910 951
911data ImageKind :: Type where 952data ImageKind :: Type where
912 Color :: Type -> ImageKind 953 Color :: Type -> ImageKind
@@ -915,12 +956,14 @@ data ImageKind :: Type where
915 956
916imageType :: ImageKind -> Type 957imageType :: ImageKind -> Type
917imageType 958imageType
918 = \(a :: _) -> case'ImageKind 959 = _lhs
919 (\(_ :: _) -> _) 960 imageType
920 (\(b :: _) -> _rhs b) 961 \(a :: _) -> case'ImageKind
921 (_rhs 'Float) 962 (\(_ :: _) -> _)
922 (_rhs 'Int) 963 (\(b :: _) -> _rhs b)
923 a 964 (_rhs 'Float)
965 (_rhs 'Int)
966 a
924 967
925data Image (_ :: Nat) (_ :: ImageKind) :: Type where 968data Image (_ :: Nat) (_ :: ImageKind) :: Type where
926 969
@@ -933,9 +976,9 @@ DepthImage :: forall (a :: _) . Float -> Image a Depth
933 976
934StencilImage :: forall (a :: _) . Int -> Image a Stencil 977StencilImage :: forall (a :: _) . Int -> Image a Stencil
935 978
936emptyDepthImage = _rhs (DepthImage @(fromInt 1)) 979emptyDepthImage = _lhs emptyDepthImage (_rhs (DepthImage @(fromInt 1)))
937 980
938emptyColorImage = _rhs (ColorImage @(fromInt 1)) 981emptyColorImage = _lhs emptyColorImage (_rhs (ColorImage @(fromInt 1)))
939 982
940data Swizz :: Type where 983data Swizz :: Type where
941 Sx :: Swizz 984 Sx :: Swizz
@@ -945,48 +988,54 @@ data Swizz :: Type where
945 988
946swizzscalar :: forall (a :: _) (b :: _) . Vec b a -> Swizz -> a 989swizzscalar :: forall (a :: _) (b :: _) . Vec b a -> Swizz -> a
947swizzscalar 990swizzscalar
948 = \(a :: _) (b :: _) -> case'VecS 991 = _lhs
949 (\(_ :: _) (_ :: _) -> _) 992 swizzscalar
950 (\(c :: _) (d :: _) -> case'Swizz 993 \(a :: _) (b :: _) -> case'VecS
951 (\(_ :: _) -> _) 994 (\(_ :: _) (_ :: _) -> _)
952 (_rhs c) 995 (\(c :: _) (d :: _) -> case'Swizz
953 (_rhs d) 996 (\(_ :: _) -> _)
954 (_rhs undefined) 997 (_rhs c)
955 (_rhs undefined) 998 (_rhs d)
956 b) 999 (_rhs undefined)
957 (\(e :: _) (f :: _) (g :: _) -> case'Swizz 1000 (_rhs undefined)
958 (\(_ :: _) -> _) 1001 b)
959 (_rhs e) 1002 (\(e :: _) (f :: _) (g :: _) -> case'Swizz
960 (_rhs f) 1003 (\(_ :: _) -> _)
961 (_rhs g) 1004 (_rhs e)
962 (_rhs undefined) 1005 (_rhs f)
963 b) 1006 (_rhs g)
964 (\(h :: _) (i :: _) (j :: _) (k :: _) -> case'Swizz 1007 (_rhs undefined)
965 (\(_ :: _) -> _) 1008 b)
966 (_rhs h) 1009 (\(h :: _) (i :: _) (j :: _) (k :: _) -> case'Swizz
967 (_rhs i) 1010 (\(_ :: _) -> _)
968 (_rhs j) 1011 (_rhs h)
969 (_rhs k) 1012 (_rhs i)
970 b) 1013 (_rhs j)
971 a 1014 (_rhs k)
1015 b)
1016 a
972 1017
973definedVec :: forall (a :: _) (b :: _) . Vec b a -> Bool 1018definedVec :: forall (a :: _) (b :: _) . Vec b a -> Bool
974definedVec 1019definedVec
975 = \(a :: _) -> case'VecS 1020 = _lhs
976 (\(_ :: _) (_ :: _) -> _) 1021 definedVec
977 (\(_ :: _) (_ :: _) -> _rhs True) 1022 \(a :: _) -> case'VecS
978 (\(_ :: _) (_ :: _) (_ :: _) -> _rhs True) 1023 (\(_ :: _) (_ :: _) -> _)
979 (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs True) 1024 (\(_ :: _) (_ :: _) -> _rhs True)
980 a 1025 (\(_ :: _) (_ :: _) (_ :: _) -> _rhs True)
1026 (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs True)
1027 a
981 1028
982swizzvector 1029swizzvector
983 :: forall (a :: _) (b :: _) (c :: _) . Vec b a -> Vec c Swizz -> Vec c a 1030 :: forall (a :: _) (b :: _) (c :: _) . Vec b a -> Vec c Swizz -> Vec c a
984swizzvector 1031swizzvector
985 = \(a :: _) (b :: _) -> case'Bool 1032 = _lhs
986 (\(_ :: _) -> _) 1033 swizzvector
987 (_rhs undefined) 1034 \(a :: _) (b :: _) -> case'Bool
988 (_rhs (mapVec (swizzscalar a) b)) 1035 (\(_ :: _) -> _)
989 (definedVec a) 1036 (_rhs undefined)
1037 (_rhs (mapVec (swizzscalar a) b))
1038 (definedVec a)
990 1039
991data BlendingFactor :: Type where 1040data BlendingFactor :: Type where
992 ZeroBF :: BlendingFactor 1041 ZeroBF :: BlendingFactor
@@ -1126,53 +1175,64 @@ rasterizePrimitive
1126 -> Primitive (HList c) d -> FragmentStream (fromInt 1) (HList a) 1175 -> Primitive (HList c) d -> FragmentStream (fromInt 1) (HList a)
1127 1176
1128rasterizePrimitives 1177rasterizePrimitives
1129 = \(a :: _) (b :: _) (c :: _) -> _rhs (concat (map (rasterizePrimitive b a) c)) 1178 = _lhs
1179 rasterizePrimitives
1180 \(a :: _) (b :: _) (c :: _) -> _rhs (concat (map (rasterizePrimitive b a) c))
1130 1181
1131'ImageLC :: Type -> Nat 1182'ImageLC :: Type -> Nat
1132'ImageLC 1183'ImageLC
1133 = \(a :: _) -> match'Image 1184 = _lhs
1134 (\(_ :: _) -> _) 1185 'ImageLC
1135 (\(b :: _) (_ :: _) -> _rhs b) 1186 \(a :: _) -> match'Image
1136 a 1187 (\(_ :: _) -> _)
1137 undefined 1188 (\(b :: _) (_ :: _) -> _rhs b)
1189 a
1190 undefined
1138 1191
1139allSame :: forall (a :: _) . [a] -> Constraint 1192allSame :: forall (a :: _) . [a] -> Constraint
1140allSame 1193allSame
1141 = \(a :: _) -> case'List 1194 = _lhs
1142 (\(_ :: _) -> _) 1195 allSame
1143 (_rhs 'CUnit) 1196 \(a :: _) -> case'List
1144 (\(b :: _) (c :: _) -> case'List
1145 (\(_ :: _) -> _) 1197 (\(_ :: _) -> _)
1146 (_rhs 'CUnit) 1198 (_rhs 'CUnit)
1147 (\(d :: _) (e :: _) -> _rhs ('T2 (b `'EqCTt` d) (allSame (d : e)))) 1199 (\(b :: _) (c :: _) -> case'List
1148 c) 1200 (\(_ :: _) -> _)
1149 a 1201 (_rhs 'CUnit)
1202 (\(d :: _) (e :: _) -> _rhs ('T2 (b `'EqCTt` d) (allSame (d : e))))
1203 c)
1204 a
1150 1205
1151sameLayerCounts = \(a :: _) -> _rhs (allSame (map 'ImageLC a)) 1206sameLayerCounts
1207 = _lhs sameLayerCounts \(a :: _) -> _rhs (allSame (map 'ImageLC a))
1152 1208
1153data FrameBuffer (_ :: Nat) (_ :: [ImageKind]) :: Type where 1209data FrameBuffer (_ :: Nat) (_ :: [ImageKind]) :: Type where
1154 1210
1155 1211
1156imageType' :: [ImageKind] -> [Type] 1212imageType' :: [ImageKind] -> [Type]
1157imageType' 1213imageType'
1158 = \(a :: _) -> case'List 1214 = _lhs
1159 (\(_ :: _) -> _) 1215 imageType'
1160 (_rhs (map imageType a)) 1216 \(a :: _) -> case'List
1161 (\(b :: _) (c :: _) -> case'ImageKind
1162 (\(_ :: _) -> _) 1217 (\(_ :: _) -> _)
1163 (\(_ :: _) -> _rhs (map imageType a))
1164 (_rhs (map imageType c))
1165 (_rhs (map imageType a)) 1218 (_rhs (map imageType a))
1166 b) 1219 (\(b :: _) (c :: _) -> case'ImageKind
1167 a 1220 (\(_ :: _) -> _)
1221 (\(_ :: _) -> _rhs (map imageType a))
1222 (_rhs (map imageType c))
1223 (_rhs (map imageType a))
1224 b)
1225 a
1168 1226
1169'FragmentOperationKind :: Type -> ImageKind 1227'FragmentOperationKind :: Type -> ImageKind
1170'FragmentOperationKind 1228'FragmentOperationKind
1171 = \(a :: _) -> match'FragmentOperation 1229 = _lhs
1172 (\(_ :: _) -> _) 1230 'FragmentOperationKind
1173 (\(b :: _) -> _rhs b) 1231 \(a :: _) -> match'FragmentOperation
1174 a 1232 (\(_ :: _) -> _)
1175 undefined 1233 (\(b :: _) -> _rhs b)
1234 a
1235 undefined
1176 1236
1177Accumulate 1237Accumulate
1178 :: forall (a :: _) (b :: Nat) (c :: [Type]) 1238 :: forall (a :: _) (b :: Nat) (c :: [Type])
@@ -1180,37 +1240,42 @@ Accumulate
1180 => HList c 1240 => HList c
1181 -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a 1241 -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a
1182 1242
1183accumulateWith = \(a :: _) (b :: _) -> _rhs (a, b) 1243accumulateWith = _lhs accumulateWith \(a :: _) (b :: _) -> _rhs (a, b)
1184 1244
1185overlay 1245overlay
1186 = \(a :: _) (b :: _) -> hlistConsCase 1246 = _lhs
1187 _ 1247 overlay
1188 (\(c :: _) (d :: _) -> hlistConsCase 1248 \(a :: _) (b :: _) -> hlistConsCase
1189 _ 1249 _
1190 (\(e :: _) (f :: _) -> hlistNilCase _ (_rhs (Accumulate c e a)) f) 1250 (\(c :: _) (d :: _) -> hlistConsCase
1191 d) 1251 _
1192 b 1252 (\(e :: _) (f :: _) -> hlistNilCase _ (_rhs (Accumulate c e a)) f)
1253 d)
1254 b
1193 1255
1194infixl 0 overlay 1256infixl 0 overlay
1195 1257
1196'GetImageKind :: Type -> ImageKind 1258'GetImageKind :: Type -> ImageKind
1197'GetImageKind 1259'GetImageKind
1198 = \(a :: _) -> match'Image 1260 = _lhs
1199 (\(_ :: _) -> _) 1261 'GetImageKind
1200 (\(_ :: _) (b :: _) -> _rhs b) 1262 \(a :: _) -> match'Image
1201 a 1263 (\(_ :: _) -> _)
1202 undefined 1264 (\(_ :: _) (b :: _) -> _rhs b)
1265 a
1266 undefined
1203 1267
1204FrameBuffer 1268FrameBuffer
1205 :: forall (a :: [Type]) 1269 :: forall (a :: [Type])
1206 . sameLayerCounts a 1270 . sameLayerCounts a
1207 => HList a -> FrameBuffer (ImageLC (head a)) (map GetImageKind a) 1271 => HList a -> FrameBuffer (ImageLC (head a)) (map GetImageKind a)
1208 1272
1209imageFrame = _rhs FrameBuffer 1273imageFrame = _lhs imageFrame (_rhs FrameBuffer)
1210 1274
1211accumulate 1275accumulate
1212 = \(a :: _) (b :: _) (c :: _) (d :: _) -> _rhs 1276 = _lhs
1213 (Accumulate a (mapFragments b c) d) 1277 accumulate
1278 \(a :: _) (b :: _) (c :: _) (d :: _) -> _rhs (Accumulate a (mapFragments b c) d)
1214 1279
1215PrjImage 1280PrjImage
1216 :: forall (a :: _) . FrameBuffer (fromInt 1) ' [a] -> Image (fromInt 1) a 1281 :: forall (a :: _) . FrameBuffer (fromInt 1) ' [a] -> Image (fromInt 1) a
@@ -1222,7 +1287,7 @@ PrjImageColor
1222data Output :: Type where 1287data Output :: Type where
1223 ScreenOut :: forall (a :: _) (b :: _) . FrameBuffer a b -> Output 1288 ScreenOut :: forall (a :: _) (b :: _) . FrameBuffer a b -> Output
1224 1289
1225renderFrame = _rhs ScreenOut 1290renderFrame = _lhs renderFrame (_rhs ScreenOut)
1226 1291
1227data Texture :: Type where 1292data Texture :: Type where
1228 Texture2DSlot :: String -> Texture 1293 Texture2DSlot :: String -> Texture
@@ -1244,7 +1309,7 @@ data Sampler :: Type where
1244 1309
1245texture2D :: Sampler -> Vec (fromInt 2) Float -> Vec (fromInt 4) Float 1310texture2D :: Sampler -> Vec (fromInt 2) Float -> Vec (fromInt 4) Float
1246 1311
1247accumulationContext = \(a :: _) -> _rhs a 1312accumulationContext = _lhs accumulationContext \(a :: _) -> _rhs a
1248------------ core code 1313------------ core code
1249'BlendEquation :: Type 1314'BlendEquation :: Type
1250'BlendEquation 1315'BlendEquation
diff --git a/testdata/Internals.out b/testdata/Internals.out
index a66b70d3..a04281f0 100644
--- a/testdata/Internals.out
+++ b/testdata/Internals.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3typeAnn = \(a :: _) -> _rhs a 3typeAnn = _lhs typeAnn \(a :: _) -> _rhs a
4 4
5parens = \(a :: _) -> _rhs a 5parens = _lhs parens \(a :: _) -> _rhs a
6 6
7undefined :: forall a . a 7undefined :: forall a . a
8 8
@@ -33,7 +33,7 @@ parEval :: forall (a :: _) -> a -> a -> a
33 33
34match'Type :: forall (a :: Type -> Type) -> a Type -> forall b -> a b -> a b 34match'Type :: forall (a :: Type -> Type) -> a Type -> forall b -> a b -> a b
35 35
36'EqCTt = _rhs ('EqCT (_ :: _)) 36'EqCTt = _lhs 'EqCTt (_rhs ('EqCT (_ :: _)))
37 37
38t2C :: Unit -> Unit -> Unit 38t2C :: Unit -> Unit -> Unit
39 39
@@ -96,171 +96,197 @@ primRound :: Float -> Int
96 96
97primIfThenElse :: forall (a :: _) . Bool -> a -> a -> a 97primIfThenElse :: forall (a :: _) . Bool -> a -> a -> a
98primIfThenElse 98primIfThenElse
99 = \(a :: _) (b :: _) (c :: _) -> case'Bool (\(_ :: _) -> _) (_rhs c) (_rhs b) a 99 = _lhs
100 primIfThenElse
101 \(a :: _) (b :: _) (c :: _) -> case'Bool (\(_ :: _) -> _) (_rhs c) (_rhs b) a
100 102
101isEQ 103isEQ
102 = \(a :: _) -> case'Ordering 104 = _lhs
103 (\(_ :: _) -> _) 105 isEQ
104 (_rhs False) 106 \(a :: _) -> case'Ordering
105 (_rhs True) 107 (\(_ :: _) -> _)
106 (_rhs False) 108 (_rhs False)
107 a 109 (_rhs True)
110 (_rhs False)
111 a
108 112
109'Num :: Type -> Constraint 113'Num :: Type -> Constraint
110'Num 114'Num
111 = \(a :: _) -> match'Int 115 = _lhs
112 (\(_ :: _) -> _) 116 'Num
113 (_rhs 'CUnit) 117 \(a :: _) -> match'Int
114 a
115 (match'Word
116 (\(_ :: _) -> _) 118 (\(_ :: _) -> _)
117 (_rhs 'CUnit) 119 (_rhs 'CUnit)
118 a 120 a
119 (match'Float 121 (match'Word
120 (\(_ :: _) -> _) 122 (\(_ :: _) -> _)
121 (_rhs 'CUnit) 123 (_rhs 'CUnit)
122 a 124 a
123 (match'Nat 125 (match'Float
124 (\(_ :: _) -> _) 126 (\(_ :: _) -> _)
125 (_rhs 'CUnit) 127 (_rhs 'CUnit)
126 a 128 a
127 (_rhs ('CEmpty "no instance of 'Num on ???"))))) 129 (match'Nat
130 (\(_ :: _) -> _)
131 (_rhs 'CUnit)
132 a
133 (_rhs ('CEmpty "no instance of 'Num on ???")))))
128 134
129fromInt :: forall a . Num a => Int -> a 135fromInt :: forall a . Num a => Int -> a
130fromInt 136fromInt
131 = \ @a @(_ :: _) -> match'Int 137 = _lhs
132 (\(_ :: _) -> _) 138 fromInt
133 (_rhs let b = _rhs \(c :: _) -> c in b) 139 \ @a @(_ :: _) -> match'Int
134 a
135 (match'Word
136 (\(_ :: _) -> _) 140 (\(_ :: _) -> _)
137 (_rhs let d = _rhs primIntToWord in d) 141 (_rhs let b = _lhs fromInt (_rhs \(c :: _) -> c) in b)
138 a 142 a
139 (match'Float 143 (match'Word
140 (\(_ :: _) -> _) 144 (\(_ :: _) -> _)
141 (_rhs let e = _rhs primIntToFloat in e) 145 (_rhs let d = _lhs fromInt (_rhs primIntToWord) in d)
142 a 146 a
143 (match'Nat 147 (match'Float
144 (\(_ :: _) -> _) 148 (\(_ :: _) -> _)
145 (_rhs let f = _rhs primIntToNat in f) 149 (_rhs let e = _lhs fromInt (_rhs primIntToFloat) in e)
146 a 150 a
147 (_rhs undefined)))) 151 (match'Nat
152 (\(_ :: _) -> _)
153 (_rhs let f = _lhs fromInt (_rhs primIntToNat) in f)
154 a
155 (_rhs undefined))))
148 156
149compare :: forall a . Num a => a -> a -> Ordering 157compare :: forall a . Num a => a -> a -> Ordering
150compare 158compare
151 = \ @a @(_ :: _) -> match'Int 159 = _lhs
152 (\(_ :: _) -> _) 160 compare
153 (_rhs let b = _rhs primCompareInt in b) 161 \ @a @(_ :: _) -> match'Int
154 a
155 (match'Word
156 (\(_ :: _) -> _) 162 (\(_ :: _) -> _)
157 (_rhs let c = _rhs primCompareWord in c) 163 (_rhs let b = _lhs compare (_rhs primCompareInt) in b)
158 a 164 a
159 (match'Float 165 (match'Word
160 (\(_ :: _) -> _) 166 (\(_ :: _) -> _)
161 (_rhs let d = _rhs primCompareFloat in d) 167 (_rhs let c = _lhs compare (_rhs primCompareWord) in c)
162 a 168 a
163 (match'Nat 169 (match'Float
164 (\(_ :: _) -> _) 170 (\(_ :: _) -> _)
165 (_rhs let e = _rhs undefined in e) 171 (_rhs let d = _lhs compare (_rhs primCompareFloat) in d)
166 a 172 a
167 (_rhs undefined)))) 173 (match'Nat
174 (\(_ :: _) -> _)
175 (_rhs let e = _lhs compare (_rhs undefined) in e)
176 a
177 (_rhs undefined))))
168 178
169negate :: forall a . Num a => a -> a 179negate :: forall a . Num a => a -> a
170negate 180negate
171 = \ @a @(_ :: _) -> match'Int 181 = _lhs
172 (\(_ :: _) -> _) 182 negate
173 (_rhs let b = _rhs primNegateInt in b) 183 \ @a @(_ :: _) -> match'Int
174 a
175 (match'Word
176 (\(_ :: _) -> _) 184 (\(_ :: _) -> _)
177 (_rhs let c = _rhs primNegateWord in c) 185 (_rhs let b = _lhs negate (_rhs primNegateInt) in b)
178 a 186 a
179 (match'Float 187 (match'Word
180 (\(_ :: _) -> _) 188 (\(_ :: _) -> _)
181 (_rhs let d = _rhs primNegateFloat in d) 189 (_rhs let c = _lhs negate (_rhs primNegateWord) in c)
182 a 190 a
183 (match'Nat 191 (match'Float
184 (\(_ :: _) -> _) 192 (\(_ :: _) -> _)
185 (_rhs let e = _rhs undefined in e) 193 (_rhs let d = _lhs negate (_rhs primNegateFloat) in d)
186 a 194 a
187 (_rhs undefined)))) 195 (match'Nat
196 (\(_ :: _) -> _)
197 (_rhs let e = _lhs negate (_rhs undefined) in e)
198 a
199 (_rhs undefined))))
188 200
189'Eq :: Type -> Constraint 201'Eq :: Type -> Constraint
190'Eq 202'Eq
191 = \(a :: _) -> match'String 203 = _lhs
192 (\(_ :: _) -> _) 204 'Eq
193 (_rhs 'CUnit) 205 \(a :: _) -> match'String
194 a
195 (match'Char
196 (\(_ :: _) -> _) 206 (\(_ :: _) -> _)
197 (_rhs 'CUnit) 207 (_rhs 'CUnit)
198 a 208 a
199 (match'Int 209 (match'Char
200 (\(_ :: _) -> _) 210 (\(_ :: _) -> _)
201 (_rhs 'CUnit) 211 (_rhs 'CUnit)
202 a 212 a
203 (match'Float 213 (match'Int
204 (\(_ :: _) -> _) 214 (\(_ :: _) -> _)
205 (_rhs 'CUnit) 215 (_rhs 'CUnit)
206 a 216 a
207 (match'Bool 217 (match'Float
208 (\(_ :: _) -> _) 218 (\(_ :: _) -> _)
209 (_rhs 'CUnit) 219 (_rhs 'CUnit)
210 a 220 a
211 (match'Nat 221 (match'Bool
212 (\(_ :: _) -> _) 222 (\(_ :: _) -> _)
213 (_rhs 'CUnit) 223 (_rhs 'CUnit)
214 a 224 a
215 (_rhs ('CEmpty "no instance of 'Eq on ???"))))))) 225 (match'Nat
226 (\(_ :: _) -> _)
227 (_rhs 'CUnit)
228 a
229 (_rhs ('CEmpty "no instance of 'Eq on ???")))))))
216 230
217(==) :: forall a . Eq a => a -> a -> Bool 231(==) :: forall a . Eq a => a -> a -> Bool
218(==) 232(==)
219 = \ @a @(_ :: _) -> match'String 233 = _lhs
220 (\(_ :: _) -> _) 234 (==)
221 (_rhs let b = \(c :: _) (d :: _) -> _rhs (isEQ (primCompareString c d)) in b) 235 \ @a @(_ :: _) -> match'String
222 a
223 (match'Char
224 (\(_ :: _) -> _) 236 (\(_ :: _) -> _)
225 (_rhs let e = \(f :: _) (g :: _) -> _rhs (isEQ (primCompareChar f g)) in e) 237 (_rhs
238 let
239 b = _lhs (==) \(c :: _) (d :: _) -> _rhs (isEQ (primCompareString c d))
240 in b)
226 a 241 a
227 (match'Int 242 (match'Char
228 (\(_ :: _) -> _) 243 (\(_ :: _) -> _)
229 (_rhs let h = \(i :: _) (j :: _) -> _rhs (isEQ (primCompareInt i j)) in h) 244 (_rhs
245 let e = _lhs (==) \(f :: _) (g :: _) -> _rhs (isEQ (primCompareChar f g)) in e)
230 a 246 a
231 (match'Float 247 (match'Int
232 (\(_ :: _) -> _) 248 (\(_ :: _) -> _)
233 (_rhs let k = \(l :: _) (m :: _) -> _rhs (isEQ (primCompareFloat l m)) in k) 249 (_rhs
250 let h = _lhs (==) \(i :: _) (j :: _) -> _rhs (isEQ (primCompareInt i j)) in h)
234 a 251 a
235 (match'Bool 252 (match'Float
236 (\(_ :: _) -> _) 253 (\(_ :: _) -> _)
237 (_rhs 254 (_rhs
238 let 255 let k = _lhs (==) \(l :: _) (m :: _) -> _rhs (isEQ (primCompareFloat l m)) in k)
239 n
240 = \(o :: _) (p :: _) -> case'Bool
241 (\(_ :: _) -> _)
242 (case'Bool (\(_ :: _) -> _) (_rhs True) (_rhs False) p)
243 (case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs True) p)
244 o
245 in n)
246 a 256 a
247 (match'Nat 257 (match'Bool
248 (\(_ :: _) -> _) 258 (\(_ :: _) -> _)
249 (_rhs 259 (_rhs
250 let 260 let
251 q 261 n
252 = \(r :: _) (s :: _) -> case'Nat 262 = _lhs
253 (\(_ :: _) -> _) 263 (==)
254 (case'Nat (\(_ :: _) -> _) (_rhs True) (\(_ :: _) -> _rhs False) s) 264 \(o :: _) (p :: _) -> case'Bool
255 (\(t :: _) -> case'Nat
256 (\(_ :: _) -> _) 265 (\(_ :: _) -> _)
257 (_rhs False) 266 (case'Bool (\(_ :: _) -> _) (_rhs True) (_rhs False) p)
258 (\(u :: _) -> _rhs (t == u)) 267 (case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs True) p)
259 s) 268 o
260 r 269 in n)
261 in q)
262 a 270 a
263 (_rhs undefined)))))) 271 (match'Nat
272 (\(_ :: _) -> _)
273 (_rhs
274 let
275 q
276 = _lhs
277 (==)
278 \(r :: _) (s :: _) -> case'Nat
279 (\(_ :: _) -> _)
280 (case'Nat (\(_ :: _) -> _) (_rhs True) (\(_ :: _) -> _rhs False) s)
281 (\(t :: _) -> case'Nat
282 (\(_ :: _) -> _)
283 (_rhs False)
284 (\(u :: _) -> _rhs (t == u))
285 s)
286 r
287 in q)
288 a
289 (_rhs undefined))))))
264 290
265infix 4 == 291infix 4 ==
266 292
diff --git a/testdata/Material.out b/testdata/Material.out
index c64db179..cc61ae3b 100644
--- a/testdata/Material.out
+++ b/testdata/Material.out
@@ -1,7 +1,7 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3identityLight :: Float 3identityLight :: Float
4identityLight = _rhs (fromInt 1) 4identityLight = _lhs identityLight (_rhs (fromInt 1))
5 5
6data Entity :: Type where 6data Entity :: Type where
7 Entity 7 Entity
@@ -10,28 +10,36 @@ data Entity :: Type where
10 -> Vec (fromInt 3) Float -> Vec (fromInt 4) Float -> Entity 10 -> Vec (fromInt 3) Float -> Vec (fromInt 4) Float -> Entity
11 11
12eAmbientLight 12eAmbientLight
13 = \(a :: _) -> case'Entity 13 = _lhs
14 (\(_ :: _) -> _) 14 eAmbientLight
15 (\(b :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs b) 15 \(a :: _) -> case'Entity
16 a 16 (\(_ :: _) -> _)
17 (\(b :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs b)
18 a
17 19
18eDirectedLight 20eDirectedLight
19 = \(a :: _) -> case'Entity 21 = _lhs
20 (\(_ :: _) -> _) 22 eDirectedLight
21 (\(_ :: _) (b :: _) (_ :: _) (_ :: _) -> _rhs b) 23 \(a :: _) -> case'Entity
22 a 24 (\(_ :: _) -> _)
25 (\(_ :: _) (b :: _) (_ :: _) (_ :: _) -> _rhs b)
26 a
23 27
24eLightDir 28eLightDir
25 = \(a :: _) -> case'Entity 29 = _lhs
26 (\(_ :: _) -> _) 30 eLightDir
27 (\(_ :: _) (_ :: _) (b :: _) (_ :: _) -> _rhs b) 31 \(a :: _) -> case'Entity
28 a 32 (\(_ :: _) -> _)
33 (\(_ :: _) (_ :: _) (b :: _) (_ :: _) -> _rhs b)
34 a
29 35
30eShaderRGBA 36eShaderRGBA
31 = \(a :: _) -> case'Entity 37 = _lhs
32 (\(_ :: _) -> _) 38 eShaderRGBA
33 (\(_ :: _) (_ :: _) (_ :: _) (b :: _) -> _rhs b) 39 \(a :: _) -> case'Entity
34 a 40 (\(_ :: _) -> _)
41 (\(_ :: _) (_ :: _) (_ :: _) (b :: _) -> _rhs b)
42 a
35 43
36data WaveType :: Type where 44data WaveType :: Type where
37 WT_Sin :: WaveType 45 WT_Sin :: WaveType
@@ -146,119 +154,143 @@ data StageAttrs :: Type where
146 -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs 154 -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
147 155
148saBlend 156saBlend
149 = \(a :: _) -> case'StageAttrs 157 = _lhs
150 (\(_ :: _) -> _) 158 saBlend
151 (\(b :: _) 159 \(a :: _) -> case'StageAttrs
152 (_ :: _) 160 (\(_ :: _) -> _)
153 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 161 (\(b :: _)
154 -> _rhs b) 162 (_ :: _)
155 a 163 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
164 -> _rhs b)
165 a
156 166
157saRGBGen 167saRGBGen
158 = \(a :: _) -> case'StageAttrs 168 = _lhs
159 (\(_ :: _) -> _) 169 saRGBGen
160 (\(_ :: _) 170 \(a :: _) -> case'StageAttrs
161 (b :: _) 171 (\(_ :: _) -> _)
162 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 172 (\(_ :: _)
163 -> _rhs b) 173 (b :: _)
164 a 174 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
175 -> _rhs b)
176 a
165 177
166saAlphaGen 178saAlphaGen
167 = \(a :: _) -> case'StageAttrs 179 = _lhs
168 (\(_ :: _) -> _) 180 saAlphaGen
169 (\(_ :: _) 181 \(a :: _) -> case'StageAttrs
170 (_ :: _) 182 (\(_ :: _) -> _)
171 (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 183 (\(_ :: _)
172 -> _rhs b) 184 (_ :: _)
173 a 185 (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
186 -> _rhs b)
187 a
174 188
175saTCGen 189saTCGen
176 = \(a :: _) -> case'StageAttrs 190 = _lhs
177 (\(_ :: _) -> _) 191 saTCGen
178 (\(_ :: _) 192 \(a :: _) -> case'StageAttrs
179 (_ :: _) 193 (\(_ :: _) -> _)
180 (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 194 (\(_ :: _)
181 -> _rhs b) 195 (_ :: _)
182 a 196 (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
197 -> _rhs b)
198 a
183 199
184saTCMod 200saTCMod
185 = \(a :: _) -> case'StageAttrs 201 = _lhs
186 (\(_ :: _) -> _) 202 saTCMod
187 (\(_ :: _) 203 \(a :: _) -> case'StageAttrs
188 (_ :: _) 204 (\(_ :: _) -> _)
189 (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 205 (\(_ :: _)
190 -> _rhs b) 206 (_ :: _)
191 a 207 (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
208 -> _rhs b)
209 a
192 210
193saTexture 211saTexture
194 = \(a :: _) -> case'StageAttrs 212 = _lhs
195 (\(_ :: _) -> _) 213 saTexture
196 (\(_ :: _) 214 \(a :: _) -> case'StageAttrs
197 (_ :: _) 215 (\(_ :: _) -> _)
198 (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 216 (\(_ :: _)
199 -> _rhs b) 217 (_ :: _)
200 a 218 (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
219 -> _rhs b)
220 a
201 221
202saDepthWrite 222saDepthWrite
203 = \(a :: _) -> case'StageAttrs 223 = _lhs
204 (\(_ :: _) -> _) 224 saDepthWrite
205 (\(_ :: _) 225 \(a :: _) -> case'StageAttrs
206 (_ :: _) 226 (\(_ :: _) -> _)
207 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 227 (\(_ :: _)
208 -> _rhs b) 228 (_ :: _)
209 a 229 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
230 -> _rhs b)
231 a
210 232
211saDepthFunc 233saDepthFunc
212 = \(a :: _) -> case'StageAttrs 234 = _lhs
213 (\(_ :: _) -> _) 235 saDepthFunc
214 (\(_ :: _) 236 \(a :: _) -> case'StageAttrs
215 (_ :: _) 237 (\(_ :: _) -> _)
216 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) 238 (\(_ :: _)
217 -> _rhs b) 239 (_ :: _)
218 a 240 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _)
241 -> _rhs b)
242 a
219 243
220saAlphaFunc 244saAlphaFunc
221 = \(a :: _) -> case'StageAttrs 245 = _lhs
222 (\(_ :: _) -> _) 246 saAlphaFunc
223 (\(_ :: _) 247 \(a :: _) -> case'StageAttrs
224 (_ :: _) 248 (\(_ :: _) -> _)
225 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) 249 (\(_ :: _)
226 -> _rhs b) 250 (_ :: _)
227 a 251 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _)
252 -> _rhs b)
253 a
228 254
229saDepthMaskExplicit 255saDepthMaskExplicit
230 = \(a :: _) -> case'StageAttrs 256 = _lhs
231 (\(_ :: _) -> _) 257 saDepthMaskExplicit
232 (\(_ :: _) 258 \(a :: _) -> case'StageAttrs
233 (_ :: _) 259 (\(_ :: _) -> _)
234 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) 260 (\(_ :: _)
235 -> _rhs b) 261 (_ :: _)
236 a 262 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _)
263 -> _rhs b)
264 a
237 265
238saTextureUniform 266saTextureUniform
239 = \(a :: _) -> case'StageAttrs 267 = _lhs
240 (\(_ :: _) -> _) 268 saTextureUniform
241 (\(_ :: _) 269 \(a :: _) -> case'StageAttrs
242 (_ :: _) 270 (\(_ :: _) -> _)
243 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) 271 (\(_ :: _)
244 -> _rhs b) 272 (_ :: _)
245 a 273 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _)
274 -> _rhs b)
275 a
246 276
247defaultStageAttrs :: StageAttrs 277defaultStageAttrs :: StageAttrs
248defaultStageAttrs 278defaultStageAttrs
249 = _rhs 279 = _lhs
250 (StageAttrs 280 defaultStageAttrs
251 Nothing 281 (_rhs
252 RGB_Undefined 282 (StageAttrs
253 A_Identity 283 Nothing
254 TG_Undefined 284 RGB_Undefined
255 [] 285 A_Identity
256 ST_WhiteImage 286 TG_Undefined
257 True 287 []
258 D_Lequal 288 ST_WhiteImage
259 Nothing 289 True
260 False 290 D_Lequal
261 "") 291 Nothing
292 False
293 ""))
262 294
263data CommonAttrs :: Type where 295data CommonAttrs :: Type where
264 CommonAttrs 296 CommonAttrs
@@ -271,141 +303,167 @@ data CommonAttrs :: Type where
271 -> CullType -> [Deform] -> Bool -> Bool -> [StageAttrs] -> Bool -> CommonAttrs 303 -> CullType -> [Deform] -> Bool -> Bool -> [StageAttrs] -> Bool -> CommonAttrs
272 304
273caSkyParms 305caSkyParms
274 = \(a :: _) -> case'CommonAttrs 306 = _lhs
275 (\(_ :: _) -> _) 307 caSkyParms
276 (\(b :: _) 308 \(a :: _) -> case'CommonAttrs
277 (_ :: _) 309 (\(_ :: _) -> _)
310 (\(b :: _)
278 (_ :: _) 311 (_ :: _)
279 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 312 (_ :: _)
280 -> _rhs b) 313 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
281 a 314 -> _rhs b)
315 a
282 316
283caFogParms 317caFogParms
284 = \(a :: _) -> case'CommonAttrs 318 = _lhs
285 (\(_ :: _) -> _) 319 caFogParms
286 (\(_ :: _) 320 \(a :: _) -> case'CommonAttrs
287 (b :: _) 321 (\(_ :: _) -> _)
288 (_ :: _) 322 (\(_ :: _)
289 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 323 (b :: _)
290 -> _rhs b) 324 (_ :: _)
291 a 325 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
326 -> _rhs b)
327 a
292 328
293caPortal 329caPortal
294 = \(a :: _) -> case'CommonAttrs 330 = _lhs
295 (\(_ :: _) -> _) 331 caPortal
296 (\(_ :: _) 332 \(a :: _) -> case'CommonAttrs
297 (_ :: _) 333 (\(_ :: _) -> _)
298 (b :: _) 334 (\(_ :: _)
299 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 335 (_ :: _)
300 -> _rhs b) 336 (b :: _)
301 a 337 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
338 -> _rhs b)
339 a
302 340
303caSort 341caSort
304 = \(a :: _) -> case'CommonAttrs 342 = _lhs
305 (\(_ :: _) -> _) 343 caSort
306 (\(_ :: _) 344 \(a :: _) -> case'CommonAttrs
307 (_ :: _) 345 (\(_ :: _) -> _)
346 (\(_ :: _)
308 (_ :: _) 347 (_ :: _)
309 (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 348 (_ :: _)
310 -> _rhs b) 349 (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
311 a 350 -> _rhs b)
351 a
312 352
313caEntityMergable 353caEntityMergable
314 = \(a :: _) -> case'CommonAttrs 354 = _lhs
315 (\(_ :: _) -> _) 355 caEntityMergable
316 (\(_ :: _) 356 \(a :: _) -> case'CommonAttrs
317 (_ :: _) 357 (\(_ :: _) -> _)
358 (\(_ :: _)
318 (_ :: _) 359 (_ :: _)
319 (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 360 (_ :: _)
320 -> _rhs b) 361 (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
321 a 362 -> _rhs b)
363 a
322 364
323caFogOnly 365caFogOnly
324 = \(a :: _) -> case'CommonAttrs 366 = _lhs
325 (\(_ :: _) -> _) 367 caFogOnly
326 (\(_ :: _) 368 \(a :: _) -> case'CommonAttrs
327 (_ :: _) 369 (\(_ :: _) -> _)
370 (\(_ :: _)
328 (_ :: _) 371 (_ :: _)
329 (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 372 (_ :: _)
330 -> _rhs b) 373 (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
331 a 374 -> _rhs b)
375 a
332 376
333caCull 377caCull
334 = \(a :: _) -> case'CommonAttrs 378 = _lhs
335 (\(_ :: _) -> _) 379 caCull
336 (\(_ :: _) 380 \(a :: _) -> case'CommonAttrs
337 (_ :: _) 381 (\(_ :: _) -> _)
382 (\(_ :: _)
338 (_ :: _) 383 (_ :: _)
339 (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 384 (_ :: _)
340 -> _rhs b) 385 (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
341 a 386 -> _rhs b)
387 a
342 388
343caDeformVertexes 389caDeformVertexes
344 = \(a :: _) -> case'CommonAttrs 390 = _lhs
345 (\(_ :: _) -> _) 391 caDeformVertexes
346 (\(_ :: _) 392 \(a :: _) -> case'CommonAttrs
347 (_ :: _) 393 (\(_ :: _) -> _)
394 (\(_ :: _)
348 (_ :: _) 395 (_ :: _)
349 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 396 (_ :: _)
350 -> _rhs b) 397 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
351 a 398 -> _rhs b)
399 a
352 400
353caNoMipMaps 401caNoMipMaps
354 = \(a :: _) -> case'CommonAttrs 402 = _lhs
355 (\(_ :: _) -> _) 403 caNoMipMaps
356 (\(_ :: _) 404 \(a :: _) -> case'CommonAttrs
357 (_ :: _) 405 (\(_ :: _) -> _)
406 (\(_ :: _)
358 (_ :: _) 407 (_ :: _)
359 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) 408 (_ :: _)
360 -> _rhs b) 409 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _)
361 a 410 -> _rhs b)
411 a
362 412
363caPolygonOffset 413caPolygonOffset
364 = \(a :: _) -> case'CommonAttrs 414 = _lhs
365 (\(_ :: _) -> _) 415 caPolygonOffset
366 (\(_ :: _) 416 \(a :: _) -> case'CommonAttrs
367 (_ :: _) 417 (\(_ :: _) -> _)
418 (\(_ :: _)
368 (_ :: _) 419 (_ :: _)
369 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) 420 (_ :: _)
370 -> _rhs b) 421 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _)
371 a 422 -> _rhs b)
423 a
372 424
373caStages 425caStages
374 = \(a :: _) -> case'CommonAttrs 426 = _lhs
375 (\(_ :: _) -> _) 427 caStages
376 (\(_ :: _) 428 \(a :: _) -> case'CommonAttrs
377 (_ :: _) 429 (\(_ :: _) -> _)
430 (\(_ :: _)
378 (_ :: _) 431 (_ :: _)
379 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) 432 (_ :: _)
380 -> _rhs b) 433 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _)
381 a 434 -> _rhs b)
435 a
382 436
383caIsSky 437caIsSky
384 = \(a :: _) -> case'CommonAttrs 438 = _lhs
385 (\(_ :: _) -> _) 439 caIsSky
386 (\(_ :: _) 440 \(a :: _) -> case'CommonAttrs
387 (_ :: _) 441 (\(_ :: _) -> _)
442 (\(_ :: _)
388 (_ :: _) 443 (_ :: _)
389 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) 444 (_ :: _)
390 -> _rhs b) 445 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _)
391 a 446 -> _rhs b)
447 a
392 448
393defaultCommonAttrs :: CommonAttrs 449defaultCommonAttrs :: CommonAttrs
394defaultCommonAttrs 450defaultCommonAttrs
395 = _rhs 451 = _lhs
396 (CommonAttrs 452 defaultCommonAttrs
397 () 453 (_rhs
398 () 454 (CommonAttrs
399 False 455 ()
400 (fromInt 0) 456 ()
401 False 457 False
402 False 458 (fromInt 0)
403 CT_FrontSided 459 False
404 [] 460 False
405 False 461 CT_FrontSided
406 False 462 []
407 [] 463 False
408 False) 464 False
465 []
466 False))
409------------ core code 467------------ core code
410'AlphaFunction :: Type 468'AlphaFunction :: Type
411'AlphaFunction 469'AlphaFunction
diff --git a/testdata/Prelude.out b/testdata/Prelude.out
index 556b39e2..ea497d05 100644
--- a/testdata/Prelude.out
+++ b/testdata/Prelude.out
@@ -12,208 +12,248 @@ infixr 3 ***
12 12
13infixr 0 $ 13infixr 0 $
14 14
15const = \(a :: _) (_ :: _) -> _rhs a 15const = _lhs const \(a :: _) (_ :: _) -> _rhs a
16 16
17otherwise = _rhs True 17otherwise = _lhs otherwise (_rhs True)
18 18
19(&) = \(a :: _) (b :: _) -> _rhs (b a) 19(&) = _lhs (&) \(a :: _) (b :: _) -> _rhs (b a)
20 20
21($) = _rhs \(a :: _) (b :: _) -> a b 21($) = _lhs ($) (_rhs \(a :: _) (b :: _) -> a b)
22 22
23(.) = _rhs \(a :: _) (b :: _) (c :: _) -> a (b c) 23(.) = _lhs (.) (_rhs \(a :: _) (b :: _) (c :: _) -> a (b c))
24 24
25uncurry 25uncurry
26 = \(a :: _) (b :: _) -> hlistConsCase 26 = _lhs
27 _ 27 uncurry
28 (\(c :: _) (d :: _) -> hlistConsCase 28 \(a :: _) (b :: _) -> hlistConsCase
29 _ 29 _
30 (\(e :: _) (f :: _) -> hlistNilCase _ (_rhs (a c e)) f) 30 (\(c :: _) (d :: _) -> hlistConsCase
31 d) 31 _
32 b 32 (\(e :: _) (f :: _) -> hlistNilCase _ (_rhs (a c e)) f)
33 d)
34 b
33 35
34(***) 36(***)
35 = \(a :: _) (b :: _) (c :: _) -> hlistConsCase 37 = _lhs
36 _ 38 (***)
37 (\(d :: _) (e :: _) -> hlistConsCase 39 \(a :: _) (b :: _) (c :: _) -> hlistConsCase
38 _ 40 _
39 (\(f :: _) (g :: _) -> hlistNilCase _ (_rhs (a d, b f)) g) 41 (\(d :: _) (e :: _) -> hlistConsCase
40 e) 42 _
41 c 43 (\(f :: _) (g :: _) -> hlistNilCase _ (_rhs (a d, b f)) g)
44 e)
45 c
42 46
43pi = _rhs 3.141592653589793 47pi = _lhs pi (_rhs 3.141592653589793)
44 48
45zip :: forall (a :: _) (b :: _) . [a] -> [b] -> [(a, b)] 49zip :: forall (a :: _) (b :: _) . [a] -> [b] -> [(a, b)]
46zip 50zip
47 = \(a :: _) (b :: _) -> case'List 51 = _lhs
48 (\(_ :: _) -> _) 52 zip
49 (_rhs []) 53 \(a :: _) (b :: _) -> case'List
50 (\(c :: _) (d :: _) -> case'List
51 (\(_ :: _) -> _) 54 (\(_ :: _) -> _)
52 (_rhs []) 55 (_rhs [])
53 (\(e :: _) (f :: _) -> _rhs ((c, e) : zip d f)) 56 (\(c :: _) (d :: _) -> case'List
54 b) 57 (\(_ :: _) -> _)
55 a 58 (_rhs [])
59 (\(e :: _) (f :: _) -> _rhs ((c, e) : zip d f))
60 b)
61 a
56 62
57unzip :: forall (a :: _) (b :: _) . [(a, b)] -> ([a], [b]) 63unzip :: forall (a :: _) (b :: _) . [(a, b)] -> ([a], [b])
58unzip 64unzip
59 = \(a :: _) -> case'List 65 = _lhs
60 (\(_ :: _) -> _) 66 unzip
61 (_rhs ([], [])) 67 \(a :: _) -> case'List
62 (\(b :: _) (c :: _) -> hlistConsCase 68 (\(_ :: _) -> _)
63 _ 69 (_rhs ([], []))
64 (\(d :: _) (e :: _) -> hlistConsCase 70 (\(b :: _) (c :: _) -> hlistConsCase
65 _ 71 _
66 (\(f :: _) (g :: _) -> hlistNilCase 72 (\(d :: _) (e :: _) -> hlistConsCase
67 _ 73 _
68 (_rhs 74 (\(f :: _) (g :: _) -> hlistNilCase
69 let 75 _
70 h = _rhs (unzip c); 76 (_rhs
71 i 77 let
72 = _rhs 78 h = _lhs _bs_as (_rhs (unzip c));
73 ((\(k :: _) -> hlistConsCase 79 i
74 _ 80 = _lhs
75 (\(_ :: _) (l :: _) -> hlistConsCase 81 bs
76 _ 82 (_rhs
77 (\(m :: _) (n :: _) -> hlistNilCase _ m n) 83 ((\(k :: _) -> hlistConsCase
78 l) 84 _
79 k) 85 (\(_ :: _) (l :: _) -> hlistConsCase
80 h); 86 _
81 j 87 (\(m :: _) (n :: _) -> hlistNilCase _ m n)
82 = _rhs 88 l)
83 ((\(o :: _) -> hlistConsCase 89 k)
84 _ 90 h));
85 (\(p :: _) (q :: _) -> hlistConsCase 91 j
86 _ 92 = _lhs
87 (\(_ :: _) (r :: _) -> hlistNilCase _ p r) 93 as
88 q) 94 (_rhs
89 o) 95 ((\(o :: _) -> hlistConsCase
90 h) 96 _
91 in (d : j, f : i)) 97 (\(p :: _) (q :: _) -> hlistConsCase
92 g) 98 _
93 e) 99 (\(_ :: _) (r :: _) -> hlistNilCase _ p r)
94 b) 100 q)
95 a 101 o)
102 h))
103 in (d : j, f : i))
104 g)
105 e)
106 b)
107 a
96 108
97filter 109filter
98 = \(a :: _) (b :: _) -> case'List 110 = _lhs
99 (\(_ :: _) -> _) 111 filter
100 (_rhs []) 112 \(a :: _) (b :: _) -> case'List
101 (\(c :: _) (d :: _) -> _rhs 113 (\(_ :: _) -> _)
102 ((\(e :: _) -> case'Bool (\(_ :: _) -> _) (filter a d) (c : filter a d) e) 114 (_rhs [])
103 (a c))) 115 (\(c :: _) (d :: _) -> _rhs
104 b 116 ((\(e :: _) -> case'Bool (\(_ :: _) -> _) (filter a d) (c : filter a d) e)
117 (a c)))
118 b
105 119
106tail :: forall (a :: _) . [a] -> [a] 120tail :: forall (a :: _) . [a] -> [a]
107tail 121tail
108 = \(a :: _) -> case'List 122 = _lhs
109 (\(_ :: _) -> _) 123 tail
110 (_rhs undefined) 124 \(a :: _) -> case'List
111 (\(_ :: _) (b :: _) -> _rhs b) 125 (\(_ :: _) -> _)
112 a 126 (_rhs undefined)
127 (\(_ :: _) (b :: _) -> _rhs b)
128 a
113 129
114pairs :: forall (a :: _) . [a] -> [(a, a)] 130pairs :: forall (a :: _) . [a] -> [(a, a)]
115pairs = \(a :: _) -> _rhs (zip a (tail a)) 131pairs = _lhs pairs \(a :: _) -> _rhs (zip a (tail a))
116 132
117foldl' 133foldl'
118 = \(a :: _) (b :: _) (c :: _) -> case'List 134 = _lhs
119 (\(_ :: _) -> _) 135 foldl'
120 (_rhs b) 136 \(a :: _) (b :: _) (c :: _) -> case'List
121 (\(d :: _) (e :: _) -> _rhs (foldl' a (a b d) e)) 137 (\(_ :: _) -> _)
122 c 138 (_rhs b)
139 (\(d :: _) (e :: _) -> _rhs (foldl' a (a b d) e))
140 c
123 141
124foldr1 142foldr1
125 = \(a :: _) (b :: _) -> case'List 143 = _lhs
126 (\(_ :: _) -> _) 144 foldr1
127 (_rhs undefined) 145 \(a :: _) (b :: _) -> case'List
128 (\(c :: _) (d :: _) -> _rhs (foldr a c d)) 146 (\(_ :: _) -> _)
129 b 147 (_rhs undefined)
148 (\(c :: _) (d :: _) -> _rhs (foldr a c d))
149 b
130 150
131split 151split
132 = \(a :: _) -> case'List 152 = _lhs
133 (\(_ :: _) -> _) 153 split
134 (_rhs ([], [])) 154 \(a :: _) -> case'List
135 (\(b :: _) (c :: _) -> _rhs 155 (\(_ :: _) -> _)
136 let 156 (_rhs ([], []))
137 d = _rhs (split c); 157 (\(b :: _) (c :: _) -> _rhs
138 e 158 let
139 = _rhs 159 d = _lhs _bs_as (_rhs (split c));
140 ((\(g :: _) -> hlistConsCase 160 e
141 _ 161 = _lhs
142 (\(_ :: _) (h :: _) -> hlistConsCase 162 bs
143 _ 163 (_rhs
144 (\(i :: _) (j :: _) -> hlistNilCase _ i j) 164 ((\(g :: _) -> hlistConsCase
145 h) 165 _
146 g) 166 (\(_ :: _) (h :: _) -> hlistConsCase
147 d); 167 _
148 f 168 (\(i :: _) (j :: _) -> hlistNilCase _ i j)
149 = _rhs 169 h)
150 ((\(k :: _) -> hlistConsCase 170 g)
151 _ 171 d));
152 (\(l :: _) (m :: _) -> hlistConsCase 172 f
153 _ 173 = _lhs
154 (\(_ :: _) (n :: _) -> hlistNilCase _ l n) 174 as
155 m) 175 (_rhs
156 k) 176 ((\(k :: _) -> hlistConsCase
157 d) 177 _
158 in (b : e, f)) 178 (\(l :: _) (m :: _) -> hlistConsCase
159 a 179 _
180 (\(_ :: _) (n :: _) -> hlistNilCase _ l n)
181 m)
182 k)
183 d))
184 in (b : e, f))
185 a
160 186
161mergeBy 187mergeBy
162 = \(a :: _) (b :: _) (c :: _) -> case'List 188 = _lhs
163 (\(_ :: _) -> _) 189 mergeBy
164 (_rhs c) 190 \(a :: _) (b :: _) (c :: _) -> case'List
165 (\(d :: _) (e :: _) -> case'List
166 (\(_ :: _) -> _) 191 (\(_ :: _) -> _)
167 (_rhs b) 192 (_rhs c)
168 (\(f :: _) (g :: _) -> _rhs 193 (\(d :: _) (e :: _) -> case'List
169 ((\(h :: _) -> case'Ordering 194 (\(_ :: _) -> _)
170 (\(_ :: _) -> _) 195 (_rhs b)
171 (d : mergeBy a e (f : g)) 196 (\(f :: _) (g :: _) -> _rhs
172 (f : mergeBy a (d : e) g) 197 ((\(h :: _) -> case'Ordering
173 (f : mergeBy a (d : e) g) 198 (\(_ :: _) -> _)
174 h) 199 (d : mergeBy a e (f : g))
175 (a d f))) 200 (f : mergeBy a (d : e) g)
176 c) 201 (f : mergeBy a (d : e) g)
177 b 202 h)
203 (a d f)))
204 c)
205 b
178 206
179sortBy 207sortBy
180 = \(a :: _) (b :: _) -> case'List 208 = _lhs
181 (\(_ :: _) -> _) 209 sortBy
182 (_rhs []) 210 \(a :: _) (b :: _) -> case'List
183 (\(c :: _) (d :: _) -> case'List
184 (\(_ :: _) -> _) 211 (\(_ :: _) -> _)
185 (_rhs [c]) 212 (_rhs [])
186 (\(_ :: _) (_ :: _) -> _rhs 213 (\(c :: _) (d :: _) -> case'List
187 (uncurry (mergeBy a) ((sortBy a *** sortBy a) (split b)))) 214 (\(_ :: _) -> _)
188 d) 215 (_rhs [c])
189 b 216 (\(_ :: _) (_ :: _) -> _rhs
217 (uncurry (mergeBy a) ((sortBy a *** sortBy a) (split b))))
218 d)
219 b
190 220
191iterate :: forall (a :: _) . (a -> a) -> a -> [a] 221iterate :: forall (a :: _) . (a -> a) -> a -> [a]
192iterate = \(a :: _) (b :: _) -> _rhs (b : iterate a (a b)) 222iterate = _lhs iterate \(a :: _) (b :: _) -> _rhs (b : iterate a (a b))
193 223
194fst 224fst
195 = \(a :: _) -> hlistConsCase 225 = _lhs
196 _ 226 fst
197 (\(b :: _) (c :: _) -> hlistConsCase 227 \(a :: _) -> hlistConsCase
198 _ 228 _
199 (\(_ :: _) (d :: _) -> hlistNilCase _ (_rhs b) d) 229 (\(b :: _) (c :: _) -> hlistConsCase
200 c) 230 _
201 a 231 (\(_ :: _) (d :: _) -> hlistNilCase _ (_rhs b) d)
232 c)
233 a
202 234
203snd 235snd
204 = \(a :: _) -> hlistConsCase 236 = _lhs
205 _ 237 snd
206 (\(_ :: _) (b :: _) -> hlistConsCase 238 \(a :: _) -> hlistConsCase
207 _ 239 _
208 (\(c :: _) (d :: _) -> hlistNilCase _ (_rhs c) d) 240 (\(_ :: _) (b :: _) -> hlistConsCase
209 b) 241 _
210 a 242 (\(c :: _) (d :: _) -> hlistNilCase _ (_rhs c) d)
243 b)
244 a
211 245
212(|||) = \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs b) (_rhs True) a 246(|||)
247 = _lhs
248 (|||)
249 \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs b) (_rhs True) a
213 250
214infixr 2 ||| 251infixr 2 |||
215 252
216(&&&) = \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs b) a 253(&&&)
254 = _lhs
255 (&&&)
256 \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs b) a
217 257
218infixr 3 &&& 258infixr 3 &&&
219 259
@@ -221,255 +261,263 @@ data RecItem :: Type where
221 RecItem :: String -> Type -> RecItem 261 RecItem :: String -> Type -> RecItem
222 262
223recItemType 263recItemType
224 = \(a :: _) -> case'RecItem (\(_ :: _) -> _) (\(_ :: _) (b :: _) -> _rhs b) a 264 = _lhs
265 recItemType
266 \(a :: _) -> case'RecItem (\(_ :: _) -> _) (\(_ :: _) (b :: _) -> _rhs b) a
225 267
226data RecordC (_ :: [RecItem]) :: Type where 268data RecordC (_ :: [RecItem]) :: Type where
227 RecordCons :: forall (a :: [RecItem]) . HList (map recItemType a) -> RecordC a 269 RecordCons :: forall (a :: [RecItem]) . HList (map recItemType a) -> RecordC a
228 270
229isKeyC 271isKeyC
230 = \(a :: _) (b :: _) (c :: _) -> case'List 272 = _lhs
231 (\(_ :: _) -> _) 273 isKeyC
232 (_rhs ('CEmpty "")) 274 \(a :: _) (b :: _) (c :: _) -> case'List
233 (\(d :: _) (e :: _) -> case'RecItem
234 (\(_ :: _) -> _) 275 (\(_ :: _) -> _)
235 (\(f :: _) (g :: _) -> _rhs 276 (_rhs ('CEmpty ""))
236 (primIfThenElse (a == f) (b `'EqCTt` g) (isKeyC a b e))) 277 (\(d :: _) (e :: _) -> case'RecItem
237 d) 278 (\(_ :: _) -> _)
238 c 279 (\(f :: _) (g :: _) -> _rhs
280 (primIfThenElse (a == f) (b `'EqCTt` g) (isKeyC a b e)))
281 d)
282 c
239 283
240fstTup = _rhs (hlistConsCase (_ :: _) \(a :: _) (_ :: _) -> a) 284fstTup = _lhs fstTup (_rhs (hlistConsCase (_ :: _) \(a :: _) (_ :: _) -> a))
241 285
242sndTup = _rhs (hlistConsCase (_ :: _) \(_ :: _) (a :: _) -> a) 286sndTup = _lhs sndTup (_rhs (hlistConsCase (_ :: _) \(_ :: _) (a :: _) -> a))
243 287
244project 288project
245 :: forall (a :: _) (b :: [RecItem]) 289 :: forall (a :: _) (b :: [RecItem])
246 . forall (c :: String) -> isKeyC c a b => RecordC b -> a 290 . forall (c :: String) -> isKeyC c a b => RecordC b -> a
247project 291project
248 = \ @(a :: _) @(b :: _) (c :: _) @(_ :: _) (d :: _) -> case'List 292 = _lhs
249 (\(_ :: _) -> _) 293 project
250 (_rhs undefined) 294 \ @(a :: _) @(b :: _) (c :: _) @(_ :: _) (d :: _) -> case'List
251 (\(e :: _) (f :: _) -> case'RecItem
252 (\(_ :: _) -> _) 295 (\(_ :: _) -> _)
253 (\(g :: _) (_ :: _) -> case'RecordC 296 (_rhs undefined)
297 (\(e :: _) (f :: _) -> case'RecItem
254 (\(_ :: _) -> _) 298 (\(_ :: _) -> _)
255 (\(h :: _) -> case'Bool 299 (\(g :: _) (_ :: _) -> case'RecordC
256 (\(_ :: _) -> _) 300 (\(_ :: _) -> _)
257 (_rhs 301 (\(h :: _) -> case'Bool
258 (project 302 (\(_ :: _) -> _)
259 @a 303 (_rhs
260 @f 304 (project
261 c 305 @a
262 @(undefined @('CW (isKeyC c a f))) 306 @f
263 (RecordCons 307 c
264 (sndTup (unsafeCoerce @(_ :: _) @('HList (a : map recItemType f)) h))))) 308 @(undefined @('CW (isKeyC c a f)))
265 (_rhs (fstTup (unsafeCoerce @(_ :: _) @('HList (a : map recItemType f)) h))) 309 (RecordCons
266 (c == g)) 310 (sndTup (unsafeCoerce @(_ :: _) @('HList (a : map recItemType f)) h)))))
267 d) 311 (_rhs (fstTup (unsafeCoerce @(_ :: _) @('HList (a : map recItemType f)) h)))
268 e) 312 (c == g))
269 b 313 d)
314 e)
315 b
270 316
271rgb = \(a :: _) (b :: _) (c :: _) -> _rhs (V4 a b c 1.0) 317rgb = _lhs rgb \(a :: _) (b :: _) (c :: _) -> _rhs (V4 a b c 1.0)
272 318
273black = _rhs (rgb 0.0 0.0 0.0) 319black = _lhs black (_rhs (rgb 0.0 0.0 0.0))
274 320
275gray = _rhs (rgb 0.5 0.5 0.5) 321gray = _lhs gray (_rhs (rgb 0.5 0.5 0.5))
276 322
277silver = _rhs (rgb 0.75 0.75 0.75) 323silver = _lhs silver (_rhs (rgb 0.75 0.75 0.75))
278 324
279white = _rhs (rgb 1.0 1.0 1.0) 325white = _lhs white (_rhs (rgb 1.0 1.0 1.0))
280 326
281maroon = _rhs (rgb 0.5 0.0 0.0) 327maroon = _lhs maroon (_rhs (rgb 0.5 0.0 0.0))
282 328
283red = _rhs (rgb 1.0 0.0 0.0) 329red = _lhs red (_rhs (rgb 1.0 0.0 0.0))
284 330
285olive = _rhs (rgb 0.5 0.5 0.0) 331olive = _lhs olive (_rhs (rgb 0.5 0.5 0.0))
286 332
287yellow = _rhs (rgb 1.0 1.0 0.0) 333yellow = _lhs yellow (_rhs (rgb 1.0 1.0 0.0))
288 334
289green = _rhs (rgb 0.0 0.5 0.0) 335green = _lhs green (_rhs (rgb 0.0 0.5 0.0))
290 336
291lime = _rhs (rgb 0.0 1.0 0.0) 337lime = _lhs lime (_rhs (rgb 0.0 1.0 0.0))
292 338
293teal = _rhs (rgb 0.0 0.5 0.5) 339teal = _lhs teal (_rhs (rgb 0.0 0.5 0.5))
294 340
295aqua = _rhs (rgb 0.0 1.0 1.0) 341aqua = _lhs aqua (_rhs (rgb 0.0 1.0 1.0))
296 342
297navy = _rhs (rgb 0.0 0.0 0.5) 343navy = _lhs navy (_rhs (rgb 0.0 0.0 0.5))
298 344
299blue = _rhs (rgb 0.0 0.0 1.0) 345blue = _lhs blue (_rhs (rgb 0.0 0.0 1.0))
300 346
301purple = _rhs (rgb 0.5 0.0 0.5) 347purple = _lhs purple (_rhs (rgb 0.5 0.0 0.5))
302 348
303fuchsia = _rhs (rgb 1.0 0.0 1.0) 349fuchsia = _lhs fuchsia (_rhs (rgb 1.0 0.0 1.0))
304 350
305colorImage1 = _rhs (ColorImage @(fromInt 1)) 351colorImage1 = _lhs colorImage1 (_rhs (ColorImage @(fromInt 1)))
306 352
307colorImage2 = _rhs (ColorImage @(fromInt 2)) 353colorImage2 = _lhs colorImage2 (_rhs (ColorImage @(fromInt 2)))
308 354
309depthImage1 = _rhs (DepthImage @(fromInt 1)) 355depthImage1 = _lhs depthImage1 (_rhs (DepthImage @(fromInt 1)))
310 356
311v3FToV4F :: Vec (fromInt 3) Float -> Vec (fromInt 4) Float 357v3FToV4F :: Vec (fromInt 3) Float -> Vec (fromInt 4) Float
312v3FToV4F 358v3FToV4F
313 = \(a :: _) -> _rhs 359 = _lhs
314 (V4 (swizzscalar a Sx) (swizzscalar a Sy) (swizzscalar a Sz) (fromInt 1)) 360 v3FToV4F
361 \(a :: _) -> _rhs
362 (V4 (swizzscalar a Sx) (swizzscalar a Sy) (swizzscalar a Sz) (fromInt 1))
315 363
316radians = _rhs PrimRadians 364radians = _lhs radians (_rhs PrimRadians)
317 365
318degrees = _rhs PrimDegrees 366degrees = _lhs degrees (_rhs PrimDegrees)
319 367
320sin = _rhs PrimSin 368sin = _lhs sin (_rhs PrimSin)
321 369
322cos = _rhs PrimCos 370cos = _lhs cos (_rhs PrimCos)
323 371
324tan = _rhs PrimTan 372tan = _lhs tan (_rhs PrimTan)
325 373
326sinh = _rhs PrimSinH 374sinh = _lhs sinh (_rhs PrimSinH)
327 375
328cosh = _rhs PrimCosH 376cosh = _lhs cosh (_rhs PrimCosH)
329 377
330tanh = _rhs PrimTanH 378tanh = _lhs tanh (_rhs PrimTanH)
331 379
332asin = _rhs PrimASin 380asin = _lhs asin (_rhs PrimASin)
333 381
334asinh = _rhs PrimASinH 382asinh = _lhs asinh (_rhs PrimASinH)
335 383
336acos = _rhs PrimACos 384acos = _lhs acos (_rhs PrimACos)
337 385
338acosh = _rhs PrimACosH 386acosh = _lhs acosh (_rhs PrimACosH)
339 387
340atan = _rhs PrimATan 388atan = _lhs atan (_rhs PrimATan)
341 389
342atanh = _rhs PrimATanH 390atanh = _lhs atanh (_rhs PrimATanH)
343 391
344atan2 = _rhs PrimATan2 392atan2 = _lhs atan2 (_rhs PrimATan2)
345 393
346pow = _rhs PrimPow 394pow = _lhs pow (_rhs PrimPow)
347 395
348exp = _rhs PrimExp 396exp = _lhs exp (_rhs PrimExp)
349 397
350log = _rhs PrimLog 398log = _lhs log (_rhs PrimLog)
351 399
352exp2 = _rhs PrimExp2 400exp2 = _lhs exp2 (_rhs PrimExp2)
353 401
354log2 = _rhs PrimLog2 402log2 = _lhs log2 (_rhs PrimLog2)
355 403
356sqrt = _rhs PrimSqrt 404sqrt = _lhs sqrt (_rhs PrimSqrt)
357 405
358inversesqrt = _rhs PrimInvSqrt 406inversesqrt = _lhs inversesqrt (_rhs PrimInvSqrt)
359 407
360abs = _rhs PrimAbs 408abs = _lhs abs (_rhs PrimAbs)
361 409
362sign = _rhs PrimSign 410sign = _lhs sign (_rhs PrimSign)
363 411
364floor = _rhs PrimFloor 412floor = _lhs floor (_rhs PrimFloor)
365 413
366trunc = _rhs PrimTrunc 414trunc = _lhs trunc (_rhs PrimTrunc)
367 415
368round = _rhs PrimRound 416round = _lhs round (_rhs PrimRound)
369 417
370roundEven = _rhs PrimRoundEven 418roundEven = _lhs roundEven (_rhs PrimRoundEven)
371 419
372ceil = _rhs PrimCeil 420ceil = _lhs ceil (_rhs PrimCeil)
373 421
374fract = _rhs PrimFract 422fract = _lhs fract (_rhs PrimFract)
375 423
376mod = _rhs PrimMod 424mod = _lhs mod (_rhs PrimMod)
377 425
378min = _rhs PrimMin 426min = _lhs min (_rhs PrimMin)
379 427
380max = _rhs PrimMax 428max = _lhs max (_rhs PrimMax)
381 429
382modF = _rhs PrimModF 430modF = _lhs modF (_rhs PrimModF)
383 431
384clamp = _rhs PrimClamp 432clamp = _lhs clamp (_rhs PrimClamp)
385 433
386clampS = _rhs PrimClampS 434clampS = _lhs clampS (_rhs PrimClampS)
387 435
388mix = _rhs PrimMix 436mix = _lhs mix (_rhs PrimMix)
389 437
390mixS = _rhs PrimMixS 438mixS = _lhs mixS (_rhs PrimMixS)
391 439
392mixB = _rhs PrimMixB 440mixB = _lhs mixB (_rhs PrimMixB)
393 441
394step = _rhs PrimStep 442step = _lhs step (_rhs PrimStep)
395 443
396stepS = _rhs PrimStepS 444stepS = _lhs stepS (_rhs PrimStepS)
397 445
398smoothstep = _rhs PrimSmoothStep 446smoothstep = _lhs smoothstep (_rhs PrimSmoothStep)
399 447
400smoothstepS = _rhs PrimSmoothStepS 448smoothstepS = _lhs smoothstepS (_rhs PrimSmoothStepS)
401 449
402isNan = _rhs PrimIsNan 450isNan = _lhs isNan (_rhs PrimIsNan)
403 451
404isInf = _rhs PrimIsInf 452isInf = _lhs isInf (_rhs PrimIsInf)
405 453
406dFdx = _rhs PrimDFdx 454dFdx = _lhs dFdx (_rhs PrimDFdx)
407 455
408dFdy = _rhs PrimDFdy 456dFdy = _lhs dFdy (_rhs PrimDFdy)
409 457
410fWidth = _rhs PrimFWidth 458fWidth = _lhs fWidth (_rhs PrimFWidth)
411 459
412noise1 = _rhs PrimNoise1 460noise1 = _lhs noise1 (_rhs PrimNoise1)
413 461
414noise2 = _rhs PrimNoise2 462noise2 = _lhs noise2 (_rhs PrimNoise2)
415 463
416noise3 = _rhs PrimNoise3 464noise3 = _lhs noise3 (_rhs PrimNoise3)
417 465
418noise4 = _rhs PrimNoise4 466noise4 = _lhs noise4 (_rhs PrimNoise4)
419 467
420length = _rhs PrimLength 468length = _lhs length (_rhs PrimLength)
421 469
422distance = _rhs PrimDistance 470distance = _lhs distance (_rhs PrimDistance)
423 471
424dot = _rhs PrimDot 472dot = _lhs dot (_rhs PrimDot)
425 473
426cross = _rhs PrimCross 474cross = _lhs cross (_rhs PrimCross)
427 475
428normalize = _rhs PrimNormalize 476normalize = _lhs normalize (_rhs PrimNormalize)
429 477
430faceforward = _rhs PrimFaceForward 478faceforward = _lhs faceforward (_rhs PrimFaceForward)
431 479
432reflect = _rhs PrimReflect 480reflect = _lhs reflect (_rhs PrimReflect)
433 481
434refract = _rhs PrimRefract 482refract = _lhs refract (_rhs PrimRefract)
435 483
436transpose = _rhs PrimTranspose 484transpose = _lhs transpose (_rhs PrimTranspose)
437 485
438det = _rhs PrimDeterminant 486det = _lhs det (_rhs PrimDeterminant)
439 487
440inv = _rhs PrimInverse 488inv = _lhs inv (_rhs PrimInverse)
441 489
442outer = _rhs PrimOuterProduct 490outer = _lhs outer (_rhs PrimOuterProduct)
443 491
444bAnd = _rhs PrimBAnd 492bAnd = _lhs bAnd (_rhs PrimBAnd)
445 493
446bOr = _rhs PrimBOr 494bOr = _lhs bOr (_rhs PrimBOr)
447 495
448bXor = _rhs PrimBXor 496bXor = _lhs bXor (_rhs PrimBXor)
449 497
450bNot = _rhs PrimBNot 498bNot = _lhs bNot (_rhs PrimBNot)
451 499
452bAndS = _rhs PrimBAndS 500bAndS = _lhs bAndS (_rhs PrimBAndS)
453 501
454bOrS = _rhs PrimBOrS 502bOrS = _lhs bOrS (_rhs PrimBOrS)
455 503
456bXorS = _rhs PrimBXorS 504bXorS = _lhs bXorS (_rhs PrimBXorS)
457 505
458shiftL = _rhs PrimBShiftL 506shiftL = _lhs shiftL (_rhs PrimBShiftL)
459 507
460shiftR = _rhs PrimBShiftR 508shiftR = _lhs shiftR (_rhs PrimBShiftR)
461 509
462shiftLS = _rhs PrimBShiftLS 510shiftLS = _lhs shiftLS (_rhs PrimBShiftLS)
463 511
464shiftRS = _rhs PrimBShiftRS 512shiftRS = _lhs shiftRS (_rhs PrimBShiftRS)
465 513
466floatBitsToInt = _rhs PrimFloatBitsToInt 514floatBitsToInt = _lhs floatBitsToInt (_rhs PrimFloatBitsToInt)
467 515
468floatBitsToWord = _rhs PrimFloatBitsToUInt 516floatBitsToWord = _lhs floatBitsToWord (_rhs PrimFloatBitsToUInt)
469 517
470intBitsToFloat = _rhs PrimIntBitsToFloat 518intBitsToFloat = _lhs intBitsToFloat (_rhs PrimIntBitsToFloat)
471 519
472wordBitsToFloat = _rhs PrimUIntBitsToFloat 520wordBitsToFloat = _lhs wordBitsToFloat (_rhs PrimUIntBitsToFloat)
473 521
474infixl 7 * 522infixl 7 *
475 523
@@ -505,45 +553,45 @@ infixl 7 .*
505 553
506infixl 7 .*. 554infixl 7 .*.
507 555
508(+) = \(a :: _) (b :: _) -> _rhs (PrimAdd a b) 556(+) = _lhs (+) \(a :: _) (b :: _) -> _rhs (PrimAdd a b)
509 557
510(-) = \(a :: _) (b :: _) -> _rhs (PrimSub a b) 558(-) = _lhs (-) \(a :: _) (b :: _) -> _rhs (PrimSub a b)
511 559
512(*) = \(a :: _) (b :: _) -> _rhs (PrimMul a b) 560(*) = _lhs (*) \(a :: _) (b :: _) -> _rhs (PrimMul a b)
513 561
514(/) = \(a :: _) (b :: _) -> _rhs (PrimDiv a b) 562(/) = _lhs (/) \(a :: _) (b :: _) -> _rhs (PrimDiv a b)
515 563
516(%) = \(a :: _) (b :: _) -> _rhs (PrimMod a b) 564(%) = _lhs (%) \(a :: _) (b :: _) -> _rhs (PrimMod a b)
517 565
518neg = \(a :: _) -> _rhs (PrimNeg a) 566neg = _lhs neg \(a :: _) -> _rhs (PrimNeg a)
519 567
520(/=) = \(a :: _) (b :: _) -> _rhs (PrimNotEqual a b) 568(/=) = _lhs (/=) \(a :: _) (b :: _) -> _rhs (PrimNotEqual a b)
521 569
522(<) = \(a :: _) (b :: _) -> _rhs (PrimLessThan a b) 570(<) = _lhs (<) \(a :: _) (b :: _) -> _rhs (PrimLessThan a b)
523 571
524(<=) = \(a :: _) (b :: _) -> _rhs (PrimLessThanEqual a b) 572(<=) = _lhs (<=) \(a :: _) (b :: _) -> _rhs (PrimLessThanEqual a b)
525 573
526(>=) = \(a :: _) (b :: _) -> _rhs (PrimGreaterThanEqual a b) 574(>=) = _lhs (>=) \(a :: _) (b :: _) -> _rhs (PrimGreaterThanEqual a b)
527 575
528(>) = \(a :: _) (b :: _) -> _rhs (PrimGreaterThan a b) 576(>) = _lhs (>) \(a :: _) (b :: _) -> _rhs (PrimGreaterThan a b)
529 577
530(&&) = \(a :: _) (b :: _) -> _rhs (PrimAnd a b) 578(&&) = _lhs (&&) \(a :: _) (b :: _) -> _rhs (PrimAnd a b)
531 579
532(||) = \(a :: _) (b :: _) -> _rhs (PrimOr a b) 580(||) = _lhs (||) \(a :: _) (b :: _) -> _rhs (PrimOr a b)
533 581
534xor = _rhs PrimXor 582xor = _lhs xor (_rhs PrimXor)
535 583
536not = \(a :: _) -> _rhs (PrimNot a) 584not = _lhs not \(a :: _) -> _rhs (PrimNot a)
537 585
538any = \(a :: _) -> _rhs (PrimAny a) 586any = _lhs any \(a :: _) -> _rhs (PrimAny a)
539 587
540all = \(a :: _) -> _rhs (PrimAll a) 588all = _lhs all \(a :: _) -> _rhs (PrimAll a)
541 589
542(.*.) = \(a :: _) (b :: _) -> _rhs (PrimMulMatMat a b) 590(.*.) = _lhs (.*.) \(a :: _) (b :: _) -> _rhs (PrimMulMatMat a b)
543 591
544(*.) = \(a :: _) (b :: _) -> _rhs (PrimMulMatVec a b) 592(*.) = _lhs (*.) \(a :: _) (b :: _) -> _rhs (PrimMulMatVec a b)
545 593
546(.*) = \(a :: _) (b :: _) -> _rhs (PrimMulVecMat a b) 594(.*) = _lhs (.*) \(a :: _) (b :: _) -> _rhs (PrimMulVecMat a b)
547 595
548infixl 7 *! 596infixl 7 *!
549 597
@@ -555,118 +603,142 @@ infixl 6 +!
555 603
556infixl 6 -! 604infixl 6 -!
557 605
558(+!) = \(a :: _) (b :: _) -> _rhs (PrimAddS a b) 606(+!) = _lhs (+!) \(a :: _) (b :: _) -> _rhs (PrimAddS a b)
559 607
560(-!) = \(a :: _) (b :: _) -> _rhs (PrimSubS a b) 608(-!) = _lhs (-!) \(a :: _) (b :: _) -> _rhs (PrimSubS a b)
561 609
562(*!) = \(a :: _) (b :: _) -> _rhs (PrimMulS a b) 610(*!) = _lhs (*!) \(a :: _) (b :: _) -> _rhs (PrimMulS a b)
563 611
564(/!) = \(a :: _) (b :: _) -> _rhs (PrimDivS a b) 612(/!) = _lhs (/!) \(a :: _) (b :: _) -> _rhs (PrimDivS a b)
565 613
566(%!) = \(a :: _) (b :: _) -> _rhs (PrimModS a b) 614(%!) = _lhs (%!) \(a :: _) (b :: _) -> _rhs (PrimModS a b)
567 615
568perspective 616perspective
569 :: Float -> Float -> Float -> Float -> Mat (fromInt 4) (fromInt 4) Float 617 :: Float -> Float -> Float -> Float -> Mat (fromInt 4) (fromInt 4) Float
570perspective 618perspective
571 = \(a :: _) (b :: _) (c :: _) (d :: _) -> _rhs 619 = _lhs
572 let 620 perspective
573 e = _rhs (a * tan (c / fromInt 2)); 621 \(a :: _) (b :: _) (c :: _) (d :: _) -> _rhs
574 f = _rhs (fromInt 0 - e); 622 let
575 g = _rhs (d * e); 623 e = _lhs t (_rhs (a * tan (c / fromInt 2)));
576 h = _rhs (fromInt 0 - g) 624 f = _lhs b (_rhs (fromInt 0 - e));
577 in M44F 625 g = _lhs r (_rhs (d * e));
578 (V4 (fromInt 2 * a / (g - h)) (fromInt 0) (fromInt 0) (fromInt 0)) 626 h = _lhs l (_rhs (fromInt 0 - g))
579 (V4 (fromInt 0) (fromInt 2 * a / (e - f)) (fromInt 0) (fromInt 0)) 627 in M44F
580 (V4 628 (V4 (fromInt 2 * a / (g - h)) (fromInt 0) (fromInt 0) (fromInt 0))
581 ((g + h) / (g - h)) 629 (V4 (fromInt 0) (fromInt 2 * a / (e - f)) (fromInt 0) (fromInt 0))
582 ((e + f) / (e - f)) 630 (V4
583 (fromInt 0 - (b + a) / (b - a)) 631 ((g + h) / (g - h))
584 (fromInt 0 - fromInt 1)) 632 ((e + f) / (e - f))
585 (V4 633 (fromInt 0 - (b + a) / (b - a))
586 (fromInt 0) 634 (fromInt 0 - fromInt 1))
587 (fromInt 0) 635 (V4
588 (fromInt 0 - fromInt 2 * b * a / (b - a)) 636 (fromInt 0)
589 (fromInt 0)) 637 (fromInt 0)
638 (fromInt 0 - fromInt 2 * b * a / (b - a))
639 (fromInt 0))
590 640
591rotMatrixZ 641rotMatrixZ
592 = \(a :: _) -> _rhs 642 = _lhs
593 let b = _rhs (cos a); c = _rhs (sin a) in M44F 643 rotMatrixZ
594 (V4 b c (fromInt 0) (fromInt 0)) 644 \(a :: _) -> _rhs
595 (V4 (fromInt 0 - c) b (fromInt 0) (fromInt 0)) 645 let b = _lhs c (_rhs (cos a)); c = _lhs s (_rhs (sin a)) in M44F
596 (V4 (fromInt 0) (fromInt 0) (fromInt 1) (fromInt 0)) 646 (V4 b c (fromInt 0) (fromInt 0))
597 (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1)) 647 (V4 (fromInt 0 - c) b (fromInt 0) (fromInt 0))
648 (V4 (fromInt 0) (fromInt 0) (fromInt 1) (fromInt 0))
649 (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1))
598 650
599rotMatrixY 651rotMatrixY
600 = \(a :: _) -> _rhs 652 = _lhs
601 let b = _rhs (cos a); c = _rhs (sin a) in M44F 653 rotMatrixY
602 (V4 b (fromInt 0) (fromInt 0 - c) (fromInt 0)) 654 \(a :: _) -> _rhs
603 (V4 (fromInt 0) (fromInt 1) (fromInt 0) (fromInt 0)) 655 let b = _lhs c (_rhs (cos a)); c = _lhs s (_rhs (sin a)) in M44F
604 (V4 c (fromInt 0) b (fromInt 0)) 656 (V4 b (fromInt 0) (fromInt 0 - c) (fromInt 0))
605 (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1)) 657 (V4 (fromInt 0) (fromInt 1) (fromInt 0) (fromInt 0))
658 (V4 c (fromInt 0) b (fromInt 0))
659 (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1))
606 660
607rotMatrixX 661rotMatrixX
608 = \(a :: _) -> _rhs 662 = _lhs
609 let b = _rhs (cos a); c = _rhs (sin a) in M44F 663 rotMatrixX
610 (V4 (fromInt 1) (fromInt 0) (fromInt 0) (fromInt 0)) 664 \(a :: _) -> _rhs
611 (V4 (fromInt 0) b c (fromInt 0)) 665 let b = _lhs c (_rhs (cos a)); c = _lhs s (_rhs (sin a)) in M44F
612 (V4 (fromInt 0) (fromInt 0 - c) b (fromInt 0)) 666 (V4 (fromInt 1) (fromInt 0) (fromInt 0) (fromInt 0))
613 (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1)) 667 (V4 (fromInt 0) b c (fromInt 0))
668 (V4 (fromInt 0) (fromInt 0 - c) b (fromInt 0))
669 (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1))
614 670
615rotationEuler 671rotationEuler
616 = \(a :: _) (b :: _) (c :: _) -> _rhs 672 = _lhs
617 (rotMatrixY a .*. rotMatrixX b .*. rotMatrixZ c) 673 rotationEuler
674 \(a :: _) (b :: _) (c :: _) -> _rhs
675 (rotMatrixY a .*. rotMatrixX b .*. rotMatrixZ c)
618 676
619translateBefore4 :: Vec (fromInt 3) Float -> Mat (fromInt 4) (fromInt 4) Float 677translateBefore4 :: Vec (fromInt 3) Float -> Mat (fromInt 4) (fromInt 4) Float
620translateBefore4 678translateBefore4
621 = \(a :: _) -> _rhs 679 = _lhs
622 let 680 translateBefore4
623 b = _rhs (V4 (fromInt 1) (fromInt 0) (fromInt 0) (fromInt 0)); 681 \(a :: _) -> _rhs
624 c = _rhs (V4 (fromInt 0) (fromInt 1) (fromInt 0) (fromInt 0)); 682 let
625 d = _rhs (V4 (fromInt 0) (fromInt 0) (fromInt 1) (fromInt 0)); 683 b = _lhs r1 (_rhs (V4 (fromInt 1) (fromInt 0) (fromInt 0) (fromInt 0)));
626 e 684 c = _lhs r2 (_rhs (V4 (fromInt 0) (fromInt 1) (fromInt 0) (fromInt 0)));
627 = _rhs (V4 (swizzscalar a Sx) (swizzscalar a Sy) (swizzscalar a Sz) (fromInt 1)) 685 d = _lhs r3 (_rhs (V4 (fromInt 0) (fromInt 0) (fromInt 1) (fromInt 0)));
628 in M44F b c d e 686 e
687 = _lhs
688 r4
689 (_rhs (V4 (swizzscalar a Sx) (swizzscalar a Sy) (swizzscalar a Sz) (fromInt 1)))
690 in M44F b c d e
629 691
630lookat 692lookat
631 :: Vec (fromInt 3) Float 693 :: Vec (fromInt 3) Float
632 -> Vec (fromInt 3) Float 694 -> Vec (fromInt 3) Float
633 -> Vec (fromInt 3) Float -> Mat (fromInt 4) (fromInt 4) Float 695 -> Vec (fromInt 3) Float -> Mat (fromInt 4) (fromInt 4) Float
634lookat 696lookat
635 = \(a :: _) (b :: _) (c :: _) -> _rhs 697 = _lhs
636 let 698 lookat
637 d 699 \(a :: _) (b :: _) (c :: _) -> _rhs
638 = \(i :: _) -> _rhs 700 let
639 (V4 (swizzscalar i Sx) (swizzscalar i Sy) (swizzscalar i Sz) (fromInt 0)); 701 d
640 e = _rhs (normalize $ a - b); 702 = _lhs
641 f = _rhs (normalize $ c `cross` e); 703 ext0
642 g = _rhs (e `cross` f); 704 \(i :: _) -> _rhs
643 h 705 (V4 (swizzscalar i Sx) (swizzscalar i Sy) (swizzscalar i Sz) (fromInt 0));
644 = _rhs 706 e = _lhs w (_rhs (normalize $ a - b));
645 (transpose 707 f = _lhs u (_rhs (normalize $ c `cross` e));
646 $ M44F (d f) (d g) (d e) (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1))) 708 g = _lhs v (_rhs (e `cross` f));
647 in h .*. translateBefore4 (neg a) 709 h
648 710 = _lhs
649scale = \(a :: _) (b :: _) -> _rhs (b * V4 a a a 1.0) 711 r
712 (_rhs
713 (transpose
714 $ M44F (d f) (d g) (d e) (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1))))
715 in h .*. translateBefore4 (neg a)
716
717scale = _lhs scale \(a :: _) (b :: _) -> _rhs (b * V4 a a a 1.0)
650 718
651fromTo :: Float -> Float -> [Float] 719fromTo :: Float -> Float -> [Float]
652fromTo 720fromTo
653 = \(a :: _) (b :: _) -> case'Bool 721 = _lhs
654 (\(_ :: _) -> _) 722 fromTo
655 (_rhs (a : fromTo (a + fromInt 1) b)) 723 \(a :: _) (b :: _) -> case'Bool
656 (_rhs []) 724 (\(_ :: _) -> _)
657 (a > b) 725 (_rhs (a : fromTo (a + fromInt 1) b))
726 (_rhs [])
727 (a > b)
658 728
659(!!) :: forall (a :: _) . [a] -> Int -> a 729(!!) :: forall (a :: _) . [a] -> Int -> a
660(!!) 730(!!)
661 = \(a :: _) (b :: _) -> case'List 731 = _lhs
662 (\(_ :: _) -> _) 732 (!!)
663 (_rhs undefined) 733 \(a :: _) (b :: _) -> case'List
664 (\(c :: _) (d :: _) -> case'Bool
665 (\(_ :: _) -> _) 734 (\(_ :: _) -> _)
666 (_rhs (d !! (b - fromInt 1))) 735 (_rhs undefined)
667 (_rhs c) 736 (\(c :: _) (d :: _) -> case'Bool
668 (fromInt 0 == b)) 737 (\(_ :: _) -> _)
669 a 738 (_rhs (d !! (b - fromInt 1)))
739 (_rhs c)
740 (fromInt 0 == b))
741 a
670------------ core code 742------------ core code
671!! :: forall a . [a] -> Int -> a 743!! :: forall a . [a] -> Int -> a
672!! 744!!
diff --git a/testdata/SampleMaterial.out b/testdata/SampleMaterial.out
index 70bcb06a..58f4be80 100644
--- a/testdata/SampleMaterial.out
+++ b/testdata/SampleMaterial.out
@@ -1,1881 +1,1883 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3sampleMaterial 3sampleMaterial
4 = _rhs 4 = _lhs
5 [("textures/gothic_block/blocks11b" 5 sampleMaterial
6 , CommonAttrs 6 (_rhs
7 () 7 [("textures/gothic_block/blocks11b"
8 () 8 , CommonAttrs
9 False 9 ()
10 (fromInt 0) 10 ()
11 False 11 False
12 False 12 (fromInt 0)
13 CT_FrontSided 13 False
14 [] 14 False
15 False 15 CT_FrontSided
16 False 16 []
17 [StageAttrs 17 False
18 Nothing 18 False
19 RGB_IdentityLighting 19 [StageAttrs
20 A_Identity 20 Nothing
21 TG_Base 21 RGB_IdentityLighting
22 [] 22 A_Identity
23 (ST_Map "textures/gothic_block/blocks11b") 23 TG_Base
24 True 24 []
25 D_Lequal 25 (ST_Map "textures/gothic_block/blocks11b")
26 Nothing 26 True
27 False 27 D_Lequal
28 "Tex_4288602201" 28 Nothing
29 , StageAttrs 29 False
30 (Just (B_DstColor, B_Zero)) 30 "Tex_4288602201"
31 RGB_IdentityLighting 31 , StageAttrs
32 A_Identity 32 (Just (B_DstColor, B_Zero))
33 TG_Lightmap 33 RGB_IdentityLighting
34 [] 34 A_Identity
35 ST_Lightmap 35 TG_Lightmap
36 True 36 []
37 D_Lequal 37 ST_Lightmap
38 Nothing 38 True
39 False 39 D_Lequal
40 "Tex_3226210144"] 40 Nothing
41 False) 41 False
42 , ("textures/gothic_block/blocks15" 42 "Tex_3226210144"]
43 , CommonAttrs 43 False)
44 () 44 , ("textures/gothic_block/blocks15"
45 () 45 , CommonAttrs
46 False 46 ()
47 (fromInt 0) 47 ()
48 False 48 False
49 False 49 (fromInt 0)
50 CT_FrontSided 50 False
51 [] 51 False
52 False 52 CT_FrontSided
53 False 53 []
54 [StageAttrs 54 False
55 Nothing 55 False
56 RGB_IdentityLighting 56 [StageAttrs
57 A_Identity 57 Nothing
58 TG_Base 58 RGB_IdentityLighting
59 [] 59 A_Identity
60 (ST_Map "textures/gothic_block/blocks15") 60 TG_Base
61 True 61 []
62 D_Lequal 62 (ST_Map "textures/gothic_block/blocks15")
63 Nothing 63 True
64 False 64 D_Lequal
65 "Tex_2523116863" 65 Nothing
66 , StageAttrs 66 False
67 (Just (B_DstColor, B_Zero)) 67 "Tex_2523116863"
68 RGB_IdentityLighting 68 , StageAttrs
69 A_Identity 69 (Just (B_DstColor, B_Zero))
70 TG_Lightmap 70 RGB_IdentityLighting
71 [] 71 A_Identity
72 ST_Lightmap 72 TG_Lightmap
73 True 73 []
74 D_Lequal 74 ST_Lightmap
75 Nothing 75 True
76 False 76 D_Lequal
77 "Tex_3226210144"] 77 Nothing
78 False) 78 False
79 , ("textures/gothic_block/blocks18b" 79 "Tex_3226210144"]
80 , CommonAttrs 80 False)
81 () 81 , ("textures/gothic_block/blocks18b"
82 () 82 , CommonAttrs
83 False 83 ()
84 (fromInt 0) 84 ()
85 False 85 False
86 False 86 (fromInt 0)
87 CT_FrontSided 87 False
88 [] 88 False
89 False 89 CT_FrontSided
90 False 90 []
91 [StageAttrs 91 False
92 Nothing 92 False
93 RGB_IdentityLighting 93 [StageAttrs
94 A_Identity 94 Nothing
95 TG_Base 95 RGB_IdentityLighting
96 [] 96 A_Identity
97 (ST_Map "textures/gothic_block/blocks18b") 97 TG_Base
98 True 98 []
99 D_Lequal 99 (ST_Map "textures/gothic_block/blocks18b")
100 Nothing 100 True
101 False 101 D_Lequal
102 "Tex_2639119078" 102 Nothing
103 , StageAttrs 103 False
104 (Just (B_DstColor, B_Zero)) 104 "Tex_2639119078"
105 RGB_IdentityLighting 105 , StageAttrs
106 A_Identity 106 (Just (B_DstColor, B_Zero))
107 TG_Lightmap 107 RGB_IdentityLighting
108 [] 108 A_Identity
109 ST_Lightmap 109 TG_Lightmap
110 True 110 []
111 D_Lequal 111 ST_Lightmap
112 Nothing 112 True
113 False 113 D_Lequal
114 "Tex_3226210144"] 114 Nothing
115 False) 115 False
116 , ("textures/gothic_block/blocks18c_3" 116 "Tex_3226210144"]
117 , CommonAttrs 117 False)
118 () 118 , ("textures/gothic_block/blocks18c_3"
119 () 119 , CommonAttrs
120 False 120 ()
121 (fromInt 0) 121 ()
122 False 122 False
123 False 123 (fromInt 0)
124 CT_FrontSided 124 False
125 [] 125 False
126 False 126 CT_FrontSided
127 False 127 []
128 [StageAttrs 128 False
129 Nothing 129 False
130 RGB_IdentityLighting 130 [StageAttrs
131 A_Identity 131 Nothing
132 TG_Base 132 RGB_IdentityLighting
133 [] 133 A_Identity
134 (ST_Map "textures/gothic_block/blocks18c_3") 134 TG_Base
135 True 135 []
136 D_Lequal 136 (ST_Map "textures/gothic_block/blocks18c_3")
137 Nothing 137 True
138 False 138 D_Lequal
139 "Tex_3939430064" 139 Nothing
140 , StageAttrs 140 False
141 (Just (B_DstColor, B_Zero)) 141 "Tex_3939430064"
142 RGB_IdentityLighting 142 , StageAttrs
143 A_Identity 143 (Just (B_DstColor, B_Zero))
144 TG_Lightmap 144 RGB_IdentityLighting
145 [] 145 A_Identity
146 ST_Lightmap 146 TG_Lightmap
147 True 147 []
148 D_Lequal 148 ST_Lightmap
149 Nothing 149 True
150 False 150 D_Lequal
151 "Tex_3226210144"] 151 Nothing
152 False) 152 False
153 , ("textures/gothic_block/demon_block15fx" 153 "Tex_3226210144"]
154 , CommonAttrs 154 False)
155 () 155 , ("textures/gothic_block/demon_block15fx"
156 () 156 , CommonAttrs
157 False 157 ()
158 (fromInt 3) 158 ()
159 False 159 False
160 False 160 (fromInt 3)
161 CT_FrontSided 161 False
162 [] 162 False
163 False 163 CT_FrontSided
164 False 164 []
165 [StageAttrs 165 False
166 Nothing 166 False
167 RGB_Identity 167 [StageAttrs
168 A_Identity 168 Nothing
169 TG_Base 169 RGB_Identity
170 [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 1.6, TM_Scale 4.0 4.0] 170 A_Identity
171 (ST_Map "textures/sfx/firegorre.tga") 171 TG_Base
172 True 172 [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 1.6, TM_Scale 4.0 4.0]
173 D_Lequal 173 (ST_Map "textures/sfx/firegorre.tga")
174 Nothing 174 True
175 False 175 D_Lequal
176 "Tex_47037129" 176 Nothing
177 , StageAttrs 177 False
178 (Just (B_SrcAlpha, B_OneMinusSrcAlpha)) 178 "Tex_47037129"
179 RGB_Identity 179 , StageAttrs
180 A_Identity 180 (Just (B_SrcAlpha, B_OneMinusSrcAlpha))
181 TG_Base 181 RGB_Identity
182 [] 182 A_Identity
183 (ST_Map "textures/gothic_block/demon_block15fx.tga") 183 TG_Base
184 False 184 []
185 D_Lequal 185 (ST_Map "textures/gothic_block/demon_block15fx.tga")
186 Nothing 186 False
187 False 187 D_Lequal
188 "Tex_3562558025" 188 Nothing
189 , StageAttrs 189 False
190 (Just (B_DstColor, B_OneMinusDstAlpha)) 190 "Tex_3562558025"
191 RGB_Identity 191 , StageAttrs
192 A_Identity 192 (Just (B_DstColor, B_OneMinusDstAlpha))
193 TG_Lightmap 193 RGB_Identity
194 [] 194 A_Identity
195 ST_Lightmap 195 TG_Lightmap
196 False 196 []
197 D_Lequal 197 ST_Lightmap
198 Nothing 198 False
199 False 199 D_Lequal
200 "Tex_2065974340"] 200 Nothing
201 False) 201 False
202 , ("textures/gothic_block/killblock" 202 "Tex_2065974340"]
203 , CommonAttrs 203 False)
204 () 204 , ("textures/gothic_block/killblock"
205 () 205 , CommonAttrs
206 False 206 ()
207 (fromInt 0) 207 ()
208 False 208 False
209 False 209 (fromInt 0)
210 CT_FrontSided 210 False
211 [] 211 False
212 False 212 CT_FrontSided
213 False 213 []
214 [StageAttrs 214 False
215 Nothing 215 False
216 RGB_IdentityLighting 216 [StageAttrs
217 A_Identity 217 Nothing
218 TG_Base 218 RGB_IdentityLighting
219 [] 219 A_Identity
220 (ST_Map "textures/gothic_block/killblock") 220 TG_Base
221 True 221 []
222 D_Lequal 222 (ST_Map "textures/gothic_block/killblock")
223 Nothing 223 True
224 False 224 D_Lequal
225 "Tex_3647563961" 225 Nothing
226 , StageAttrs 226 False
227 (Just (B_DstColor, B_Zero)) 227 "Tex_3647563961"
228 RGB_IdentityLighting 228 , StageAttrs
229 A_Identity 229 (Just (B_DstColor, B_Zero))
230 TG_Lightmap 230 RGB_IdentityLighting
231 [] 231 A_Identity
232 ST_Lightmap 232 TG_Lightmap
233 True 233 []
234 D_Lequal 234 ST_Lightmap
235 Nothing 235 True
236 False 236 D_Lequal
237 "Tex_3226210144"] 237 Nothing
238 False) 238 False
239 , ("textures/gothic_block/killblock_i" 239 "Tex_3226210144"]
240 , CommonAttrs 240 False)
241 () 241 , ("textures/gothic_block/killblock_i"
242 () 242 , CommonAttrs
243 False 243 ()
244 (fromInt 0) 244 ()
245 False 245 False
246 False 246 (fromInt 0)
247 CT_FrontSided 247 False
248 [] 248 False
249 False 249 CT_FrontSided
250 False 250 []
251 [StageAttrs 251 False
252 Nothing 252 False
253 RGB_IdentityLighting 253 [StageAttrs
254 A_Identity 254 Nothing
255 TG_Base 255 RGB_IdentityLighting
256 [] 256 A_Identity
257 (ST_Map "textures/gothic_block/killblock_i") 257 TG_Base
258 True 258 []
259 D_Lequal 259 (ST_Map "textures/gothic_block/killblock_i")
260 Nothing 260 True
261 False 261 D_Lequal
262 "Tex_209322640" 262 Nothing
263 , StageAttrs 263 False
264 (Just (B_DstColor, B_Zero)) 264 "Tex_209322640"
265 RGB_IdentityLighting 265 , StageAttrs
266 A_Identity 266 (Just (B_DstColor, B_Zero))
267 TG_Lightmap 267 RGB_IdentityLighting
268 [] 268 A_Identity
269 ST_Lightmap 269 TG_Lightmap
270 True 270 []
271 D_Lequal 271 ST_Lightmap
272 Nothing 272 True
273 False 273 D_Lequal
274 "Tex_3226210144"] 274 Nothing
275 False) 275 False
276 , ("textures/gothic_block/killblock_i4" 276 "Tex_3226210144"]
277 , CommonAttrs 277 False)
278 () 278 , ("textures/gothic_block/killblock_i4"
279 () 279 , CommonAttrs
280 False 280 ()
281 (fromInt 0) 281 ()
282 False 282 False
283 False 283 (fromInt 0)
284 CT_FrontSided 284 False
285 [] 285 False
286 False 286 CT_FrontSided
287 False 287 []
288 [StageAttrs 288 False
289 Nothing 289 False
290 RGB_IdentityLighting 290 [StageAttrs
291 A_Identity 291 Nothing
292 TG_Base 292 RGB_IdentityLighting
293 [] 293 A_Identity
294 (ST_Map "textures/gothic_block/killblock_i4") 294 TG_Base
295 True 295 []
296 D_Lequal 296 (ST_Map "textures/gothic_block/killblock_i4")
297 Nothing 297 True
298 False 298 D_Lequal
299 "Tex_3617993418" 299 Nothing
300 , StageAttrs 300 False
301 (Just (B_DstColor, B_Zero)) 301 "Tex_3617993418"
302 RGB_IdentityLighting 302 , StageAttrs
303 A_Identity 303 (Just (B_DstColor, B_Zero))
304 TG_Lightmap 304 RGB_IdentityLighting
305 [] 305 A_Identity
306 ST_Lightmap 306 TG_Lightmap
307 True 307 []
308 D_Lequal 308 ST_Lightmap
309 Nothing 309 True
310 False 310 D_Lequal
311 "Tex_3226210144"] 311 Nothing
312 False) 312 False
313 , ("textures/gothic_door/km_arena1archfinalc_mid" 313 "Tex_3226210144"]
314 , CommonAttrs 314 False)
315 () 315 , ("textures/gothic_door/km_arena1archfinalc_mid"
316 () 316 , CommonAttrs
317 False 317 ()
318 (fromInt 0) 318 ()
319 False 319 False
320 False 320 (fromInt 0)
321 CT_FrontSided 321 False
322 [] 322 False
323 False 323 CT_FrontSided
324 False 324 []
325 [StageAttrs 325 False
326 Nothing 326 False
327 RGB_IdentityLighting 327 [StageAttrs
328 A_Identity 328 Nothing
329 TG_Base 329 RGB_IdentityLighting
330 [] 330 A_Identity
331 (ST_Map "textures/gothic_door/km_arena1archfinalc_mid") 331 TG_Base
332 True 332 []
333 D_Lequal 333 (ST_Map "textures/gothic_door/km_arena1archfinalc_mid")
334 Nothing 334 True
335 False 335 D_Lequal
336 "Tex_2073154888" 336 Nothing
337 , StageAttrs 337 False
338 (Just (B_DstColor, B_Zero)) 338 "Tex_2073154888"
339 RGB_IdentityLighting 339 , StageAttrs
340 A_Identity 340 (Just (B_DstColor, B_Zero))
341 TG_Lightmap 341 RGB_IdentityLighting
342 [] 342 A_Identity
343 ST_Lightmap 343 TG_Lightmap
344 True 344 []
345 D_Lequal 345 ST_Lightmap
346 Nothing 346 True
347 False 347 D_Lequal
348 "Tex_3226210144"] 348 Nothing
349 False) 349 False
350 , ("textures/gothic_door/km_arena1archfinalc_top" 350 "Tex_3226210144"]
351 , CommonAttrs 351 False)
352 () 352 , ("textures/gothic_door/km_arena1archfinalc_top"
353 () 353 , CommonAttrs
354 False 354 ()
355 (fromInt 0) 355 ()
356 False 356 False
357 False 357 (fromInt 0)
358 CT_FrontSided 358 False
359 [] 359 False
360 False 360 CT_FrontSided
361 False 361 []
362 [StageAttrs 362 False
363 Nothing 363 False
364 RGB_IdentityLighting 364 [StageAttrs
365 A_Identity 365 Nothing
366 TG_Base 366 RGB_IdentityLighting
367 [] 367 A_Identity
368 (ST_Map "textures/gothic_door/km_arena1archfinalc_top") 368 TG_Base
369 True 369 []
370 D_Lequal 370 (ST_Map "textures/gothic_door/km_arena1archfinalc_top")
371 Nothing 371 True
372 False 372 D_Lequal
373 "Tex_3071107621" 373 Nothing
374 , StageAttrs 374 False
375 (Just (B_DstColor, B_Zero)) 375 "Tex_3071107621"
376 RGB_IdentityLighting 376 , StageAttrs
377 A_Identity 377 (Just (B_DstColor, B_Zero))
378 TG_Lightmap 378 RGB_IdentityLighting
379 [] 379 A_Identity
380 ST_Lightmap 380 TG_Lightmap
381 True 381 []
382 D_Lequal 382 ST_Lightmap
383 Nothing 383 True
384 False 384 D_Lequal
385 "Tex_3226210144"] 385 Nothing
386 False) 386 False
387 , ("textures/gothic_door/km_arena1archfinald_bot" 387 "Tex_3226210144"]
388 , CommonAttrs 388 False)
389 () 389 , ("textures/gothic_door/km_arena1archfinald_bot"
390 () 390 , CommonAttrs
391 False 391 ()
392 (fromInt 0) 392 ()
393 False 393 False
394 False 394 (fromInt 0)
395 CT_FrontSided 395 False
396 [] 396 False
397 False 397 CT_FrontSided
398 False 398 []
399 [StageAttrs 399 False
400 Nothing 400 False
401 RGB_IdentityLighting 401 [StageAttrs
402 A_Identity 402 Nothing
403 TG_Base 403 RGB_IdentityLighting
404 [] 404 A_Identity
405 (ST_Map "textures/gothic_door/km_arena1archfinald_bot") 405 TG_Base
406 True 406 []
407 D_Lequal 407 (ST_Map "textures/gothic_door/km_arena1archfinald_bot")
408 Nothing 408 True
409 False 409 D_Lequal
410 "Tex_1201212243" 410 Nothing
411 , StageAttrs 411 False
412 (Just (B_DstColor, B_Zero)) 412 "Tex_1201212243"
413 RGB_IdentityLighting 413 , StageAttrs
414 A_Identity 414 (Just (B_DstColor, B_Zero))
415 TG_Lightmap 415 RGB_IdentityLighting
416 [] 416 A_Identity
417 ST_Lightmap 417 TG_Lightmap
418 True 418 []
419 D_Lequal 419 ST_Lightmap
420 Nothing 420 True
421 False 421 D_Lequal
422 "Tex_3226210144"] 422 Nothing
423 False) 423 False
424 , ("textures/gothic_door/km_arena1archfinald_mid" 424 "Tex_3226210144"]
425 , CommonAttrs 425 False)
426 () 426 , ("textures/gothic_door/km_arena1archfinald_mid"
427 () 427 , CommonAttrs
428 False 428 ()
429 (fromInt 0) 429 ()
430 False 430 False
431 False 431 (fromInt 0)
432 CT_FrontSided 432 False
433 [] 433 False
434 False 434 CT_FrontSided
435 False 435 []
436 [StageAttrs 436 False
437 Nothing 437 False
438 RGB_IdentityLighting 438 [StageAttrs
439 A_Identity 439 Nothing
440 TG_Base 440 RGB_IdentityLighting
441 [] 441 A_Identity
442 (ST_Map "textures/gothic_door/km_arena1archfinald_mid") 442 TG_Base
443 True 443 []
444 D_Lequal 444 (ST_Map "textures/gothic_door/km_arena1archfinald_mid")
445 Nothing 445 True
446 False 446 D_Lequal
447 "Tex_3768122504" 447 Nothing
448 , StageAttrs 448 False
449 (Just (B_DstColor, B_Zero)) 449 "Tex_3768122504"
450 RGB_IdentityLighting 450 , StageAttrs
451 A_Identity 451 (Just (B_DstColor, B_Zero))
452 TG_Lightmap 452 RGB_IdentityLighting
453 [] 453 A_Identity
454 ST_Lightmap 454 TG_Lightmap
455 True 455 []
456 D_Lequal 456 ST_Lightmap
457 Nothing 457 True
458 False 458 D_Lequal
459 "Tex_3226210144"] 459 Nothing
460 False) 460 False
461 , ("textures/gothic_door/skull_door_a" 461 "Tex_3226210144"]
462 , CommonAttrs 462 False)
463 () 463 , ("textures/gothic_door/skull_door_a"
464 () 464 , CommonAttrs
465 False 465 ()
466 (fromInt 0) 466 ()
467 False 467 False
468 False 468 (fromInt 0)
469 CT_FrontSided 469 False
470 [] 470 False
471 False 471 CT_FrontSided
472 False 472 []
473 [StageAttrs 473 False
474 Nothing 474 False
475 RGB_IdentityLighting 475 [StageAttrs
476 A_Identity 476 Nothing
477 TG_Base 477 RGB_IdentityLighting
478 [] 478 A_Identity
479 (ST_Map "textures/gothic_door/skull_door_a") 479 TG_Base
480 True 480 []
481 D_Lequal 481 (ST_Map "textures/gothic_door/skull_door_a")
482 Nothing 482 True
483 False 483 D_Lequal
484 "Tex_1284708166" 484 Nothing
485 , StageAttrs 485 False
486 (Just (B_DstColor, B_Zero)) 486 "Tex_1284708166"
487 RGB_IdentityLighting 487 , StageAttrs
488 A_Identity 488 (Just (B_DstColor, B_Zero))
489 TG_Lightmap 489 RGB_IdentityLighting
490 [] 490 A_Identity
491 ST_Lightmap 491 TG_Lightmap
492 True 492 []
493 D_Lequal 493 ST_Lightmap
494 Nothing 494 True
495 False 495 D_Lequal
496 "Tex_3226210144"] 496 Nothing
497 False) 497 False
498 , ("textures/gothic_door/skull_door_b" 498 "Tex_3226210144"]
499 , CommonAttrs 499 False)
500 () 500 , ("textures/gothic_door/skull_door_b"
501 () 501 , CommonAttrs
502 False 502 ()
503 (fromInt 0) 503 ()
504 False 504 False
505 False 505 (fromInt 0)
506 CT_FrontSided 506 False
507 [] 507 False
508 False 508 CT_FrontSided
509 False 509 []
510 [StageAttrs 510 False
511 Nothing 511 False
512 RGB_IdentityLighting 512 [StageAttrs
513 A_Identity 513 Nothing
514 TG_Base 514 RGB_IdentityLighting
515 [] 515 A_Identity
516 (ST_Map "textures/gothic_door/skull_door_b") 516 TG_Base
517 True 517 []
518 D_Lequal 518 (ST_Map "textures/gothic_door/skull_door_b")
519 Nothing 519 True
520 False 520 D_Lequal
521 "Tex_1318715778" 521 Nothing
522 , StageAttrs 522 False
523 (Just (B_DstColor, B_Zero)) 523 "Tex_1318715778"
524 RGB_IdentityLighting 524 , StageAttrs
525 A_Identity 525 (Just (B_DstColor, B_Zero))
526 TG_Lightmap 526 RGB_IdentityLighting
527 [] 527 A_Identity
528 ST_Lightmap 528 TG_Lightmap
529 True 529 []
530 D_Lequal 530 ST_Lightmap
531 Nothing 531 True
532 False 532 D_Lequal
533 "Tex_3226210144"] 533 Nothing
534 False) 534 False
535 , ("textures/gothic_door/skull_door_c" 535 "Tex_3226210144"]
536 , CommonAttrs 536 False)
537 () 537 , ("textures/gothic_door/skull_door_c"
538 () 538 , CommonAttrs
539 False 539 ()
540 (fromInt 0) 540 ()
541 False 541 False
542 False 542 (fromInt 0)
543 CT_FrontSided 543 False
544 [] 544 False
545 False 545 CT_FrontSided
546 False 546 []
547 [StageAttrs 547 False
548 Nothing 548 False
549 RGB_IdentityLighting 549 [StageAttrs
550 A_Identity 550 Nothing
551 TG_Base 551 RGB_IdentityLighting
552 [] 552 A_Identity
553 (ST_Map "textures/gothic_door/skull_door_c") 553 TG_Base
554 True 554 []
555 D_Lequal 555 (ST_Map "textures/gothic_door/skull_door_c")
556 Nothing 556 True
557 False 557 D_Lequal
558 "Tex_4189195777" 558 Nothing
559 , StageAttrs 559 False
560 (Just (B_DstColor, B_Zero)) 560 "Tex_4189195777"
561 RGB_IdentityLighting 561 , StageAttrs
562 A_Identity 562 (Just (B_DstColor, B_Zero))
563 TG_Lightmap 563 RGB_IdentityLighting
564 [] 564 A_Identity
565 ST_Lightmap 565 TG_Lightmap
566 True 566 []
567 D_Lequal 567 ST_Lightmap
568 Nothing 568 True
569 False 569 D_Lequal
570 "Tex_3226210144"] 570 Nothing
571 False) 571 False
572 , ("textures/gothic_door/skull_door_d" 572 "Tex_3226210144"]
573 , CommonAttrs 573 False)
574 () 574 , ("textures/gothic_door/skull_door_d"
575 () 575 , CommonAttrs
576 False 576 ()
577 (fromInt 0) 577 ()
578 False 578 False
579 False 579 (fromInt 0)
580 CT_FrontSided 580 False
581 [] 581 False
582 False 582 CT_FrontSided
583 False 583 []
584 [StageAttrs 584 False
585 Nothing 585 False
586 RGB_IdentityLighting 586 [StageAttrs
587 A_Identity 587 Nothing
588 TG_Base 588 RGB_IdentityLighting
589 [] 589 A_Identity
590 (ST_Map "textures/gothic_door/skull_door_d") 590 TG_Base
591 True 591 []
592 D_Lequal 592 (ST_Map "textures/gothic_door/skull_door_d")
593 Nothing 593 True
594 False 594 D_Lequal
595 "Tex_1250438154" 595 Nothing
596 , StageAttrs 596 False
597 (Just (B_DstColor, B_Zero)) 597 "Tex_1250438154"
598 RGB_IdentityLighting 598 , StageAttrs
599 A_Identity 599 (Just (B_DstColor, B_Zero))
600 TG_Lightmap 600 RGB_IdentityLighting
601 [] 601 A_Identity
602 ST_Lightmap 602 TG_Lightmap
603 True 603 []
604 D_Lequal 604 ST_Lightmap
605 Nothing 605 True
606 False 606 D_Lequal
607 "Tex_3226210144"] 607 Nothing
608 False) 608 False
609 , ("textures/gothic_door/skull_door_e" 609 "Tex_3226210144"]
610 , CommonAttrs 610 False)
611 () 611 , ("textures/gothic_door/skull_door_e"
612 () 612 , CommonAttrs
613 False 613 ()
614 (fromInt 0) 614 ()
615 False 615 False
616 False 616 (fromInt 0)
617 CT_FrontSided 617 False
618 [] 618 False
619 False 619 CT_FrontSided
620 False 620 []
621 [StageAttrs 621 False
622 Nothing 622 False
623 RGB_IdentityLighting 623 [StageAttrs
624 A_Identity 624 Nothing
625 TG_Base 625 RGB_IdentityLighting
626 [] 626 A_Identity
627 (ST_Map "textures/gothic_door/skull_door_e") 627 TG_Base
628 True 628 []
629 D_Lequal 629 (ST_Map "textures/gothic_door/skull_door_e")
630 Nothing 630 True
631 False 631 D_Lequal
632 "Tex_4255130505" 632 Nothing
633 , StageAttrs 633 False
634 (Just (B_DstColor, B_Zero)) 634 "Tex_4255130505"
635 RGB_IdentityLighting 635 , StageAttrs
636 A_Identity 636 (Just (B_DstColor, B_Zero))
637 TG_Lightmap 637 RGB_IdentityLighting
638 [] 638 A_Identity
639 ST_Lightmap 639 TG_Lightmap
640 True 640 []
641 D_Lequal 641 ST_Lightmap
642 Nothing 642 True
643 False 643 D_Lequal
644 "Tex_3226210144"] 644 Nothing
645 False) 645 False
646 , ("textures/gothic_door/skull_door_f" 646 "Tex_3226210144"]
647 , CommonAttrs 647 False)
648 () 648 , ("textures/gothic_door/skull_door_f"
649 () 649 , CommonAttrs
650 False 650 ()
651 (fromInt 0) 651 ()
652 False 652 False
653 False 653 (fromInt 0)
654 CT_FrontSided 654 False
655 [] 655 False
656 False 656 CT_FrontSided
657 False 657 []
658 [StageAttrs 658 False
659 Nothing 659 False
660 RGB_IdentityLighting 660 [StageAttrs
661 A_Identity 661 Nothing
662 TG_Base 662 RGB_IdentityLighting
663 [] 663 A_Identity
664 (ST_Map "textures/gothic_door/skull_door_f") 664 TG_Base
665 True 665 []
666 D_Lequal 666 (ST_Map "textures/gothic_door/skull_door_f")
667 Nothing 667 True
668 False 668 D_Lequal
669 "Tex_4289279309" 669 Nothing
670 , StageAttrs 670 False
671 (Just (B_DstColor, B_Zero)) 671 "Tex_4289279309"
672 RGB_IdentityLighting 672 , StageAttrs
673 A_Identity 673 (Just (B_DstColor, B_Zero))
674 TG_Lightmap 674 RGB_IdentityLighting
675 [] 675 A_Identity
676 ST_Lightmap 676 TG_Lightmap
677 True 677 []
678 D_Lequal 678 ST_Lightmap
679 Nothing 679 True
680 False 680 D_Lequal
681 "Tex_3226210144"] 681 Nothing
682 False) 682 False
683 , ("textures/gothic_door/skullarch_a" 683 "Tex_3226210144"]
684 , CommonAttrs 684 False)
685 () 685 , ("textures/gothic_door/skullarch_a"
686 () 686 , CommonAttrs
687 False 687 ()
688 (fromInt 0) 688 ()
689 False 689 False
690 False 690 (fromInt 0)
691 CT_FrontSided 691 False
692 [] 692 False
693 False 693 CT_FrontSided
694 False 694 []
695 [StageAttrs 695 False
696 Nothing 696 False
697 RGB_IdentityLighting 697 [StageAttrs
698 A_Identity 698 Nothing
699 TG_Base 699 RGB_IdentityLighting
700 [] 700 A_Identity
701 (ST_Map "textures/gothic_door/skullarch_a") 701 TG_Base
702 True 702 []
703 D_Lequal 703 (ST_Map "textures/gothic_door/skullarch_a")
704 Nothing 704 True
705 False 705 D_Lequal
706 "Tex_3448884269" 706 Nothing
707 , StageAttrs 707 False
708 (Just (B_DstColor, B_Zero)) 708 "Tex_3448884269"
709 RGB_IdentityLighting 709 , StageAttrs
710 A_Identity 710 (Just (B_DstColor, B_Zero))
711 TG_Lightmap 711 RGB_IdentityLighting
712 [] 712 A_Identity
713 ST_Lightmap 713 TG_Lightmap
714 True 714 []
715 D_Lequal 715 ST_Lightmap
716 Nothing 716 True
717 False 717 D_Lequal
718 "Tex_3226210144"] 718 Nothing
719 False) 719 False
720 , ("textures/gothic_door/skullarch_b" 720 "Tex_3226210144"]
721 , CommonAttrs 721 False)
722 () 722 , ("textures/gothic_door/skullarch_b"
723 () 723 , CommonAttrs
724 False 724 ()
725 (fromInt 3) 725 ()
726 False 726 False
727 False 727 (fromInt 3)
728 CT_FrontSided 728 False
729 [] 729 False
730 False 730 CT_FrontSided
731 False 731 []
732 [StageAttrs 732 False
733 Nothing 733 False
734 RGB_Identity 734 [StageAttrs
735 A_Identity 735 Nothing
736 TG_Base 736 RGB_Identity
737 [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 5.6, TM_Scale 1.5 1.5] 737 A_Identity
738 (ST_Map "textures/sfx/firegorre.tga") 738 TG_Base
739 True 739 [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 5.6, TM_Scale 1.5 1.5]
740 D_Lequal 740 (ST_Map "textures/sfx/firegorre.tga")
741 Nothing 741 True
742 False 742 D_Lequal
743 "Tex_3416962274" 743 Nothing
744 , StageAttrs 744 False
745 (Just (B_SrcAlpha, B_OneMinusSrcAlpha)) 745 "Tex_3416962274"
746 RGB_Identity 746 , StageAttrs
747 A_Identity 747 (Just (B_SrcAlpha, B_OneMinusSrcAlpha))
748 TG_Base 748 RGB_Identity
749 [] 749 A_Identity
750 (ST_Map "textures/gothic_door/skullarch_b.tga") 750 TG_Base
751 False 751 []
752 D_Lequal 752 (ST_Map "textures/gothic_door/skullarch_b.tga")
753 Nothing 753 False
754 False 754 D_Lequal
755 "Tex_4077187607" 755 Nothing
756 , StageAttrs 756 False
757 (Just (B_DstColor, B_Zero)) 757 "Tex_4077187607"
758 RGB_Identity 758 , StageAttrs
759 A_Identity 759 (Just (B_DstColor, B_Zero))
760 TG_Lightmap 760 RGB_Identity
761 [] 761 A_Identity
762 ST_Lightmap 762 TG_Lightmap
763 False 763 []
764 D_Lequal 764 ST_Lightmap
765 Nothing 765 False
766 False 766 D_Lequal
767 "Tex_1196599720"] 767 Nothing
768 False) 768 False
769 , ("textures/gothic_door/skullarch_c" 769 "Tex_1196599720"]
770 , CommonAttrs 770 False)
771 () 771 , ("textures/gothic_door/skullarch_c"
772 () 772 , CommonAttrs
773 False 773 ()
774 (fromInt 0) 774 ()
775 False 775 False
776 False 776 (fromInt 0)
777 CT_FrontSided 777 False
778 [] 778 False
779 False 779 CT_FrontSided
780 False 780 []
781 [StageAttrs 781 False
782 Nothing 782 False
783 RGB_IdentityLighting 783 [StageAttrs
784 A_Identity 784 Nothing
785 TG_Base 785 RGB_IdentityLighting
786 [] 786 A_Identity
787 (ST_Map "textures/gothic_door/skullarch_c") 787 TG_Base
788 True 788 []
789 D_Lequal 789 (ST_Map "textures/gothic_door/skullarch_c")
790 Nothing 790 True
791 False 791 D_Lequal
792 "Tex_2024854890" 792 Nothing
793 , StageAttrs 793 False
794 (Just (B_DstColor, B_Zero)) 794 "Tex_2024854890"
795 RGB_IdentityLighting 795 , StageAttrs
796 A_Identity 796 (Just (B_DstColor, B_Zero))
797 TG_Lightmap 797 RGB_IdentityLighting
798 [] 798 A_Identity
799 ST_Lightmap 799 TG_Lightmap
800 True 800 []
801 D_Lequal 801 ST_Lightmap
802 Nothing 802 True
803 False 803 D_Lequal
804 "Tex_3226210144"] 804 Nothing
805 False) 805 False
806 , ("textures/gothic_door/xian_tourneyarch_inside2" 806 "Tex_3226210144"]
807 , CommonAttrs 807 False)
808 () 808 , ("textures/gothic_door/xian_tourneyarch_inside2"
809 () 809 , CommonAttrs
810 False 810 ()
811 (fromInt 0) 811 ()
812 False 812 False
813 False 813 (fromInt 0)
814 CT_FrontSided 814 False
815 [] 815 False
816 False 816 CT_FrontSided
817 False 817 []
818 [StageAttrs 818 False
819 Nothing 819 False
820 RGB_IdentityLighting 820 [StageAttrs
821 A_Identity 821 Nothing
822 TG_Base 822 RGB_IdentityLighting
823 [] 823 A_Identity
824 (ST_Map "textures/gothic_door/xian_tourneyarch_inside2") 824 TG_Base
825 True 825 []
826 D_Lequal 826 (ST_Map "textures/gothic_door/xian_tourneyarch_inside2")
827 Nothing 827 True
828 False 828 D_Lequal
829 "Tex_1435187472" 829 Nothing
830 , StageAttrs 830 False
831 (Just (B_DstColor, B_Zero)) 831 "Tex_1435187472"
832 RGB_IdentityLighting 832 , StageAttrs
833 A_Identity 833 (Just (B_DstColor, B_Zero))
834 TG_Lightmap 834 RGB_IdentityLighting
835 [] 835 A_Identity
836 ST_Lightmap 836 TG_Lightmap
837 True 837 []
838 D_Lequal 838 ST_Lightmap
839 Nothing 839 True
840 False 840 D_Lequal
841 "Tex_3226210144"] 841 Nothing
842 False) 842 False
843 , ("textures/gothic_floor/blocks17floor2" 843 "Tex_3226210144"]
844 , CommonAttrs 844 False)
845 () 845 , ("textures/gothic_floor/blocks17floor2"
846 () 846 , CommonAttrs
847 False 847 ()
848 (fromInt 0) 848 ()
849 False 849 False
850 False 850 (fromInt 0)
851 CT_FrontSided 851 False
852 [] 852 False
853 False 853 CT_FrontSided
854 False 854 []
855 [StageAttrs 855 False
856 Nothing 856 False
857 RGB_IdentityLighting 857 [StageAttrs
858 A_Identity 858 Nothing
859 TG_Base 859 RGB_IdentityLighting
860 [] 860 A_Identity
861 (ST_Map "textures/gothic_floor/blocks17floor2") 861 TG_Base
862 True 862 []
863 D_Lequal 863 (ST_Map "textures/gothic_floor/blocks17floor2")
864 Nothing 864 True
865 False 865 D_Lequal
866 "Tex_3814342582" 866 Nothing
867 , StageAttrs 867 False
868 (Just (B_DstColor, B_Zero)) 868 "Tex_3814342582"
869 RGB_IdentityLighting 869 , StageAttrs
870 A_Identity 870 (Just (B_DstColor, B_Zero))
871 TG_Lightmap 871 RGB_IdentityLighting
872 [] 872 A_Identity
873 ST_Lightmap 873 TG_Lightmap
874 True 874 []
875 D_Lequal 875 ST_Lightmap
876 Nothing 876 True
877 False 877 D_Lequal
878 "Tex_3226210144"] 878 Nothing
879 False) 879 False
880 , ("textures/gothic_floor/largerblock3b" 880 "Tex_3226210144"]
881 , CommonAttrs 881 False)
882 () 882 , ("textures/gothic_floor/largerblock3b"
883 () 883 , CommonAttrs
884 False 884 ()
885 (fromInt 0) 885 ()
886 False 886 False
887 False 887 (fromInt 0)
888 CT_FrontSided 888 False
889 [] 889 False
890 False 890 CT_FrontSided
891 False 891 []
892 [StageAttrs 892 False
893 Nothing 893 False
894 RGB_IdentityLighting 894 [StageAttrs
895 A_Identity 895 Nothing
896 TG_Base 896 RGB_IdentityLighting
897 [] 897 A_Identity
898 (ST_Map "textures/gothic_floor/largerblock3b") 898 TG_Base
899 True 899 []
900 D_Lequal 900 (ST_Map "textures/gothic_floor/largerblock3b")
901 Nothing 901 True
902 False 902 D_Lequal
903 "Tex_2966885788" 903 Nothing
904 , StageAttrs 904 False
905 (Just (B_DstColor, B_Zero)) 905 "Tex_2966885788"
906 RGB_IdentityLighting 906 , StageAttrs
907 A_Identity 907 (Just (B_DstColor, B_Zero))
908 TG_Lightmap 908 RGB_IdentityLighting
909 [] 909 A_Identity
910 ST_Lightmap 910 TG_Lightmap
911 True 911 []
912 D_Lequal 912 ST_Lightmap
913 Nothing 913 True
914 False 914 D_Lequal
915 "Tex_3226210144"] 915 Nothing
916 False) 916 False
917 , ("textures/gothic_floor/metalbridge06" 917 "Tex_3226210144"]
918 , CommonAttrs 918 False)
919 () 919 , ("textures/gothic_floor/metalbridge06"
920 () 920 , CommonAttrs
921 False 921 ()
922 (fromInt 0) 922 ()
923 False 923 False
924 False 924 (fromInt 0)
925 CT_FrontSided 925 False
926 [] 926 False
927 False 927 CT_FrontSided
928 False 928 []
929 [StageAttrs 929 False
930 Nothing 930 False
931 RGB_IdentityLighting 931 [StageAttrs
932 A_Identity 932 Nothing
933 TG_Base 933 RGB_IdentityLighting
934 [] 934 A_Identity
935 (ST_Map "textures/gothic_floor/metalbridge06") 935 TG_Base
936 True 936 []
937 D_Lequal 937 (ST_Map "textures/gothic_floor/metalbridge06")
938 Nothing 938 True
939 False 939 D_Lequal
940 "Tex_1581337759" 940 Nothing
941 , StageAttrs 941 False
942 (Just (B_DstColor, B_Zero)) 942 "Tex_1581337759"
943 RGB_IdentityLighting 943 , StageAttrs
944 A_Identity 944 (Just (B_DstColor, B_Zero))
945 TG_Lightmap 945 RGB_IdentityLighting
946 [] 946 A_Identity
947 ST_Lightmap 947 TG_Lightmap
948 True 948 []
949 D_Lequal 949 ST_Lightmap
950 Nothing 950 True
951 False 951 D_Lequal
952 "Tex_3226210144"] 952 Nothing
953 False) 953 False
954 , ("textures/gothic_floor/metalbridge06broke" 954 "Tex_3226210144"]
955 , CommonAttrs 955 False)
956 () 956 , ("textures/gothic_floor/metalbridge06broke"
957 () 957 , CommonAttrs
958 False 958 ()
959 (fromInt 0) 959 ()
960 False 960 False
961 False 961 (fromInt 0)
962 CT_FrontSided 962 False
963 [] 963 False
964 False 964 CT_FrontSided
965 False 965 []
966 [StageAttrs 966 False
967 Nothing 967 False
968 RGB_IdentityLighting 968 [StageAttrs
969 A_Identity 969 Nothing
970 TG_Base 970 RGB_IdentityLighting
971 [] 971 A_Identity
972 (ST_Map "textures/gothic_floor/metalbridge06broke") 972 TG_Base
973 True 973 []
974 D_Lequal 974 (ST_Map "textures/gothic_floor/metalbridge06broke")
975 Nothing 975 True
976 False 976 D_Lequal
977 "Tex_3921745736" 977 Nothing
978 , StageAttrs 978 False
979 (Just (B_DstColor, B_Zero)) 979 "Tex_3921745736"
980 RGB_IdentityLighting 980 , StageAttrs
981 A_Identity 981 (Just (B_DstColor, B_Zero))
982 TG_Lightmap 982 RGB_IdentityLighting
983 [] 983 A_Identity
984 ST_Lightmap 984 TG_Lightmap
985 True 985 []
986 D_Lequal 986 ST_Lightmap
987 Nothing 987 True
988 False 988 D_Lequal
989 "Tex_3226210144"] 989 Nothing
990 False) 990 False
991 , ("textures/gothic_floor/xstairtop4" 991 "Tex_3226210144"]
992 , CommonAttrs 992 False)
993 () 993 , ("textures/gothic_floor/xstairtop4"
994 () 994 , CommonAttrs
995 False 995 ()
996 (fromInt 0) 996 ()
997 False 997 False
998 False 998 (fromInt 0)
999 CT_FrontSided 999 False
1000 [] 1000 False
1001 False 1001 CT_FrontSided
1002 False 1002 []
1003 [StageAttrs 1003 False
1004 Nothing 1004 False
1005 RGB_IdentityLighting 1005 [StageAttrs
1006 A_Identity 1006 Nothing
1007 TG_Base 1007 RGB_IdentityLighting
1008 [] 1008 A_Identity
1009 (ST_Map "textures/gothic_floor/xstairtop4") 1009 TG_Base
1010 True 1010 []
1011 D_Lequal 1011 (ST_Map "textures/gothic_floor/xstairtop4")
1012 Nothing 1012 True
1013 False 1013 D_Lequal
1014 "Tex_3836020895" 1014 Nothing
1015 , StageAttrs 1015 False
1016 (Just (B_DstColor, B_Zero)) 1016 "Tex_3836020895"
1017 RGB_IdentityLighting 1017 , StageAttrs
1018 A_Identity 1018 (Just (B_DstColor, B_Zero))
1019 TG_Lightmap 1019 RGB_IdentityLighting
1020 [] 1020 A_Identity
1021 ST_Lightmap 1021 TG_Lightmap
1022 True 1022 []
1023 D_Lequal 1023 ST_Lightmap
1024 Nothing 1024 True
1025 False 1025 D_Lequal
1026 "Tex_3226210144"] 1026 Nothing
1027 False) 1027 False
1028 , ("textures/gothic_floor/xstepborder3" 1028 "Tex_3226210144"]
1029 , CommonAttrs 1029 False)
1030 () 1030 , ("textures/gothic_floor/xstepborder3"
1031 () 1031 , CommonAttrs
1032 False 1032 ()
1033 (fromInt 0) 1033 ()
1034 False 1034 False
1035 False 1035 (fromInt 0)
1036 CT_FrontSided 1036 False
1037 [] 1037 False
1038 False 1038 CT_FrontSided
1039 False 1039 []
1040 [StageAttrs 1040 False
1041 Nothing 1041 False
1042 RGB_IdentityLighting 1042 [StageAttrs
1043 A_Identity 1043 Nothing
1044 TG_Base 1044 RGB_IdentityLighting
1045 [] 1045 A_Identity
1046 (ST_Map "textures/gothic_floor/xstepborder3") 1046 TG_Base
1047 True 1047 []
1048 D_Lequal 1048 (ST_Map "textures/gothic_floor/xstepborder3")
1049 Nothing 1049 True
1050 False 1050 D_Lequal
1051 "Tex_3269743316" 1051 Nothing
1052 , StageAttrs 1052 False
1053 (Just (B_DstColor, B_Zero)) 1053 "Tex_3269743316"
1054 RGB_IdentityLighting 1054 , StageAttrs
1055 A_Identity 1055 (Just (B_DstColor, B_Zero))
1056 TG_Lightmap 1056 RGB_IdentityLighting
1057 [] 1057 A_Identity
1058 ST_Lightmap 1058 TG_Lightmap
1059 True 1059 []
1060 D_Lequal 1060 ST_Lightmap
1061 Nothing 1061 True
1062 False 1062 D_Lequal
1063 "Tex_3226210144"] 1063 Nothing
1064 False) 1064 False
1065 , ("textures/gothic_trim/baseboard04" 1065 "Tex_3226210144"]
1066 , CommonAttrs 1066 False)
1067 () 1067 , ("textures/gothic_trim/baseboard04"
1068 () 1068 , CommonAttrs
1069 False 1069 ()
1070 (fromInt 0) 1070 ()
1071 False 1071 False
1072 False 1072 (fromInt 0)
1073 CT_FrontSided 1073 False
1074 [] 1074 False
1075 False 1075 CT_FrontSided
1076 False 1076 []
1077 [StageAttrs 1077 False
1078 Nothing 1078 False
1079 RGB_IdentityLighting 1079 [StageAttrs
1080 A_Identity 1080 Nothing
1081 TG_Base 1081 RGB_IdentityLighting
1082 [] 1082 A_Identity
1083 (ST_Map "textures/gothic_trim/baseboard04") 1083 TG_Base
1084 True 1084 []
1085 D_Lequal 1085 (ST_Map "textures/gothic_trim/baseboard04")
1086 Nothing 1086 True
1087 False 1087 D_Lequal
1088 "Tex_1002517541" 1088 Nothing
1089 , StageAttrs 1089 False
1090 (Just (B_DstColor, B_Zero)) 1090 "Tex_1002517541"
1091 RGB_IdentityLighting 1091 , StageAttrs
1092 A_Identity 1092 (Just (B_DstColor, B_Zero))
1093 TG_Lightmap 1093 RGB_IdentityLighting
1094 [] 1094 A_Identity
1095 ST_Lightmap 1095 TG_Lightmap
1096 True 1096 []
1097 D_Lequal 1097 ST_Lightmap
1098 Nothing 1098 True
1099 False 1099 D_Lequal
1100 "Tex_3226210144"] 1100 Nothing
1101 False) 1101 False
1102 , ("textures/gothic_trim/baseboard09_c3" 1102 "Tex_3226210144"]
1103 , CommonAttrs 1103 False)
1104 () 1104 , ("textures/gothic_trim/baseboard09_c3"
1105 () 1105 , CommonAttrs
1106 False 1106 ()
1107 (fromInt 0) 1107 ()
1108 False 1108 False
1109 False 1109 (fromInt 0)
1110 CT_FrontSided 1110 False
1111 [] 1111 False
1112 False 1112 CT_FrontSided
1113 False 1113 []
1114 [StageAttrs 1114 False
1115 Nothing 1115 False
1116 RGB_IdentityLighting 1116 [StageAttrs
1117 A_Identity 1117 Nothing
1118 TG_Base 1118 RGB_IdentityLighting
1119 [] 1119 A_Identity
1120 (ST_Map "textures/gothic_trim/baseboard09_c3") 1120 TG_Base
1121 True 1121 []
1122 D_Lequal 1122 (ST_Map "textures/gothic_trim/baseboard09_c3")
1123 Nothing 1123 True
1124 False 1124 D_Lequal
1125 "Tex_2289735512" 1125 Nothing
1126 , StageAttrs 1126 False
1127 (Just (B_DstColor, B_Zero)) 1127 "Tex_2289735512"
1128 RGB_IdentityLighting 1128 , StageAttrs
1129 A_Identity 1129 (Just (B_DstColor, B_Zero))
1130 TG_Lightmap 1130 RGB_IdentityLighting
1131 [] 1131 A_Identity
1132 ST_Lightmap 1132 TG_Lightmap
1133 True 1133 []
1134 D_Lequal 1134 ST_Lightmap
1135 Nothing 1135 True
1136 False 1136 D_Lequal
1137 "Tex_3226210144"] 1137 Nothing
1138 False) 1138 False
1139 , ("textures/gothic_trim/baseboard09_e" 1139 "Tex_3226210144"]
1140 , CommonAttrs 1140 False)
1141 () 1141 , ("textures/gothic_trim/baseboard09_e"
1142 () 1142 , CommonAttrs
1143 False 1143 ()
1144 (fromInt 0) 1144 ()
1145 False 1145 False
1146 False 1146 (fromInt 0)
1147 CT_FrontSided 1147 False
1148 [] 1148 False
1149 False 1149 CT_FrontSided
1150 False 1150 []
1151 [StageAttrs 1151 False
1152 Nothing 1152 False
1153 RGB_IdentityLighting 1153 [StageAttrs
1154 A_Identity 1154 Nothing
1155 TG_Base 1155 RGB_IdentityLighting
1156 [] 1156 A_Identity
1157 (ST_Map "textures/gothic_trim/baseboard09_e") 1157 TG_Base
1158 True 1158 []
1159 D_Lequal 1159 (ST_Map "textures/gothic_trim/baseboard09_e")
1160 Nothing 1160 True
1161 False 1161 D_Lequal
1162 "Tex_2367525081" 1162 Nothing
1163 , StageAttrs 1163 False
1164 (Just (B_DstColor, B_Zero)) 1164 "Tex_2367525081"
1165 RGB_IdentityLighting 1165 , StageAttrs
1166 A_Identity 1166 (Just (B_DstColor, B_Zero))
1167 TG_Lightmap 1167 RGB_IdentityLighting
1168 [] 1168 A_Identity
1169 ST_Lightmap 1169 TG_Lightmap
1170 True 1170 []
1171 D_Lequal 1171 ST_Lightmap
1172 Nothing 1172 True
1173 False 1173 D_Lequal
1174 "Tex_3226210144"] 1174 Nothing
1175 False) 1175 False
1176 , ("textures/gothic_trim/baseboard09_e2" 1176 "Tex_3226210144"]
1177 , CommonAttrs 1177 False)
1178 () 1178 , ("textures/gothic_trim/baseboard09_e2"
1179 () 1179 , CommonAttrs
1180 False 1180 ()
1181 (fromInt 0) 1181 ()
1182 False 1182 False
1183 False 1183 (fromInt 0)
1184 CT_FrontSided 1184 False
1185 [] 1185 False
1186 False 1186 CT_FrontSided
1187 False 1187 []
1188 [StageAttrs 1188 False
1189 Nothing 1189 False
1190 RGB_IdentityLighting 1190 [StageAttrs
1191 A_Identity 1191 Nothing
1192 TG_Base 1192 RGB_IdentityLighting
1193 [] 1193 A_Identity
1194 (ST_Map "textures/gothic_trim/baseboard09_e2") 1194 TG_Base
1195 True 1195 []
1196 D_Lequal 1196 (ST_Map "textures/gothic_trim/baseboard09_e2")
1197 Nothing 1197 True
1198 False 1198 D_Lequal
1199 "Tex_3694494180" 1199 Nothing
1200 , StageAttrs 1200 False
1201 (Just (B_DstColor, B_Zero)) 1201 "Tex_3694494180"
1202 RGB_IdentityLighting 1202 , StageAttrs
1203 A_Identity 1203 (Just (B_DstColor, B_Zero))
1204 TG_Lightmap 1204 RGB_IdentityLighting
1205 [] 1205 A_Identity
1206 ST_Lightmap 1206 TG_Lightmap
1207 True 1207 []
1208 D_Lequal 1208 ST_Lightmap
1209 Nothing 1209 True
1210 False 1210 D_Lequal
1211 "Tex_3226210144"] 1211 Nothing
1212 False) 1212 False
1213 , ("textures/gothic_trim/baseboard09_l2" 1213 "Tex_3226210144"]
1214 , CommonAttrs 1214 False)
1215 () 1215 , ("textures/gothic_trim/baseboard09_l2"
1216 () 1216 , CommonAttrs
1217 False 1217 ()
1218 (fromInt 0) 1218 ()
1219 False 1219 False
1220 False 1220 (fromInt 0)
1221 CT_FrontSided 1221 False
1222 [] 1222 False
1223 False 1223 CT_FrontSided
1224 False 1224 []
1225 [StageAttrs 1225 False
1226 Nothing 1226 False
1227 RGB_IdentityLighting 1227 [StageAttrs
1228 A_Identity 1228 Nothing
1229 TG_Base 1229 RGB_IdentityLighting
1230 [] 1230 A_Identity
1231 (ST_Map "textures/gothic_trim/baseboard09_l2") 1231 TG_Base
1232 True 1232 []
1233 D_Lequal 1233 (ST_Map "textures/gothic_trim/baseboard09_l2")
1234 Nothing 1234 True
1235 False 1235 D_Lequal
1236 "Tex_3202786139" 1236 Nothing
1237 , StageAttrs 1237 False
1238 (Just (B_DstColor, B_Zero)) 1238 "Tex_3202786139"
1239 RGB_IdentityLighting 1239 , StageAttrs
1240 A_Identity 1240 (Just (B_DstColor, B_Zero))
1241 TG_Lightmap 1241 RGB_IdentityLighting
1242 [] 1242 A_Identity
1243 ST_Lightmap 1243 TG_Lightmap
1244 True 1244 []
1245 D_Lequal 1245 ST_Lightmap
1246 Nothing 1246 True
1247 False 1247 D_Lequal
1248 "Tex_3226210144"] 1248 Nothing
1249 False) 1249 False
1250 , ("textures/gothic_trim/baseboard09_o3" 1250 "Tex_3226210144"]
1251 , CommonAttrs 1251 False)
1252 () 1252 , ("textures/gothic_trim/baseboard09_o3"
1253 () 1253 , CommonAttrs
1254 False 1254 ()
1255 (fromInt 0) 1255 ()
1256 False 1256 False
1257 False 1257 (fromInt 0)
1258 CT_FrontSided 1258 False
1259 [] 1259 False
1260 False 1260 CT_FrontSided
1261 False 1261 []
1262 [StageAttrs 1262 False
1263 Nothing 1263 False
1264 RGB_IdentityLighting 1264 [StageAttrs
1265 A_Identity 1265 Nothing
1266 TG_Base 1266 RGB_IdentityLighting
1267 [] 1267 A_Identity
1268 (ST_Map "textures/gothic_trim/baseboard09_o3") 1268 TG_Base
1269 True 1269 []
1270 D_Lequal 1270 (ST_Map "textures/gothic_trim/baseboard09_o3")
1271 Nothing 1271 True
1272 False 1272 D_Lequal
1273 "Tex_2512757607" 1273 Nothing
1274 , StageAttrs 1274 False
1275 (Just (B_DstColor, B_Zero)) 1275 "Tex_2512757607"
1276 RGB_IdentityLighting 1276 , StageAttrs
1277 A_Identity 1277 (Just (B_DstColor, B_Zero))
1278 TG_Lightmap 1278 RGB_IdentityLighting
1279 [] 1279 A_Identity
1280 ST_Lightmap 1280 TG_Lightmap
1281 True 1281 []
1282 D_Lequal 1282 ST_Lightmap
1283 Nothing 1283 True
1284 False 1284 D_Lequal
1285 "Tex_3226210144"] 1285 Nothing
1286 False) 1286 False
1287 , ("textures/gothic_trim/km_arena1tower4" 1287 "Tex_3226210144"]
1288 , CommonAttrs 1288 False)
1289 () 1289 , ("textures/gothic_trim/km_arena1tower4"
1290 () 1290 , CommonAttrs
1291 False 1291 ()
1292 (fromInt 0) 1292 ()
1293 False 1293 False
1294 False 1294 (fromInt 0)
1295 CT_FrontSided 1295 False
1296 [] 1296 False
1297 False 1297 CT_FrontSided
1298 False 1298 []
1299 [StageAttrs 1299 False
1300 Nothing 1300 False
1301 RGB_IdentityLighting 1301 [StageAttrs
1302 A_Identity 1302 Nothing
1303 TG_Base 1303 RGB_IdentityLighting
1304 [] 1304 A_Identity
1305 (ST_Map "textures/gothic_trim/km_arena1tower4") 1305 TG_Base
1306 True 1306 []
1307 D_Lequal 1307 (ST_Map "textures/gothic_trim/km_arena1tower4")
1308 Nothing 1308 True
1309 False 1309 D_Lequal
1310 "Tex_3479185666" 1310 Nothing
1311 , StageAttrs 1311 False
1312 (Just (B_DstColor, B_Zero)) 1312 "Tex_3479185666"
1313 RGB_IdentityLighting 1313 , StageAttrs
1314 A_Identity 1314 (Just (B_DstColor, B_Zero))
1315 TG_Lightmap 1315 RGB_IdentityLighting
1316 [] 1316 A_Identity
1317 ST_Lightmap 1317 TG_Lightmap
1318 True 1318 []
1319 D_Lequal 1319 ST_Lightmap
1320 Nothing 1320 True
1321 False 1321 D_Lequal
1322 "Tex_3226210144"] 1322 Nothing
1323 False) 1323 False
1324 , ("textures/gothic_trim/km_arena1tower4_a" 1324 "Tex_3226210144"]
1325 , CommonAttrs 1325 False)
1326 () 1326 , ("textures/gothic_trim/km_arena1tower4_a"
1327 () 1327 , CommonAttrs
1328 False 1328 ()
1329 (fromInt 0) 1329 ()
1330 False 1330 False
1331 False 1331 (fromInt 0)
1332 CT_FrontSided 1332 False
1333 [] 1333 False
1334 False 1334 CT_FrontSided
1335 False 1335 []
1336 [StageAttrs 1336 False
1337 Nothing 1337 False
1338 RGB_IdentityLighting 1338 [StageAttrs
1339 A_Identity 1339 Nothing
1340 TG_Base 1340 RGB_IdentityLighting
1341 [] 1341 A_Identity
1342 (ST_Map "textures/gothic_trim/km_arena1tower4_a") 1342 TG_Base
1343 True 1343 []
1344 D_Lequal 1344 (ST_Map "textures/gothic_trim/km_arena1tower4_a")
1345 Nothing 1345 True
1346 False 1346 D_Lequal
1347 "Tex_3012001075" 1347 Nothing
1348 , StageAttrs 1348 False
1349 (Just (B_DstColor, B_Zero)) 1349 "Tex_3012001075"
1350 RGB_IdentityLighting 1350 , StageAttrs
1351 A_Identity 1351 (Just (B_DstColor, B_Zero))
1352 TG_Lightmap 1352 RGB_IdentityLighting
1353 [] 1353 A_Identity
1354 ST_Lightmap 1354 TG_Lightmap
1355 True 1355 []
1356 D_Lequal 1356 ST_Lightmap
1357 Nothing 1357 True
1358 False 1358 D_Lequal
1359 "Tex_3226210144"] 1359 Nothing
1360 False) 1360 False
1361 , ("textures/gothic_trim/metaldemonkillblock" 1361 "Tex_3226210144"]
1362 , CommonAttrs 1362 False)
1363 () 1363 , ("textures/gothic_trim/metaldemonkillblock"
1364 () 1364 , CommonAttrs
1365 False 1365 ()
1366 (fromInt 0) 1366 ()
1367 False 1367 False
1368 False 1368 (fromInt 0)
1369 CT_FrontSided 1369 False
1370 [] 1370 False
1371 False 1371 CT_FrontSided
1372 False 1372 []
1373 [StageAttrs 1373 False
1374 Nothing 1374 False
1375 RGB_IdentityLighting 1375 [StageAttrs
1376 A_Identity 1376 Nothing
1377 TG_Base 1377 RGB_IdentityLighting
1378 [] 1378 A_Identity
1379 (ST_Map "textures/gothic_trim/metaldemonkillblock") 1379 TG_Base
1380 True 1380 []
1381 D_Lequal 1381 (ST_Map "textures/gothic_trim/metaldemonkillblock")
1382 Nothing 1382 True
1383 False 1383 D_Lequal
1384 "Tex_1062467595" 1384 Nothing
1385 , StageAttrs 1385 False
1386 (Just (B_DstColor, B_Zero)) 1386 "Tex_1062467595"
1387 RGB_IdentityLighting 1387 , StageAttrs
1388 A_Identity 1388 (Just (B_DstColor, B_Zero))
1389 TG_Lightmap 1389 RGB_IdentityLighting
1390 [] 1390 A_Identity
1391 ST_Lightmap 1391 TG_Lightmap
1392 True 1392 []
1393 D_Lequal 1393 ST_Lightmap
1394 Nothing 1394 True
1395 False 1395 D_Lequal
1396 "Tex_3226210144"] 1396 Nothing
1397 False) 1397 False
1398 , ("textures/gothic_trim/metalsupport4b" 1398 "Tex_3226210144"]
1399 , CommonAttrs 1399 False)
1400 () 1400 , ("textures/gothic_trim/metalsupport4b"
1401 () 1401 , CommonAttrs
1402 False 1402 ()
1403 (fromInt 0) 1403 ()
1404 False 1404 False
1405 False 1405 (fromInt 0)
1406 CT_FrontSided 1406 False
1407 [] 1407 False
1408 False 1408 CT_FrontSided
1409 False 1409 []
1410 [StageAttrs 1410 False
1411 Nothing 1411 False
1412 RGB_IdentityLighting 1412 [StageAttrs
1413 A_Identity 1413 Nothing
1414 TG_Base 1414 RGB_IdentityLighting
1415 [] 1415 A_Identity
1416 (ST_Map "textures/gothic_trim/metalsupport4b") 1416 TG_Base
1417 True 1417 []
1418 D_Lequal 1418 (ST_Map "textures/gothic_trim/metalsupport4b")
1419 Nothing 1419 True
1420 False 1420 D_Lequal
1421 "Tex_3593923076" 1421 Nothing
1422 , StageAttrs 1422 False
1423 (Just (B_DstColor, B_Zero)) 1423 "Tex_3593923076"
1424 RGB_IdentityLighting 1424 , StageAttrs
1425 A_Identity 1425 (Just (B_DstColor, B_Zero))
1426 TG_Lightmap 1426 RGB_IdentityLighting
1427 [] 1427 A_Identity
1428 ST_Lightmap 1428 TG_Lightmap
1429 True 1429 []
1430 D_Lequal 1430 ST_Lightmap
1431 Nothing 1431 True
1432 False 1432 D_Lequal
1433 "Tex_3226210144"] 1433 Nothing
1434 False) 1434 False
1435 , ("textures/gothic_trim/metalsupsolid" 1435 "Tex_3226210144"]
1436 , CommonAttrs 1436 False)
1437 () 1437 , ("textures/gothic_trim/metalsupsolid"
1438 () 1438 , CommonAttrs
1439 False 1439 ()
1440 (fromInt 0) 1440 ()
1441 False 1441 False
1442 False 1442 (fromInt 0)
1443 CT_FrontSided 1443 False
1444 [] 1444 False
1445 False 1445 CT_FrontSided
1446 False 1446 []
1447 [StageAttrs 1447 False
1448 Nothing 1448 False
1449 RGB_IdentityLighting 1449 [StageAttrs
1450 A_Identity 1450 Nothing
1451 TG_Base 1451 RGB_IdentityLighting
1452 [] 1452 A_Identity
1453 (ST_Map "textures/gothic_trim/metalsupsolid") 1453 TG_Base
1454 True 1454 []
1455 D_Lequal 1455 (ST_Map "textures/gothic_trim/metalsupsolid")
1456 Nothing 1456 True
1457 False 1457 D_Lequal
1458 "Tex_2893650486" 1458 Nothing
1459 , StageAttrs 1459 False
1460 (Just (B_DstColor, B_Zero)) 1460 "Tex_2893650486"
1461 RGB_IdentityLighting 1461 , StageAttrs
1462 A_Identity 1462 (Just (B_DstColor, B_Zero))
1463 TG_Lightmap 1463 RGB_IdentityLighting
1464 [] 1464 A_Identity
1465 ST_Lightmap 1465 TG_Lightmap
1466 True 1466 []
1467 D_Lequal 1467 ST_Lightmap
1468 Nothing 1468 True
1469 False 1469 D_Lequal
1470 "Tex_3226210144"] 1470 Nothing
1471 False) 1471 False
1472 , ("textures/gothic_trim/pitted_rust" 1472 "Tex_3226210144"]
1473 , CommonAttrs 1473 False)
1474 () 1474 , ("textures/gothic_trim/pitted_rust"
1475 () 1475 , CommonAttrs
1476 False 1476 ()
1477 (fromInt 0) 1477 ()
1478 False 1478 False
1479 False 1479 (fromInt 0)
1480 CT_FrontSided 1480 False
1481 [] 1481 False
1482 False 1482 CT_FrontSided
1483 False 1483 []
1484 [StageAttrs 1484 False
1485 Nothing 1485 False
1486 RGB_IdentityLighting 1486 [StageAttrs
1487 A_Identity 1487 Nothing
1488 TG_Base 1488 RGB_IdentityLighting
1489 [] 1489 A_Identity
1490 (ST_Map "textures/gothic_trim/pitted_rust") 1490 TG_Base
1491 True 1491 []
1492 D_Lequal 1492 (ST_Map "textures/gothic_trim/pitted_rust")
1493 Nothing 1493 True
1494 False 1494 D_Lequal
1495 "Tex_1243894392" 1495 Nothing
1496 , StageAttrs 1496 False
1497 (Just (B_DstColor, B_Zero)) 1497 "Tex_1243894392"
1498 RGB_IdentityLighting 1498 , StageAttrs
1499 A_Identity 1499 (Just (B_DstColor, B_Zero))
1500 TG_Lightmap 1500 RGB_IdentityLighting
1501 [] 1501 A_Identity
1502 ST_Lightmap 1502 TG_Lightmap
1503 True 1503 []
1504 D_Lequal 1504 ST_Lightmap
1505 Nothing 1505 True
1506 False 1506 D_Lequal
1507 "Tex_3226210144"] 1507 Nothing
1508 False) 1508 False
1509 , ("textures/gothic_trim/pitted_rust2" 1509 "Tex_3226210144"]
1510 , CommonAttrs 1510 False)
1511 () 1511 , ("textures/gothic_trim/pitted_rust2"
1512 () 1512 , CommonAttrs
1513 False 1513 ()
1514 (fromInt 0) 1514 ()
1515 False 1515 False
1516 False 1516 (fromInt 0)
1517 CT_FrontSided 1517 False
1518 [] 1518 False
1519 False 1519 CT_FrontSided
1520 False 1520 []
1521 [StageAttrs 1521 False
1522 Nothing 1522 False
1523 RGB_IdentityLighting 1523 [StageAttrs
1524 A_Identity 1524 Nothing
1525 TG_Base 1525 RGB_IdentityLighting
1526 [] 1526 A_Identity
1527 (ST_Map "textures/gothic_trim/pitted_rust2") 1527 TG_Base
1528 True 1528 []
1529 D_Lequal 1529 (ST_Map "textures/gothic_trim/pitted_rust2")
1530 Nothing 1530 True
1531 False 1531 D_Lequal
1532 "Tex_2099456856" 1532 Nothing
1533 , StageAttrs 1533 False
1534 (Just (B_DstColor, B_Zero)) 1534 "Tex_2099456856"
1535 RGB_IdentityLighting 1535 , StageAttrs
1536 A_Identity 1536 (Just (B_DstColor, B_Zero))
1537 TG_Lightmap 1537 RGB_IdentityLighting
1538 [] 1538 A_Identity
1539 ST_Lightmap 1539 TG_Lightmap
1540 True 1540 []
1541 D_Lequal 1541 ST_Lightmap
1542 Nothing 1542 True
1543 False 1543 D_Lequal
1544 "Tex_3226210144"] 1544 Nothing
1545 False) 1545 False
1546 , ("textures/gothic_trim/pitted_rust2_trans" 1546 "Tex_3226210144"]
1547 , CommonAttrs 1547 False)
1548 () 1548 , ("textures/gothic_trim/pitted_rust2_trans"
1549 () 1549 , CommonAttrs
1550 False 1550 ()
1551 (fromInt 3) 1551 ()
1552 False 1552 False
1553 False 1553 (fromInt 3)
1554 CT_FrontSided 1554 False
1555 [] 1555 False
1556 False 1556 CT_FrontSided
1557 False 1557 []
1558 [StageAttrs 1558 False
1559 Nothing 1559 False
1560 RGB_Identity 1560 [StageAttrs
1561 A_Identity 1561 Nothing
1562 TG_Lightmap 1562 RGB_Identity
1563 [] 1563 A_Identity
1564 ST_Lightmap 1564 TG_Lightmap
1565 True 1565 []
1566 D_Lequal 1566 ST_Lightmap
1567 Nothing 1567 True
1568 False 1568 D_Lequal
1569 "Tex_511571587" 1569 Nothing
1570 , StageAttrs 1570 False
1571 (Just (B_DstColor, B_Zero)) 1571 "Tex_511571587"
1572 RGB_Identity 1572 , StageAttrs
1573 A_Identity 1573 (Just (B_DstColor, B_Zero))
1574 TG_Base 1574 RGB_Identity
1575 [] 1575 A_Identity
1576 (ST_Map "textures/gothic_trim/pitted_rust2.tga") 1576 TG_Base
1577 False 1577 []
1578 D_Lequal 1578 (ST_Map "textures/gothic_trim/pitted_rust2.tga")
1579 Nothing 1579 False
1580 False 1580 D_Lequal
1581 "Tex_1910997598"] 1581 Nothing
1582 False) 1582 False
1583 , ("textures/gothic_trim/pitted_rust3" 1583 "Tex_1910997598"]
1584 , CommonAttrs 1584 False)
1585 () 1585 , ("textures/gothic_trim/pitted_rust3"
1586 () 1586 , CommonAttrs
1587 False 1587 ()
1588 (fromInt 0) 1588 ()
1589 False 1589 False
1590 False 1590 (fromInt 0)
1591 CT_FrontSided 1591 False
1592 [] 1592 False
1593 False 1593 CT_FrontSided
1594 False 1594 []
1595 [StageAttrs 1595 False
1596 Nothing 1596 False
1597 RGB_IdentityLighting 1597 [StageAttrs
1598 A_Identity 1598 Nothing
1599 TG_Base 1599 RGB_IdentityLighting
1600 [] 1600 A_Identity
1601 (ST_Map "textures/gothic_trim/pitted_rust3") 1601 TG_Base
1602 True 1602 []
1603 D_Lequal 1603 (ST_Map "textures/gothic_trim/pitted_rust3")
1604 Nothing 1604 True
1605 False 1605 D_Lequal
1606 "Tex_3389727963" 1606 Nothing
1607 , StageAttrs 1607 False
1608 (Just (B_DstColor, B_Zero)) 1608 "Tex_3389727963"
1609 RGB_IdentityLighting 1609 , StageAttrs
1610 A_Identity 1610 (Just (B_DstColor, B_Zero))
1611 TG_Lightmap 1611 RGB_IdentityLighting
1612 [] 1612 A_Identity
1613 ST_Lightmap 1613 TG_Lightmap
1614 True 1614 []
1615 D_Lequal 1615 ST_Lightmap
1616 Nothing 1616 True
1617 False 1617 D_Lequal
1618 "Tex_3226210144"] 1618 Nothing
1619 False) 1619 False
1620 , ("textures/gothic_trim/skullsvertgray02b" 1620 "Tex_3226210144"]
1621 , CommonAttrs 1621 False)
1622 () 1622 , ("textures/gothic_trim/skullsvertgray02b"
1623 () 1623 , CommonAttrs
1624 False 1624 ()
1625 (fromInt 0) 1625 ()
1626 False 1626 False
1627 False 1627 (fromInt 0)
1628 CT_FrontSided 1628 False
1629 [] 1629 False
1630 False 1630 CT_FrontSided
1631 False 1631 []
1632 [StageAttrs 1632 False
1633 Nothing 1633 False
1634 RGB_IdentityLighting 1634 [StageAttrs
1635 A_Identity 1635 Nothing
1636 TG_Base 1636 RGB_IdentityLighting
1637 [] 1637 A_Identity
1638 (ST_Map "textures/gothic_trim/skullsvertgray02b") 1638 TG_Base
1639 True 1639 []
1640 D_Lequal 1640 (ST_Map "textures/gothic_trim/skullsvertgray02b")
1641 Nothing 1641 True
1642 False 1642 D_Lequal
1643 "Tex_2634868983" 1643 Nothing
1644 , StageAttrs 1644 False
1645 (Just (B_DstColor, B_Zero)) 1645 "Tex_2634868983"
1646 RGB_IdentityLighting 1646 , StageAttrs
1647 A_Identity 1647 (Just (B_DstColor, B_Zero))
1648 TG_Lightmap 1648 RGB_IdentityLighting
1649 [] 1649 A_Identity
1650 ST_Lightmap 1650 TG_Lightmap
1651 True 1651 []
1652 D_Lequal 1652 ST_Lightmap
1653 Nothing 1653 True
1654 False 1654 D_Lequal
1655 "Tex_3226210144"] 1655 Nothing
1656 False) 1656 False
1657 , ("textures/gothic_wall/iron01_e" 1657 "Tex_3226210144"]
1658 , CommonAttrs 1658 False)
1659 () 1659 , ("textures/gothic_wall/iron01_e"
1660 () 1660 , CommonAttrs
1661 False 1661 ()
1662 (fromInt 0) 1662 ()
1663 False 1663 False
1664 False 1664 (fromInt 0)
1665 CT_FrontSided 1665 False
1666 [] 1666 False
1667 False 1667 CT_FrontSided
1668 False 1668 []
1669 [StageAttrs 1669 False
1670 Nothing 1670 False
1671 RGB_IdentityLighting 1671 [StageAttrs
1672 A_Identity 1672 Nothing
1673 TG_Base 1673 RGB_IdentityLighting
1674 [] 1674 A_Identity
1675 (ST_Map "textures/gothic_wall/iron01_e") 1675 TG_Base
1676 True 1676 []
1677 D_Lequal 1677 (ST_Map "textures/gothic_wall/iron01_e")
1678 Nothing 1678 True
1679 False 1679 D_Lequal
1680 "Tex_2432583247" 1680 Nothing
1681 , StageAttrs 1681 False
1682 (Just (B_DstColor, B_Zero)) 1682 "Tex_2432583247"
1683 RGB_IdentityLighting 1683 , StageAttrs
1684 A_Identity 1684 (Just (B_DstColor, B_Zero))
1685 TG_Lightmap 1685 RGB_IdentityLighting
1686 [] 1686 A_Identity
1687 ST_Lightmap 1687 TG_Lightmap
1688 True 1688 []
1689 D_Lequal 1689 ST_Lightmap
1690 Nothing 1690 True
1691 False 1691 D_Lequal
1692 "Tex_3226210144"] 1692 Nothing
1693 False) 1693 False
1694 , ("textures/gothic_wall/iron01_ntech3" 1694 "Tex_3226210144"]
1695 , CommonAttrs 1695 False)
1696 () 1696 , ("textures/gothic_wall/iron01_ntech3"
1697 () 1697 , CommonAttrs
1698 False 1698 ()
1699 (fromInt 0) 1699 ()
1700 False 1700 False
1701 False 1701 (fromInt 0)
1702 CT_FrontSided 1702 False
1703 [] 1703 False
1704 False 1704 CT_FrontSided
1705 False 1705 []
1706 [StageAttrs 1706 False
1707 Nothing 1707 False
1708 RGB_IdentityLighting 1708 [StageAttrs
1709 A_Identity 1709 Nothing
1710 TG_Base 1710 RGB_IdentityLighting
1711 [] 1711 A_Identity
1712 (ST_Map "textures/gothic_wall/iron01_ntech3") 1712 TG_Base
1713 True 1713 []
1714 D_Lequal 1714 (ST_Map "textures/gothic_wall/iron01_ntech3")
1715 Nothing 1715 True
1716 False 1716 D_Lequal
1717 "Tex_442868841" 1717 Nothing
1718 , StageAttrs 1718 False
1719 (Just (B_DstColor, B_Zero)) 1719 "Tex_442868841"
1720 RGB_IdentityLighting 1720 , StageAttrs
1721 A_Identity 1721 (Just (B_DstColor, B_Zero))
1722 TG_Lightmap 1722 RGB_IdentityLighting
1723 [] 1723 A_Identity
1724 ST_Lightmap 1724 TG_Lightmap
1725 True 1725 []
1726 D_Lequal 1726 ST_Lightmap
1727 Nothing 1727 True
1728 False 1728 D_Lequal
1729 "Tex_3226210144"] 1729 Nothing
1730 False) 1730 False
1731 , ("textures/gothic_wall/skull4" 1731 "Tex_3226210144"]
1732 , CommonAttrs 1732 False)
1733 () 1733 , ("textures/gothic_wall/skull4"
1734 () 1734 , CommonAttrs
1735 False 1735 ()
1736 (fromInt 0) 1736 ()
1737 False 1737 False
1738 False 1738 (fromInt 0)
1739 CT_FrontSided 1739 False
1740 [] 1740 False
1741 False 1741 CT_FrontSided
1742 False 1742 []
1743 [StageAttrs 1743 False
1744 Nothing 1744 False
1745 RGB_IdentityLighting 1745 [StageAttrs
1746 A_Identity 1746 Nothing
1747 TG_Base 1747 RGB_IdentityLighting
1748 [] 1748 A_Identity
1749 (ST_Map "textures/gothic_wall/skull4") 1749 TG_Base
1750 True 1750 []
1751 D_Lequal 1751 (ST_Map "textures/gothic_wall/skull4")
1752 Nothing 1752 True
1753 False 1753 D_Lequal
1754 "Tex_2239853403" 1754 Nothing
1755 , StageAttrs 1755 False
1756 (Just (B_DstColor, B_Zero)) 1756 "Tex_2239853403"
1757 RGB_IdentityLighting 1757 , StageAttrs
1758 A_Identity 1758 (Just (B_DstColor, B_Zero))
1759 TG_Lightmap 1759 RGB_IdentityLighting
1760 [] 1760 A_Identity
1761 ST_Lightmap 1761 TG_Lightmap
1762 True 1762 []
1763 D_Lequal 1763 ST_Lightmap
1764 Nothing 1764 True
1765 False 1765 D_Lequal
1766 "Tex_3226210144"] 1766 Nothing
1767 False) 1767 False
1768 , ("textures/gothic_wall/slateroofc" 1768 "Tex_3226210144"]
1769 , CommonAttrs 1769 False)
1770 () 1770 , ("textures/gothic_wall/slateroofc"
1771 () 1771 , CommonAttrs
1772 False 1772 ()
1773 (fromInt 0) 1773 ()
1774 False 1774 False
1775 False 1775 (fromInt 0)
1776 CT_FrontSided 1776 False
1777 [] 1777 False
1778 False 1778 CT_FrontSided
1779 False 1779 []
1780 [StageAttrs 1780 False
1781 Nothing 1781 False
1782 RGB_IdentityLighting 1782 [StageAttrs
1783 A_Identity 1783 Nothing
1784 TG_Base 1784 RGB_IdentityLighting
1785 [] 1785 A_Identity
1786 (ST_Map "textures/gothic_wall/slateroofc") 1786 TG_Base
1787 True 1787 []
1788 D_Lequal 1788 (ST_Map "textures/gothic_wall/slateroofc")
1789 Nothing 1789 True
1790 False 1790 D_Lequal
1791 "Tex_2490648334" 1791 Nothing
1792 , StageAttrs 1792 False
1793 (Just (B_DstColor, B_Zero)) 1793 "Tex_2490648334"
1794 RGB_IdentityLighting 1794 , StageAttrs
1795 A_Identity 1795 (Just (B_DstColor, B_Zero))
1796 TG_Lightmap 1796 RGB_IdentityLighting
1797 [] 1797 A_Identity
1798 ST_Lightmap 1798 TG_Lightmap
1799 True 1799 []
1800 D_Lequal 1800 ST_Lightmap
1801 Nothing 1801 True
1802 False 1802 D_Lequal
1803 "Tex_3226210144"] 1803 Nothing
1804 False) 1804 False
1805 , ("textures/gothic_wall/supportborder_blue_b" 1805 "Tex_3226210144"]
1806 , CommonAttrs 1806 False)
1807 () 1807 , ("textures/gothic_wall/supportborder_blue_b"
1808 () 1808 , CommonAttrs
1809 False 1809 ()
1810 (fromInt 0) 1810 ()
1811 False 1811 False
1812 False 1812 (fromInt 0)
1813 CT_FrontSided 1813 False
1814 [] 1814 False
1815 False 1815 CT_FrontSided
1816 False 1816 []
1817 [StageAttrs 1817 False
1818 Nothing 1818 False
1819 RGB_IdentityLighting 1819 [StageAttrs
1820 A_Identity 1820 Nothing
1821 TG_Base 1821 RGB_IdentityLighting
1822 [] 1822 A_Identity
1823 (ST_Map "textures/gothic_wall/supportborder_blue_b") 1823 TG_Base
1824 True 1824 []
1825 D_Lequal 1825 (ST_Map "textures/gothic_wall/supportborder_blue_b")
1826 Nothing 1826 True
1827 False 1827 D_Lequal
1828 "Tex_564811775" 1828 Nothing
1829 , StageAttrs 1829 False
1830 (Just (B_DstColor, B_Zero)) 1830 "Tex_564811775"
1831 RGB_IdentityLighting 1831 , StageAttrs
1832 A_Identity 1832 (Just (B_DstColor, B_Zero))
1833 TG_Lightmap 1833 RGB_IdentityLighting
1834 [] 1834 A_Identity
1835 ST_Lightmap 1835 TG_Lightmap
1836 True 1836 []
1837 D_Lequal 1837 ST_Lightmap
1838 Nothing 1838 True
1839 False 1839 D_Lequal
1840 "Tex_3226210144"] 1840 Nothing
1841 False) 1841 False
1842 , ("textures/gothic_wall/supportborder_blue_c" 1842 "Tex_3226210144"]
1843 , CommonAttrs 1843 False)
1844 () 1844 , ("textures/gothic_wall/supportborder_blue_c"
1845 () 1845 , CommonAttrs
1846 False 1846 ()
1847 (fromInt 0) 1847 ()
1848 False 1848 False
1849 False 1849 (fromInt 0)
1850 CT_FrontSided 1850 False
1851 [] 1851 False
1852 False 1852 CT_FrontSided
1853 False 1853 []
1854 [StageAttrs 1854 False
1855 Nothing 1855 False
1856 RGB_IdentityLighting 1856 [StageAttrs
1857 A_Identity 1857 Nothing
1858 TG_Base 1858 RGB_IdentityLighting
1859 [] 1859 A_Identity
1860 (ST_Map "textures/gothic_wall/supportborder_blue_c") 1860 TG_Base
1861 True 1861 []
1862 D_Lequal 1862 (ST_Map "textures/gothic_wall/supportborder_blue_c")
1863 Nothing 1863 True
1864 False 1864 D_Lequal
1865 "Tex_2525124732" 1865 Nothing
1866 , StageAttrs 1866 False
1867 (Just (B_DstColor, B_Zero)) 1867 "Tex_2525124732"
1868 RGB_IdentityLighting 1868 , StageAttrs
1869 A_Identity 1869 (Just (B_DstColor, B_Zero))
1870 TG_Lightmap 1870 RGB_IdentityLighting
1871 [] 1871 A_Identity
1872 ST_Lightmap 1872 TG_Lightmap
1873 True 1873 []
1874 D_Lequal 1874 ST_Lightmap
1875 Nothing 1875 True
1876 False 1876 D_Lequal
1877 "Tex_3226210144"] 1877 Nothing
1878 False)] 1878 False
1879 "Tex_3226210144"]
1880 False)])
1879------------ core code 1881------------ core code
1880sampleMaterial :: [(String, CommonAttrs)] 1882sampleMaterial :: [(String, CommonAttrs)]
1881sampleMaterial 1883sampleMaterial
diff --git a/testdata/ambig.out b/testdata/ambig.out
index dd058a85..c78ba1de 100644
--- a/testdata/ambig.out
+++ b/testdata/ambig.out
@@ -1,19 +1,23 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3h 3h
4 = \(a :: _) (b :: _) (_ :: _) -> _rhs 4 = _lhs
5 let 5 h
6 c 6 \(a :: _) (b :: _) (_ :: _) -> _rhs
7 = _rhs 7 let
8 ((\(d :: _) -> hlistConsCase 8 c
9 _ 9 = _lhs
10 (\(e :: _) (f :: _) -> hlistConsCase 10 x
11 _ 11 (_rhs
12 (\(g :: _) (h :: _) -> hlistNilCase _ (a e g) h) 12 ((\(d :: _) -> hlistConsCase
13 f) 13 _
14 d) 14 (\(e :: _) (f :: _) -> hlistConsCase
15 b) 15 _
16 in c 16 (\(g :: _) (h :: _) -> hlistNilCase _ (a e g) h)
17 f)
18 d)
19 b))
20 in c
17------------ core code 21------------ core code
18h :: forall a b c d . (b -> d -> c) -> (b, d) -> a -> c 22h :: forall a b c d . (b -> d -> c) -> (b, d) -> a -> c
19h 23h
diff --git a/testdata/complex.out b/testdata/complex.out
index 913661e9..4bcb401b 100644
--- a/testdata/complex.out
+++ b/testdata/complex.out
@@ -8,105 +8,117 @@ data Complex :: Repr -> Type where
8 Complex :: forall (a :: _) . Float -> Float -> Complex a 8 Complex :: forall (a :: _) . Float -> Float -> Complex a
9 9
10repr :: forall (a :: _) . Complex a -> Repr 10repr :: forall (a :: _) . Complex a -> Repr
11repr = \ @(a :: _) (_ :: _) -> _rhs a 11repr = _lhs repr \ @(a :: _) (_ :: _) -> _rhs a
12 12
13normal :: Float -> Float -> Complex Normal 13normal :: Float -> Float -> Complex Normal
14normal = \(a :: _) (b :: _) -> _rhs (Complex a b) 14normal = _lhs normal \(a :: _) (b :: _) -> _rhs (Complex a b)
15 15
16polar :: Float -> Float -> Complex Polar 16polar :: Float -> Float -> Complex Polar
17polar = \(a :: _) (b :: _) -> _rhs (Complex a b) 17polar = _lhs polar \(a :: _) (b :: _) -> _rhs (Complex a b)
18 18
19cabs :: forall (a :: _) . Complex a -> Float 19cabs :: forall (a :: _) . Complex a -> Float
20cabs 20cabs
21 = \ @(a :: _) (b :: _) -> case'Repr 21 = _lhs
22 (\(_ :: _) -> _) 22 cabs
23 (case'Complex 23 \ @(a :: _) (b :: _) -> case'Repr
24 (\(_ :: _) (_ :: _) -> _) 24 (\(_ :: _) -> _)
25 (\(c :: _) (d :: _) -> _rhs (sqrt (c * c + d * d))) 25 (case'Complex
26 b) 26 (\(_ :: _) (_ :: _) -> _)
27 (case'Complex (\(_ :: _) (_ :: _) -> _) (\(e :: _) (_ :: _) -> _rhs e) b) 27 (\(c :: _) (d :: _) -> _rhs (sqrt (c * c + d * d)))
28 a 28 b)
29 (case'Complex (\(_ :: _) (_ :: _) -> _) (\(e :: _) (_ :: _) -> _rhs e) b)
30 a
29 31
30toPolar :: Complex Normal -> Complex Polar 32toPolar :: Complex Normal -> Complex Polar
31toPolar 33toPolar
32 = \(a :: _) -> case'Complex 34 = _lhs
33 (\(_ :: _) (_ :: _) -> _) 35 toPolar
34 (\(b :: _) (c :: _) -> _rhs 36 \(a :: _) -> case'Complex
35 let d = _rhs (sqrt (b * b + c * c)) in primIfThenElse 37 (\(_ :: _) (_ :: _) -> _)
36 (b > 0.0) 38 (\(b :: _) (c :: _) -> _rhs
37 (polar d (atan (c / b))) 39 let d = _lhs r (_rhs (sqrt (b * b + c * c))) in primIfThenElse
38 (primIfThenElse 40 (b > 0.0)
39 (b < 0.0 && c >= 0.0) 41 (polar d (atan (c / b)))
40 (polar d (atan (c / b) + pi))
41 (primIfThenElse 42 (primIfThenElse
42 (b < 0.0 && c < 0.0) 43 (b < 0.0 && c >= 0.0)
43 (polar d (atan (c / b) - pi)) 44 (polar d (atan (c / b) + pi))
44 (primIfThenElse 45 (primIfThenElse
45 (b == 0.0 && c >= 0.0) 46 (b < 0.0 && c < 0.0)
46 (polar d (pi / 2.0)) 47 (polar d (atan (c / b) - pi))
47 (primIfThenElse 48 (primIfThenElse
48 (b == 0.0 && c < 0.0) 49 (b == 0.0 && c >= 0.0)
49 (polar d (fromInt 0 - pi / 2.0)) 50 (polar d (pi / 2.0))
50 undefined))))) 51 (primIfThenElse
51 a 52 (b == 0.0 && c < 0.0)
53 (polar d (fromInt 0 - pi / 2.0))
54 undefined)))))
55 a
52 56
53toNormal :: Complex Polar -> Complex Normal 57toNormal :: Complex Polar -> Complex Normal
54toNormal 58toNormal
55 = \(a :: _) -> case'Complex 59 = _lhs
56 (\(_ :: _) (_ :: _) -> _) 60 toNormal
57 (\(b :: _) (c :: _) -> _rhs (Complex (b * cos c) (b * sin c))) 61 \(a :: _) -> case'Complex
58 a 62 (\(_ :: _) (_ :: _) -> _)
63 (\(b :: _) (c :: _) -> _rhs (Complex (b * cos c) (b * sin c)))
64 a
59 65
60it_should_fail 66it_should_fail
61 = \(a :: _) -> case'Complex 67 = _lhs
62 (\(_ :: _) (_ :: _) -> _) 68 it_should_fail
63 (\(b :: _) (_ :: _) -> _rhs b) 69 \(a :: _) -> case'Complex
64 a 70 (\(_ :: _) (_ :: _) -> _)
71 (\(b :: _) (_ :: _) -> _rhs b)
72 a
65 73
66add :: forall (a :: _) (b :: _) . Complex a -> Complex b -> Complex a 74add :: forall (a :: _) (b :: _) . Complex a -> Complex b -> Complex a
67add 75add
68 = \ @(a :: _) @(b :: _) (c :: _) (d :: _) -> case'Repr 76 = _lhs
69 (\(_ :: _) -> _) 77 add
70 (case'Repr 78 \ @(a :: _) @(b :: _) (c :: _) (d :: _) -> case'Repr
71 (\(_ :: _) -> _) 79 (\(_ :: _) -> _)
72 (case'Complex 80 (case'Repr
73 (\(_ :: _) (_ :: _) -> _) 81 (\(_ :: _) -> _)
74 (\(e :: _) (f :: _) -> case'Complex 82 (case'Complex
75 (\(_ :: _) (_ :: _) -> _) 83 (\(_ :: _) (_ :: _) -> _)
76 (\(g :: _) (h :: _) -> _rhs (Complex (e + g) (f + h))) 84 (\(e :: _) (f :: _) -> case'Complex
77 d) 85 (\(_ :: _) (_ :: _) -> _)
78 c) 86 (\(g :: _) (h :: _) -> _rhs (Complex (e + g) (f + h)))
87 d)
88 c)
89 (_rhs undefined)
90 b)
79 (_rhs undefined) 91 (_rhs undefined)
80 b) 92 a
81 (_rhs undefined)
82 a
83 93
84mul :: forall (a :: _) (b :: _) . Complex a -> Complex b -> Complex a 94mul :: forall (a :: _) (b :: _) . Complex a -> Complex b -> Complex a
85mul 95mul
86 = \ @(a :: _) @(b :: _) (c :: _) (d :: _) -> case'Repr 96 = _lhs
87 (\(_ :: _) -> _) 97 mul
88 (case'Repr 98 \ @(a :: _) @(b :: _) (c :: _) (d :: _) -> case'Repr
89 (\(_ :: _) -> _) 99 (\(_ :: _) -> _)
90 (case'Complex 100 (case'Repr
91 (\(_ :: _) (_ :: _) -> _) 101 (\(_ :: _) -> _)
92 (\(e :: _) (f :: _) -> case'Complex 102 (case'Complex
93 (\(_ :: _) (_ :: _) -> _) 103 (\(_ :: _) (_ :: _) -> _)
94 (\(g :: _) (h :: _) -> _rhs (Complex (e * g - f * h) (f * g + e * h))) 104 (\(e :: _) (f :: _) -> case'Complex
95 d) 105 (\(_ :: _) (_ :: _) -> _)
96 c) 106 (\(g :: _) (h :: _) -> _rhs (Complex (e * g - f * h) (f * g + e * h)))
107 d)
108 c)
109 (_rhs undefined)
110 b)
97 (_rhs undefined) 111 (_rhs undefined)
98 b) 112 a
99 (_rhs undefined)
100 a
101 113
102s :: forall (a :: _) . Complex a -> Complex a 114s :: forall (a :: _) . Complex a -> Complex a
103s = \(a :: _) -> _rhs (mul a a `add` a) 115s = _lhs s \(a :: _) -> _rhs (mul a a `add` a)
104 116
105s4 = \(a :: _) -> _rhs (s (s (s (s a)))) 117s4 = _lhs s4 \(a :: _) -> _rhs (s (s (s (s a))))
106 118
107iter = _rhs s4 119iter = _lhs iter (_rhs s4)
108 120
109mandel = \(a :: _) -> _rhs (cabs (iter a) < 2.0) 121mandel = _lhs mandel \(a :: _) -> _rhs (cabs (iter a) < 2.0)
110------------ core code 122------------ core code
111'Complex :: Repr -> Type 123'Complex :: Repr -> Type
112'Complex = <<type constructor with 1 indices; constructors: Complex>> 124'Complex = <<type constructor with 1 indices; constructors: Complex>>
diff --git a/testdata/data.out b/testdata/data.out
index 1d441619..d0e3b82f 100644
--- a/testdata/data.out
+++ b/testdata/data.out
@@ -13,22 +13,26 @@ data Data2 :: Type where
13 Data24 :: Data2 13 Data24 :: Data2
14 14
15x 15x
16 = \(a :: _) -> case'Data2 16 = _lhs
17 (\(_ :: _) -> _) 17 x
18 (\(_ :: _) -> _rhs undefined) 18 \(a :: _) -> case'Data2
19 (\(b :: _) (_ :: _) -> _rhs b) 19 (\(_ :: _) -> _)
20 (\(c :: _) -> _rhs c) 20 (\(_ :: _) -> _rhs undefined)
21 (_rhs undefined) 21 (\(b :: _) (_ :: _) -> _rhs b)
22 a 22 (\(c :: _) -> _rhs c)
23 (_rhs undefined)
24 a
23 25
24y 26y
25 = \(a :: _) -> case'Data2 27 = _lhs
26 (\(_ :: _) -> _) 28 y
27 (\(_ :: _) -> _rhs undefined) 29 \(a :: _) -> case'Data2
28 (\(_ :: _) (b :: _) -> _rhs b) 30 (\(_ :: _) -> _)
29 (\(_ :: _) -> _rhs undefined) 31 (\(_ :: _) -> _rhs undefined)
30 (_rhs undefined) 32 (\(_ :: _) (b :: _) -> _rhs b)
31 a 33 (\(_ :: _) -> _rhs undefined)
34 (_rhs undefined)
35 a
32 36
33data Data5 (_ :: Type) (_ :: Type) (_ :: Type) :: Type where 37data Data5 (_ :: Type) (_ :: Type) (_ :: Type) :: Type where
34 Data51 :: forall a b c . a -> Data5 a b c 38 Data51 :: forall a b c . a -> Data5 a b c
@@ -36,28 +40,34 @@ data Data5 (_ :: Type) (_ :: Type) (_ :: Type) :: Type where
36 Data53 :: forall g h i . Int -> g -> Float -> h -> i -> Data5 g h i 40 Data53 :: forall g h i . Int -> g -> Float -> h -> i -> Data5 g h i
37 41
38a5 42a5
39 = \(a :: _) -> case'Data5 43 = _lhs
40 (\(_ :: _) -> _) 44 a5
41 (\(b :: _) -> _rhs b) 45 \(a :: _) -> case'Data5
42 (\(c :: _) (_ :: _) (_ :: _) -> _rhs c) 46 (\(_ :: _) -> _)
43 (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined) 47 (\(b :: _) -> _rhs b)
44 a 48 (\(c :: _) (_ :: _) (_ :: _) -> _rhs c)
49 (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined)
50 a
45 51
46b5 52b5
47 = \(a :: _) -> case'Data5 53 = _lhs
48 (\(_ :: _) -> _) 54 b5
49 (\(_ :: _) -> _rhs undefined) 55 \(a :: _) -> case'Data5
50 (\(_ :: _) (b :: _) (_ :: _) -> _rhs b) 56 (\(_ :: _) -> _)
51 (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined) 57 (\(_ :: _) -> _rhs undefined)
52 a 58 (\(_ :: _) (b :: _) (_ :: _) -> _rhs b)
59 (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined)
60 a
53 61
54c5 62c5
55 = \(a :: _) -> case'Data5 63 = _lhs
56 (\(_ :: _) -> _) 64 c5
57 (\(_ :: _) -> _rhs undefined) 65 \(a :: _) -> case'Data5
58 (\(_ :: _) (_ :: _) (b :: _) -> _rhs b) 66 (\(_ :: _) -> _)
59 (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined) 67 (\(_ :: _) -> _rhs undefined)
60 a 68 (\(_ :: _) (_ :: _) (b :: _) -> _rhs b)
69 (\(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs undefined)
70 a
61------------ core code 71------------ core code
62'Data0 :: Type 72'Data0 :: Type
63'Data0 = <<type constructor with 0 indices; constructors: Data0>> 73'Data0 = <<type constructor with 0 indices; constructors: Data0>>
diff --git a/testdata/id.out b/testdata/id.out
index c05db920..e9d1758f 100644
--- a/testdata/id.out
+++ b/testdata/id.out
@@ -1,6 +1,7 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3main' = _rhs let a = _rhs \(b :: _) -> b in (a 4.0, a True) 3main'
4 = _lhs main' (_rhs let a = _lhs id' (_rhs \(b :: _) -> b) in (a 4.0, a True))
4------------ core code 5------------ core code
5main' :: (Float, Bool) 6main' :: (Float, Bool)
6main' = _rhs (4.0, True) 7main' = _rhs (4.0, True)
diff --git a/testdata/instantiate.out b/testdata/instantiate.out
index f1310ba2..95bc2af4 100644
--- a/testdata/instantiate.out
+++ b/testdata/instantiate.out
@@ -1,6 +1,7 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3main' = _rhs let a = _rhs PrimAdd in a (V2 1.0 2.0) (V2 1.0 2.0) 3main'
4 = _lhs main' (_rhs let a = _lhs f (_rhs PrimAdd) in a (V2 1.0 2.0) (V2 1.0 2.0))
4------------ core code 5------------ core code
5main' :: VecS Float 2 6main' :: VecS Float 2
6main' = _rhs (PrimAdd ('VecS 'Float 2) TT (V2 1.0 2.0) (V2 1.0 2.0)) 7main' = _rhs (PrimAdd ('VecS 'Float 2) TT (V2 1.0 2.0) (V2 1.0 2.0))
diff --git a/testdata/language-features/basic-list/list01.out b/testdata/language-features/basic-list/list01.out
index 14eb5c08..4a4d6cda 100644
--- a/testdata/language-features/basic-list/list01.out
+++ b/testdata/language-features/basic-list/list01.out
@@ -1,10 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs [] 3value1 = _lhs value1 (_rhs [])
4 4
5value2 = _rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4] 5value2 = _lhs value2 (_rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4])
6 6
7value3 = _rhs ['h', 'e', 'l', 'l', 'o'] 7value3 = _lhs value3 (_rhs ['h', 'e', 'l', 'l', 'o'])
8------------ core code 8------------ core code
9value1 :: forall a . [a] 9value1 :: forall a . [a]
10value1 = _rhs [] 10value1 = _rhs []
diff --git a/testdata/language-features/basic-list/list02.out b/testdata/language-features/basic-list/list02.out
index 8710b507..290d0482 100644
--- a/testdata/language-features/basic-list/list02.out
+++ b/testdata/language-features/basic-list/list02.out
@@ -1,10 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs [] 3value1 = _lhs value1 (_rhs [])
4 4
5value2 = _rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4] 5value2 = _lhs value2 (_rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4])
6 6
7value3 = _rhs ['h', 'e', 'l', 'l', 'o'] 7value3 = _lhs value3 (_rhs ['h', 'e', 'l', 'l', 'o'])
8------------ core code 8------------ core code
9value1 :: forall a . [a] 9value1 :: forall a . [a]
10value1 = _rhs [] 10value1 = _rhs []
diff --git a/testdata/language-features/basic-list/list08.out b/testdata/language-features/basic-list/list08.out
index e92d9b36..a9ed3391 100644
--- a/testdata/language-features/basic-list/list08.out
+++ b/testdata/language-features/basic-list/list08.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs [fromInt 1, 1.2] 3value = _lhs value (_rhs [fromInt 1, 1.2])
4------------ core code 4------------ core code
5value :: [Float] 5value :: [Float]
6value = _rhs [1.0, 1.2] 6value = _rhs [1.0, 1.2]
diff --git a/testdata/language-features/basic-list/list09.out b/testdata/language-features/basic-list/list09.out
index 676c1ed6..c46fb913 100644
--- a/testdata/language-features/basic-list/list09.out
+++ b/testdata/language-features/basic-list/list09.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs ([fromInt 1, 1.2] :: [Float]) 3value = _lhs value (_rhs ([fromInt 1, 1.2] :: [Float]))
4------------ core code 4------------ core code
5value :: [Float] 5value :: [Float]
6value = _rhs [1.0, 1.2] 6value = _rhs [1.0, 1.2]
diff --git a/testdata/language-features/basic-list/list11.out b/testdata/language-features/basic-list/list11.out
index 00b52310..9777fcff 100644
--- a/testdata/language-features/basic-list/list11.out
+++ b/testdata/language-features/basic-list/list11.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs [fromInt 1] 3value = _lhs value (_rhs [fromInt 1])
4------------ core code 4------------ core code
5value :: forall a . Num a => [a] 5value :: forall a . Num a => [a]
6value = \a b -> _rhs [fromInt a b 1] 6value = \a b -> _rhs [fromInt a b 1]
diff --git a/testdata/language-features/basic-list/list12.out b/testdata/language-features/basic-list/list12.out
index 9e289ae6..e8e480be 100644
--- a/testdata/language-features/basic-list/list12.out
+++ b/testdata/language-features/basic-list/list12.out
@@ -1,6 +1,7 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4, fromInt 5] 3value
4 = _lhs value (_rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4, fromInt 5])
4------------ core code 5------------ core code
5value :: forall a . Num a => [a] 6value :: forall a . Num a => [a]
6value 7value
diff --git a/testdata/language-features/basic-list/list13.out b/testdata/language-features/basic-list/list13.out
index bb27f13d..c1c89f70 100644
--- a/testdata/language-features/basic-list/list13.out
+++ b/testdata/language-features/basic-list/list13.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs ['h', 'e', 'l', 'l', 'o'] 3value = _lhs value (_rhs ['h', 'e', 'l', 'l', 'o'])
4------------ core code 4------------ core code
5value :: [Char] 5value :: [Char]
6value = _rhs ['h', 'e', 'l', 'l', 'o'] 6value = _rhs ['h', 'e', 'l', 'l', 'o']
diff --git a/testdata/language-features/basic-list/listcomp01.out b/testdata/language-features/basic-list/listcomp01.out
index e02d3045..ace40823 100644
--- a/testdata/language-features/basic-list/listcomp01.out
+++ b/testdata/language-features/basic-list/listcomp01.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs (concatMap (\(_ :: _) -> [()]) [(), (), (), ()]) 3value = _lhs value (_rhs (concatMap (\(_ :: _) -> [()]) [(), (), (), ()]))
4------------ core code 4------------ core code
5value :: [()] 5value :: [()]
6value = _rhs [(), (), (), ()] 6value = _rhs [(), (), (), ()]
diff --git a/testdata/language-features/basic-list/listcomp02.out b/testdata/language-features/basic-list/listcomp02.out
index aa811e16..18619ff6 100644
--- a/testdata/language-features/basic-list/listcomp02.out
+++ b/testdata/language-features/basic-list/listcomp02.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3l = _rhs [(), (), (), ()] 3l = _lhs l (_rhs [(), (), (), ()])
4 4
5value = _rhs (concatMap (\(a :: _) -> [a]) l) 5value = _lhs value (_rhs (concatMap (\(a :: _) -> [a]) l))
6------------ core code 6------------ core code
7l :: [()] 7l :: [()]
8l = _rhs [(), (), (), ()] 8l = _rhs [(), (), (), ()]
diff --git a/testdata/language-features/basic-list/listcomp03.out b/testdata/language-features/basic-list/listcomp03.out
index e3192970..0ba6b347 100644
--- a/testdata/language-features/basic-list/listcomp03.out
+++ b/testdata/language-features/basic-list/listcomp03.out
@@ -1,7 +1,9 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = _rhs (concatMap (\(_ :: _) -> primIfThenElse False [()] []) [(), (), (), ()]) 4 = _lhs
5 value
6 (_rhs (concatMap (\(_ :: _) -> primIfThenElse False [()] []) [(), (), (), ()]))
5------------ core code 7------------ core code
6value :: [()] 8value :: [()]
7value = _rhs [] 9value = _rhs []
diff --git a/testdata/language-features/basic-list/listcomp04.out b/testdata/language-features/basic-list/listcomp04.out
index 9352d6ae..4d43ac94 100644
--- a/testdata/language-features/basic-list/listcomp04.out
+++ b/testdata/language-features/basic-list/listcomp04.out
@@ -1,8 +1,9 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3l = _rhs [(), (), (), ()] 3l = _lhs l (_rhs [(), (), (), ()])
4 4
5value = _rhs (concatMap (\(_ :: _) -> concatMap (\(_ :: _) -> [()]) l) l) 5value
6 = _lhs value (_rhs (concatMap (\(_ :: _) -> concatMap (\(_ :: _) -> [()]) l) l))
6------------ core code 7------------ core code
7l :: [()] 8l :: [()]
8l = _rhs [(), (), (), ()] 9l = _rhs [(), (), (), ()]
diff --git a/testdata/language-features/basic-list/listcomp05.out b/testdata/language-features/basic-list/listcomp05.out
index c3984bc7..c9e56736 100644
--- a/testdata/language-features/basic-list/listcomp05.out
+++ b/testdata/language-features/basic-list/listcomp05.out
@@ -1,10 +1,14 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = _rhs 4 = _lhs
5 (concatMap 5 value
6 (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in [b]) 6 (_rhs
7 [(), ()]) 7 (concatMap
8 (\(_ :: _) -> let
9 a = _lhs _u (_rhs ()); b = _lhs u (_rhs ((\(c :: _) -> c) a))
10 in [b])
11 [(), ()]))
8------------ core code 12------------ core code
9value :: [()] 13value :: [()]
10value = _rhs [(), ()] 14value = _rhs [(), ()]
diff --git a/testdata/language-features/basic-list/listcomp06.out b/testdata/language-features/basic-list/listcomp06.out
index 3fc12622..cf4e2b31 100644
--- a/testdata/language-features/basic-list/listcomp06.out
+++ b/testdata/language-features/basic-list/listcomp06.out
@@ -1,22 +1,25 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 3value1
4 = _rhs 4 = _lhs
5 (concatMap 5 value1
6 (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse 6 (_rhs
7 True 7 (concatMap
8 [b] 8 (\(_ :: _) -> let
9 []) 9 a = _lhs _u (_rhs ()); b = _lhs u (_rhs ((\(c :: _) -> c) a))
10 [(), ()]) 10 in primIfThenElse True [b] [])
11 [(), ()]))
11 12
12value2 13value2
13 = _rhs 14 = _lhs
14 (concatMap 15 value2
15 (\(_ :: _) -> primIfThenElse 16 (_rhs
16 True 17 (concatMap
17 (let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in [b]) 18 (\(_ :: _) -> primIfThenElse
18 []) 19 True
19 [(), ()]) 20 (let a = _lhs _u (_rhs ()); b = _lhs u (_rhs ((\(c :: _) -> c) a)) in [b])
21 [])
22 [(), ()]))
20------------ core code 23------------ core code
21value1 :: [()] 24value1 :: [()]
22value1 = _rhs [(), ()] 25value1 = _rhs [(), ()]
diff --git a/testdata/language-features/basic-list/listcomp07.out b/testdata/language-features/basic-list/listcomp07.out
index 1923e806..2f4d633a 100644
--- a/testdata/language-features/basic-list/listcomp07.out
+++ b/testdata/language-features/basic-list/listcomp07.out
@@ -1,31 +1,43 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 3value1
4 = _rhs 4 = _lhs
5 (concatMap 5 value1
6 (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse 6 (_rhs
7 True 7 (concatMap
8 (let d = _rhs b; e = _rhs ((\(f :: _) -> f) d) in [b]) 8 (\(_ :: _) -> let
9 []) 9 a = _lhs _u (_rhs ()); b = _lhs u (_rhs ((\(c :: _) -> c) a))
10 [(), ()]) 10 in primIfThenElse
11 True
12 (let d = _lhs _v (_rhs b); e = _lhs v (_rhs ((\(f :: _) -> f) d)) in [b])
13 [])
14 [(), ()]))
11 15
12value2 16value2
13 = _rhs 17 = _lhs
14 (concatMap 18 value2
15 (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse 19 (_rhs
16 True 20 (concatMap
17 (let d = _rhs b; e = _rhs ((\(f :: _) -> f) d) in [b]) 21 (\(_ :: _) -> let
18 []) 22 a = _lhs _u (_rhs ()); b = _lhs u (_rhs ((\(c :: _) -> c) a))
19 [(), ()]) 23 in primIfThenElse
24 True
25 (let d = _lhs _v (_rhs b); e = _lhs v (_rhs ((\(f :: _) -> f) d)) in [b])
26 [])
27 [(), ()]))
20 28
21value3 29value3
22 = _rhs 30 = _lhs
23 (concatMap 31 value3
24 (\(_ :: _) -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse 32 (_rhs
25 True 33 (concatMap
26 (let d = _rhs b; e = _rhs ((\(f :: _) -> f) d) in [b]) 34 (\(_ :: _) -> let
27 []) 35 a = _lhs _u (_rhs ()); b = _lhs u (_rhs ((\(c :: _) -> c) a))
28 [(), ()]) 36 in primIfThenElse
37 True
38 (let d = _lhs _v (_rhs b); e = _lhs v (_rhs ((\(f :: _) -> f) d)) in [b])
39 [])
40 [(), ()]))
29------------ core code 41------------ core code
30value1 :: [()] 42value1 :: [()]
31value1 = _rhs [(), ()] 43value1 = _rhs [(), ()]
diff --git a/testdata/language-features/basic-list/listcomp09.out b/testdata/language-features/basic-list/listcomp09.out
index b83e6611..6c1c9d6d 100644
--- a/testdata/language-features/basic-list/listcomp09.out
+++ b/testdata/language-features/basic-list/listcomp09.out
@@ -1,7 +1,9 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 3value1
4 = _rhs (concatMap (\(_ :: _) -> [\(a :: _) -> hlistNilCase _ "Hello" a]) []) 4 = _lhs
5 value1
6 (_rhs (concatMap (\(_ :: _) -> [\(a :: _) -> hlistNilCase _ "Hello" a]) []))
5------------ core code 7------------ core code
6value1 :: @Type -> [() -> String] 8value1 :: @Type -> [() -> String]
7value1 = \_ -> _rhs [] 9value1 = \_ -> _rhs []
diff --git a/testdata/language-features/basic-values/bool01.out b/testdata/language-features/basic-values/bool01.out
index ee5e9859..5d0f35af 100644
--- a/testdata/language-features/basic-values/bool01.out
+++ b/testdata/language-features/basic-values/bool01.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs True 3value1 = _lhs value1 (_rhs True)
4 4
5value2 = _rhs False 5value2 = _lhs value2 (_rhs False)
6------------ core code 6------------ core code
7value1 :: Bool 7value1 :: Bool
8value1 = _rhs True 8value1 = _rhs True
diff --git a/testdata/language-features/basic-values/case01.out b/testdata/language-features/basic-values/case01.out
index ee13f28e..eff9fb43 100644
--- a/testdata/language-features/basic-values/case01.out
+++ b/testdata/language-features/basic-values/case01.out
@@ -1,16 +1,16 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ()) 3value1 = _lhs value1 (_rhs ((\(a :: _) -> hlistNilCase _ () a) ()))
4 4
5value2 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ()) 5value2 = _lhs value2 (_rhs ((\(a :: _) -> hlistNilCase _ () a) ()))
6 6
7value3 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ()) 7value3 = _lhs value3 (_rhs ((\(a :: _) -> hlistNilCase _ () a) ()))
8 8
9value4 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ()) 9value4 = _lhs value4 (_rhs ((\(a :: _) -> hlistNilCase _ () a) ()))
10 10
11value5 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ()) 11value5 = _lhs value5 (_rhs ((\(a :: _) -> hlistNilCase _ () a) ()))
12 12
13value6 = _rhs ((\(_ :: _) -> ()) ()) 13value6 = _lhs value6 (_rhs ((\(_ :: _) -> ()) ()))
14------------ core code 14------------ core code
15value1 :: () 15value1 :: ()
16value1 = _rhs () 16value1 = _rhs ()
diff --git a/testdata/language-features/basic-values/case02.out b/testdata/language-features/basic-values/case02.out
index 9d1dd476..f445f91a 100644
--- a/testdata/language-features/basic-values/case02.out
+++ b/testdata/language-features/basic-values/case02.out
@@ -1,17 +1,21 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 3value1
4 = _rhs 4 = _lhs
5 ((\(a :: _) -> case'Bool (\(_ :: _) -> _) () () (fromInt 1 == a)) (fromInt 1)) 5 value1
6 (_rhs
7 ((\(a :: _) -> case'Bool (\(_ :: _) -> _) () () (fromInt 1 == a)) (fromInt 1)))
6 8
7value2 9value2
8 = _rhs 10 = _lhs
9 ((\(a :: _) -> case'Bool 11 value2
10 (\(_ :: _) -> _) 12 (_rhs
11 (case'Bool (\(_ :: _) -> _) "_" "2" (fromInt 2 == a)) 13 ((\(a :: _) -> case'Bool
12 "1" 14 (\(_ :: _) -> _)
13 (fromInt 1 == a)) 15 (case'Bool (\(_ :: _) -> _) "_" "2" (fromInt 2 == a))
14 (fromInt 2)) 16 "1"
17 (fromInt 1 == a))
18 (fromInt 2)))
15------------ core code 19------------ core code
16value1 :: forall a . (Eq a, Num a) => () 20value1 :: forall a . (Eq a, Num a) => ()
17value1 21value1
diff --git a/testdata/language-features/basic-values/case05.out b/testdata/language-features/basic-values/case05.out
index 51e7f245..130dd7d3 100644
--- a/testdata/language-features/basic-values/case05.out
+++ b/testdata/language-features/basic-values/case05.out
@@ -1,8 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = \(a :: _) -> _rhs 4 = _lhs
5 ((\(b :: _) -> case'Bool (\(_ :: _) -> _) undefined '1' (fromInt 1 == b)) a) 5 value
6 \(a :: _) -> _rhs
7 ((\(b :: _) -> case'Bool (\(_ :: _) -> _) undefined '1' (fromInt 1 == b)) a)
6------------ core code 8------------ core code
7value :: forall a . (Eq a, Num a) => a -> Char 9value :: forall a . (Eq a, Num a) => a -> Char
8value 10value
diff --git a/testdata/language-features/basic-values/case06.out b/testdata/language-features/basic-values/case06.out
index 0191877b..9b4ff748 100644
--- a/testdata/language-features/basic-values/case06.out
+++ b/testdata/language-features/basic-values/case06.out
@@ -1,8 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = \(a :: _) -> _rhs 4 = _lhs
5 ((\(b :: _) -> case'Bool (\(_ :: _) -> _) '_' '1' (fromInt 1 == b)) a) 5 value
6 \(a :: _) -> _rhs
7 ((\(b :: _) -> case'Bool (\(_ :: _) -> _) '_' '1' (fromInt 1 == b)) a)
6------------ core code 8------------ core code
7value :: forall a . (Eq a, Num a) => a -> Char 9value :: forall a . (Eq a, Num a) => a -> Char
8value 10value
diff --git a/testdata/language-features/basic-values/def01.out b/testdata/language-features/basic-values/def01.out
index 3ada4423..6564e1b8 100644
--- a/testdata/language-features/basic-values/def01.out
+++ b/testdata/language-features/basic-values/def01.out
@@ -1,10 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3unit = _rhs () 3unit = _lhs unit (_rhs ())
4 4
5fun1 = \(_ :: _) -> _rhs (fromInt 1) 5fun1 = _lhs fun1 \(_ :: _) -> _rhs (fromInt 1)
6 6
7fun2 = \(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs 'c' 7fun2 = _lhs fun2 \(_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs 'c'
8------------ core code 8------------ core code
9fun1 :: forall a b . Num b => a -> b 9fun1 :: forall a b . Num b => a -> b
10fun1 = \_ a b _ -> _rhs (fromInt a b 1) 10fun1 = \_ a b _ -> _rhs (fromInt a b 1)
diff --git a/testdata/language-features/basic-values/def03.out b/testdata/language-features/basic-values/def03.out
index e803c077..a90c1488 100644
--- a/testdata/language-features/basic-values/def03.out
+++ b/testdata/language-features/basic-values/def03.out
@@ -1,11 +1,13 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun 3fun
4 = \(a :: _) -> case'Bool 4 = _lhs
5 (\(_ :: _) -> _) 5 fun
6 (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs '2') (fromInt 2 == a)) 6 \(a :: _) -> case'Bool
7 (_rhs '1') 7 (\(_ :: _) -> _)
8 (fromInt 1 == a) 8 (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs '2') (fromInt 2 == a))
9 (_rhs '1')
10 (fromInt 1 == a)
9------------ core code 11------------ core code
10fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char 12fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
11fun 13fun
diff --git a/testdata/language-features/basic-values/def04.out b/testdata/language-features/basic-values/def04.out
index de250fdb..127129e9 100644
--- a/testdata/language-features/basic-values/def04.out
+++ b/testdata/language-features/basic-values/def04.out
@@ -1,18 +1,22 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun 3fun
4 = \(a :: _) -> case'Bool 4 = _lhs
5 (\(_ :: _) -> _) 5 fun
6 (case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '2') (fromInt 2 == a)) 6 \(a :: _) -> case'Bool
7 (_rhs '1') 7 (\(_ :: _) -> _)
8 (fromInt 1 == a) 8 (case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '2') (fromInt 2 == a))
9 (_rhs '1')
10 (fromInt 1 == a)
9 11
10fun2 12fun2
11 = \(a :: _) (_ :: _) -> case'Bool 13 = _lhs
12 (\(_ :: _) -> _) 14 fun2
13 (case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '2') (fromInt 2 == a)) 15 \(a :: _) (_ :: _) -> case'Bool
14 (_rhs '1') 16 (\(_ :: _) -> _)
15 (fromInt 1 == a) 17 (case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '2') (fromInt 2 == a))
18 (_rhs '1')
19 (fromInt 1 == a)
16------------ core code 20------------ core code
17fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char 21fun :: forall a . (Eq a, Num a, Eq a, Num a) => a -> Char
18fun 22fun
diff --git a/testdata/language-features/basic-values/deforder01.out b/testdata/language-features/basic-values/deforder01.out
index 65ee8408..932a2a54 100644
--- a/testdata/language-features/basic-values/deforder01.out
+++ b/testdata/language-features/basic-values/deforder01.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3x = _rhs '1' 3x = _lhs x (_rhs '1')
4 4
5y = _rhs x 5y = _lhs y (_rhs x)
6------------ core code 6------------ core code
7x :: Char 7x :: Char
8x = _rhs '1' 8x = _rhs '1'
diff --git a/testdata/language-features/basic-values/deforder02.out b/testdata/language-features/basic-values/deforder02.out
index bc81cbfd..2bfbd5b3 100644
--- a/testdata/language-features/basic-values/deforder02.out
+++ b/testdata/language-features/basic-values/deforder02.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3x = _rhs '1' 3x = _lhs x (_rhs '1')
4 4
5y = _rhs x 5y = _lhs y (_rhs x)
6------------ core code 6------------ core code
7x :: Char 7x :: Char
8x = _rhs '1' 8x = _rhs '1'
diff --git a/testdata/language-features/basic-values/deforder03.out b/testdata/language-features/basic-values/deforder03.out
index 6dd09a14..cf40c23e 100644
--- a/testdata/language-features/basic-values/deforder03.out
+++ b/testdata/language-features/basic-values/deforder03.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs let a = _rhs (); b = _rhs a in '1' 3value = _lhs value (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs a) in '1')
4------------ core code 4------------ core code
5value :: Char 5value :: Char
6value = _rhs '1' 6value = _rhs '1'
diff --git a/testdata/language-features/basic-values/deforder04.out b/testdata/language-features/basic-values/deforder04.out
index 34f04f22..767b8a9b 100644
--- a/testdata/language-features/basic-values/deforder04.out
+++ b/testdata/language-features/basic-values/deforder04.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs let a = _rhs (); b = _rhs a in '1' 3value = _lhs value (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs a) in '1')
4------------ core code 4------------ core code
5value :: Char 5value :: Char
6value = _rhs '1' 6value = _rhs '1'
diff --git a/testdata/language-features/basic-values/deforder05.out b/testdata/language-features/basic-values/deforder05.out
index c4c4eda5..7345785e 100644
--- a/testdata/language-features/basic-values/deforder05.out
+++ b/testdata/language-features/basic-values/deforder05.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs let a = _rhs (); b = _rhs a in '1' 3value = _lhs value (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs a) in '1')
4------------ core code 4------------ core code
5value :: Char 5value :: Char
6value = _rhs '1' 6value = _rhs '1'
diff --git a/testdata/language-features/basic-values/deforder06.out b/testdata/language-features/basic-values/deforder06.out
index 6228b957..2a0ead81 100644
--- a/testdata/language-features/basic-values/deforder06.out
+++ b/testdata/language-features/basic-values/deforder06.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs let a = _rhs (); b = _rhs a in '1' 3value = _lhs value (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs a) in '1')
4------------ core code 4------------ core code
5value :: Char 5value :: Char
6value = _rhs '1' 6value = _rhs '1'
diff --git a/testdata/language-features/basic-values/fixity01.out b/testdata/language-features/basic-values/fixity01.out
index 8f75a8f2..f4f17b40 100644
--- a/testdata/language-features/basic-values/fixity01.out
+++ b/testdata/language-features/basic-values/fixity01.out
@@ -1,12 +1,12 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3funL = \(a :: _) (_ :: _) -> _rhs a 3funL = _lhs funL \(a :: _) (_ :: _) -> _rhs a
4 4
5funR = \(a :: _) (_ :: _) -> _rhs a 5funR = _lhs funR \(a :: _) (_ :: _) -> _rhs a
6 6
7(<<<<) = \(a :: _) (_ :: _) -> _rhs a 7(<<<<) = _lhs (<<<<) \(a :: _) (_ :: _) -> _rhs a
8 8
9(>>>>) = \(_ :: _) (a :: _) -> _rhs a 9(>>>>) = _lhs (>>>>) \(_ :: _) (a :: _) -> _rhs a
10 10
11infixr 7 funL 11infixr 7 funL
12 12
diff --git a/testdata/language-features/basic-values/fixity02.out b/testdata/language-features/basic-values/fixity02.out
index e018eb76..b07707af 100644
--- a/testdata/language-features/basic-values/fixity02.out
+++ b/testdata/language-features/basic-values/fixity02.out
@@ -1,12 +1,12 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3funL = \(a :: _) (_ :: _) -> _rhs a 3funL = _lhs funL \(a :: _) (_ :: _) -> _rhs a
4 4
5funR = \(_ :: _) (a :: _) -> _rhs a 5funR = _lhs funR \(_ :: _) (a :: _) -> _rhs a
6 6
7(<@) = \(a :: _) (_ :: _) -> _rhs a 7(<@) = _lhs (<@) \(a :: _) (_ :: _) -> _rhs a
8 8
9(@>) = \(_ :: _) (a :: _) -> _rhs a 9(@>) = _lhs (@>) \(_ :: _) (a :: _) -> _rhs a
10 10
11infixr 7 funL 11infixr 7 funL
12 12
@@ -16,37 +16,43 @@ infixr 6 @>
16 16
17infixr 6 funR 17infixr 6 funR
18 18
19value1 = _rhs (() @> 'c' @> "hi" @> 1.2 :: Float) 19value1 = _lhs value1 (_rhs (() @> 'c' @> "hi" @> 1.2 :: Float))
20 20
21value2 = _rhs (() @> 'c' <@ "hi" @> 1.2 :: Float) 21value2 = _lhs value2 (_rhs (() @> 'c' <@ "hi" @> 1.2 :: Float))
22 22
23value3 = _rhs (() <@ 'c' @> "hi" @> 1.2 :: Float) 23value3 = _lhs value3 (_rhs (() <@ 'c' @> "hi" @> 1.2 :: Float))
24 24
25value4 = _rhs (() <@ 'c' <@ "hi" @> 1.2 :: Float) 25value4 = _lhs value4 (_rhs (() <@ 'c' <@ "hi" @> 1.2 :: Float))
26 26
27value5 = _rhs (() @> 'c' @> "hi" <@ 1.2 :: String) 27value5 = _lhs value5 (_rhs (() @> 'c' @> "hi" <@ 1.2 :: String))
28 28
29value6 = _rhs (() @> 'c' <@ "hi" <@ 1.2 :: Char) 29value6 = _lhs value6 (_rhs (() @> 'c' <@ "hi" <@ 1.2 :: Char))
30 30
31value7 = _rhs (() <@ 'c' @> "hi" <@ 1.2 :: String) 31value7 = _lhs value7 (_rhs (() <@ 'c' @> "hi" <@ 1.2 :: String))
32 32
33value8 = _rhs (() <@ 'c' <@ "hi" <@ 1.2 :: ()) 33value8 = _lhs value8 (_rhs (() <@ 'c' <@ "hi" <@ 1.2 :: ()))
34 34
35funValue1 = _rhs (() `funR` 'c' `funR` "hi" `funR` 1.2 :: Float) 35funValue1
36 = _lhs funValue1 (_rhs (() `funR` 'c' `funR` "hi" `funR` 1.2 :: Float))
36 37
37funValue2 = _rhs (() `funR` 'c' `funL` "hi" `funR` 1.2 :: Float) 38funValue2
39 = _lhs funValue2 (_rhs (() `funR` 'c' `funL` "hi" `funR` 1.2 :: Float))
38 40
39funValue3 = _rhs (() `funL` 'c' `funR` "hi" `funR` 1.2 :: Float) 41funValue3
42 = _lhs funValue3 (_rhs (() `funL` 'c' `funR` "hi" `funR` 1.2 :: Float))
40 43
41funValue4 = _rhs (() `funL` 'c' `funL` "hi" `funR` 1.2 :: Float) 44funValue4
45 = _lhs funValue4 (_rhs (() `funL` 'c' `funL` "hi" `funR` 1.2 :: Float))
42 46
43funValue5 = _rhs (() `funR` 'c' `funR` "hi" `funL` 1.2 :: String) 47funValue5
48 = _lhs funValue5 (_rhs (() `funR` 'c' `funR` "hi" `funL` 1.2 :: String))
44 49
45funValue6 = _rhs (() `funR` 'c' `funL` "hi" `funL` 1.2 :: Char) 50funValue6 = _lhs funValue6 (_rhs (() `funR` 'c' `funL` "hi" `funL` 1.2 :: Char))
46 51
47funValue7 = _rhs (() `funL` 'c' `funR` "hi" `funL` 1.2 :: String) 52funValue7
53 = _lhs funValue7 (_rhs (() `funL` 'c' `funR` "hi" `funL` 1.2 :: String))
48 54
49funValue8 = _rhs (() `funL` 'c' `funL` "hi" `funL` 1.2 :: ()) 55funValue8 = _lhs funValue8 (_rhs (() `funL` 'c' `funL` "hi" `funL` 1.2 :: ()))
50------------ core code 56------------ core code
51<@ :: forall a b . a -> b -> a 57<@ :: forall a b . a -> b -> a
52<@ = \_ _ a _ -> _rhs a 58<@ = \_ _ a _ -> _rhs a
diff --git a/testdata/language-features/basic-values/if01.out b/testdata/language-features/basic-values/if01.out
index cfac15fd..82fdb2ff 100644
--- a/testdata/language-features/basic-values/if01.out
+++ b/testdata/language-features/basic-values/if01.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs (primIfThenElse True () ()) 3value1 = _lhs value1 (_rhs (primIfThenElse True () ()))
4 4
5value2 = _rhs (primIfThenElse False 1.0 2.0) 5value2 = _lhs value2 (_rhs (primIfThenElse False 1.0 2.0))
6------------ core code 6------------ core code
7value1 :: () 7value1 :: ()
8value1 = _rhs () 8value1 = _rhs ()
diff --git a/testdata/language-features/basic-values/indentation01.out b/testdata/language-features/basic-values/indentation01.out
index 737c8ecd..f1d98545 100644
--- a/testdata/language-features/basic-values/indentation01.out
+++ b/testdata/language-features/basic-values/indentation01.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3tuple1 = _rhs () 3tuple1 = _lhs tuple1 (_rhs ())
4 4
5tuple2 = _rhs () 5tuple2 = _lhs tuple2 (_rhs ())
6------------ core code 6------------ core code
7tuple1 :: () 7tuple1 :: ()
8tuple1 = _rhs () 8tuple1 = _rhs ()
diff --git a/testdata/language-features/basic-values/indentation02.out b/testdata/language-features/basic-values/indentation02.out
index 33b04d5e..0b686d97 100644
--- a/testdata/language-features/basic-values/indentation02.out
+++ b/testdata/language-features/basic-values/indentation02.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3tuple1 = _rhs () 3tuple1 = _lhs tuple1 (_rhs ())
4 4
5tuple2 = _rhs () 5tuple2 = _lhs tuple2 (_rhs ())
6------------ core code 6------------ core code
7tuple1 :: () 7tuple1 :: ()
8tuple1 = _rhs () 8tuple1 = _rhs ()
diff --git a/testdata/language-features/basic-values/infix01.out b/testdata/language-features/basic-values/infix01.out
index 1ba2bd04..ced45621 100644
--- a/testdata/language-features/basic-values/infix01.out
+++ b/testdata/language-features/basic-values/infix01.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun = \(_ :: _) (_ :: _) -> _rhs () 3fun = _lhs fun \(_ :: _) (_ :: _) -> _rhs ()
4 4
5value = \(a :: _) (b :: _) -> _rhs (a `fun` b) 5value = _lhs value \(a :: _) (b :: _) -> _rhs (a `fun` b)
6------------ core code 6------------ core code
7fun :: forall a b . a -> b -> () 7fun :: forall a b . a -> b -> ()
8fun = \_ _ _ _ -> _rhs () 8fun = \_ _ _ _ -> _rhs ()
diff --git a/testdata/language-features/basic-values/infix02.out b/testdata/language-features/basic-values/infix02.out
index 8f743998..888f4d9f 100644
--- a/testdata/language-features/basic-values/infix02.out
+++ b/testdata/language-features/basic-values/infix02.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun = \(_ :: _) (_ :: _) (_ :: _) -> _rhs () 3fun = _lhs fun \(_ :: _) (_ :: _) (_ :: _) -> _rhs ()
4 4
5value = \(a :: _) (b :: _) -> _rhs (a `fun` b) 5value = _lhs value \(a :: _) (b :: _) -> _rhs (a `fun` b)
6------------ core code 6------------ core code
7fun :: forall a b c . a -> b -> c -> () 7fun :: forall a b c . a -> b -> c -> ()
8fun = \_ _ _ _ _ _ -> _rhs () 8fun = \_ _ _ _ _ _ -> _rhs ()
diff --git a/testdata/language-features/basic-values/infix03.out b/testdata/language-features/basic-values/infix03.out
index 4b6af910..9d3aa812 100644
--- a/testdata/language-features/basic-values/infix03.out
+++ b/testdata/language-features/basic-values/infix03.out
@@ -4,9 +4,9 @@ data D :: Type where
4 D2 :: () -> () -> D 4 D2 :: () -> () -> D
5 D3 :: () -> () -> () -> D 5 D3 :: () -> () -> () -> D
6 6
7d2 = \(a :: _) (b :: _) -> _rhs (a `D2` b) 7d2 = _lhs d2 \(a :: _) (b :: _) -> _rhs (a `D2` b)
8 8
9d3 = \(a :: _) (b :: _) -> _rhs (a `D3` b) 9d3 = _lhs d3 \(a :: _) (b :: _) -> _rhs (a `D3` b)
10------------ core code 10------------ core code
11'D :: Type 11'D :: Type
12'D = <<type constructor with 0 indices; constructors: D2, D3>> 12'D = <<type constructor with 0 indices; constructors: D2, D3>>
diff --git a/testdata/language-features/basic-values/lambda01.out b/testdata/language-features/basic-values/lambda01.out
index 591970d1..0a07171f 100644
--- a/testdata/language-features/basic-values/lambda01.out
+++ b/testdata/language-features/basic-values/lambda01.out
@@ -1,16 +1,18 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun1 = _rhs \(_ :: _) -> () 3fun1 = _lhs fun1 (_rhs \(_ :: _) -> ())
4 4
5fun2 = _rhs \(_ :: _) -> () 5fun2 = _lhs fun2 (_rhs \(_ :: _) -> ())
6 6
7fun3 = _rhs \(_ :: _) -> () 7fun3 = _lhs fun3 (_rhs \(_ :: _) -> ())
8 8
9fun4 9fun4
10 = _rhs 10 = _lhs
11 \(_ :: _) 11 fun4
12 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 12 (_rhs
13 -> () 13 \(_ :: _)
14 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
15 -> ())
14------------ core code 16------------ core code
15fun1 :: forall a . a -> () 17fun1 :: forall a . a -> ()
16fun1 = \_ -> _rhs \_ -> () 18fun1 = \_ -> _rhs \_ -> ()
diff --git a/testdata/language-features/basic-values/lambda03.out b/testdata/language-features/basic-values/lambda03.out
index 69e50ccf..f9ddcaa4 100644
--- a/testdata/language-features/basic-values/lambda03.out
+++ b/testdata/language-features/basic-values/lambda03.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun1 = _rhs \(_ :: _) (a :: _) (_ :: _) -> a 3fun1 = _lhs fun1 (_rhs \(_ :: _) (a :: _) (_ :: _) -> a)
4 4
5fun2 = \(a :: _) -> _rhs \(_ :: _) (_ :: _) (_ :: _) -> a 5fun2 = _lhs fun2 \(a :: _) -> _rhs \(_ :: _) (_ :: _) (_ :: _) -> a
6------------ core code 6------------ core code
7fun1 :: forall a b c . a -> b -> c -> b 7fun1 :: forall a b c . a -> b -> c -> b
8fun1 = \_ _ _ -> _rhs \_ a _ -> a 8fun1 = \_ _ _ -> _rhs \_ a _ -> a
diff --git a/testdata/language-features/basic-values/let01.out b/testdata/language-features/basic-values/let01.out
index 3c1f5fa4..7d40e348 100644
--- a/testdata/language-features/basic-values/let01.out
+++ b/testdata/language-features/basic-values/let01.out
@@ -1,14 +1,21 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs let a = _rhs (fromInt 1) in fromInt 1 3value1 = _lhs value1 (_rhs let a = _lhs x (_rhs (fromInt 1)) in fromInt 1)
4 4
5value2 = _rhs let a = _rhs (fromInt 1) in fromInt 1 5value2 = _lhs value2 (_rhs let a = _lhs x (_rhs (fromInt 1)) in fromInt 1)
6 6
7value3 = _rhs let a = _rhs (fromInt 1); b = _rhs 'c' in fromInt 1 7value3
8 = _lhs
9 value3
10 (_rhs let a = _lhs x (_rhs (fromInt 1)); b = _lhs y (_rhs 'c') in fromInt 1)
8 11
9value4 = _rhs let a = _rhs (fromInt 1) in fromInt 1 12value4 = _lhs value4 (_rhs let a = _lhs x (_rhs (fromInt 1)) in fromInt 1)
10 13
11value5 = _rhs let a = _rhs (fromInt 1); b = _rhs (fromInt 2) in fromInt 1 14value5
15 = _lhs
16 value5
17 (_rhs
18 let a = _lhs x (_rhs (fromInt 1)); b = _lhs y (_rhs (fromInt 2)) in fromInt 1)
12------------ core code 19------------ core code
13value1 :: forall a . Num a => a 20value1 :: forall a . Num a => a
14value1 = \a b -> _rhs (fromInt a b 1) 21value1 = \a b -> _rhs (fromInt a b 1)
diff --git a/testdata/language-features/basic-values/let02.out b/testdata/language-features/basic-values/let02.out
index 4ca11163..f9de03b4 100644
--- a/testdata/language-features/basic-values/let02.out
+++ b/testdata/language-features/basic-values/let02.out
@@ -1,12 +1,20 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = _rhs 4 = _lhs
5 let 5 value
6 a = _rhs (); 6 (_rhs
7 b = _rhs let d = _rhs 'A' in (); 7 let
8 c = _rhs let e = _rhs (); f = _rhs (fromInt 1); g = _rhs "hello" in 'B' 8 a = _lhs x (_rhs ());
9 in () 9 b = _lhs y (_rhs let d = _lhs c (_rhs 'A') in ());
10 c
11 = _lhs
12 z
13 (_rhs
14 let
15 e = _lhs a (_rhs ()); f = _lhs b (_rhs (fromInt 1)); g = _lhs c (_rhs "hello")
16 in 'B')
17 in ())
10------------ core code 18------------ core code
11value :: () 19value :: ()
12value = _rhs () 20value = _rhs ()
diff --git a/testdata/language-features/basic-values/literal01.out b/testdata/language-features/basic-values/literal01.out
index 4619304a..4eca17da 100644
--- a/testdata/language-features/basic-values/literal01.out
+++ b/testdata/language-features/basic-values/literal01.out
@@ -1,20 +1,20 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3intValue1 = _rhs (fromInt 0) 3intValue1 = _lhs intValue1 (_rhs (fromInt 0))
4 4
5intValue2 = _rhs (fromInt 1) 5intValue2 = _lhs intValue2 (_rhs (fromInt 1))
6 6
7intValue3 = _rhs (fromInt 12345) 7intValue3 = _lhs intValue3 (_rhs (fromInt 12345))
8 8
9floatValue1 = _rhs 2.0 9floatValue1 = _lhs floatValue1 (_rhs 2.0)
10 10
11floatValue2 = _rhs 123400.0 11floatValue2 = _lhs floatValue2 (_rhs 123400.0)
12 12
13charValue = _rhs 'A' 13charValue = _lhs charValue (_rhs 'A')
14 14
15stringValue1 = _rhs "Hello World" 15stringValue1 = _lhs stringValue1 (_rhs "Hello World")
16 16
17stringValue2 = _rhs "\nHello World\tagain!\r\n" 17stringValue2 = _lhs stringValue2 (_rhs "\nHello World\tagain!\r\n")
18------------ core code 18------------ core code
19charValue :: Char 19charValue :: Char
20charValue = _rhs 'A' 20charValue = _rhs 'A'
diff --git a/testdata/language-features/basic-values/operator01.out b/testdata/language-features/basic-values/operator01.out
index f239d6b3..3b6dd323 100644
--- a/testdata/language-features/basic-values/operator01.out
+++ b/testdata/language-features/basic-values/operator01.out
@@ -1,12 +1,12 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3(#$#) = \(_ :: _) (_ :: _) -> _rhs () 3(#$#) = _lhs (#$#) \(_ :: _) (_ :: _) -> _rhs ()
4 4
5($$#) = \(_ :: _) (_ :: _) -> _rhs () 5($$#) = _lhs ($$#) \(_ :: _) (_ :: _) -> _rhs ()
6 6
7($$$#) = \(_ :: _) (_ :: _) -> _rhs () 7($$$#) = _lhs ($$$#) \(_ :: _) (_ :: _) -> _rhs ()
8 8
9($$$) = \(_ :: _) (_ :: _) -> _rhs () 9($$$) = _lhs ($$$) \(_ :: _) (_ :: _) -> _rhs ()
10------------ core code 10------------ core code
11#$# :: forall a b . a -> b -> () 11#$# :: forall a b . a -> b -> ()
12#$# = \_ _ _ _ -> _rhs () 12#$# = \_ _ _ _ -> _rhs ()
diff --git a/testdata/language-features/basic-values/operator05.out b/testdata/language-features/basic-values/operator05.out
index 6a12b629..c8f2cbc8 100644
--- a/testdata/language-features/basic-values/operator05.out
+++ b/testdata/language-features/basic-values/operator05.out
@@ -1,6 +1,7 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs let a = \(_ :: _) (_ :: _) -> _rhs () in a () () 3value1
4 = _lhs value1 (_rhs let a = _lhs (+=+) \(_ :: _) (_ :: _) -> _rhs () in a () ())
4------------ core code 5------------ core code
5value1 :: () 6value1 :: ()
6value1 = _rhs () 7value1 = _rhs ()
diff --git a/testdata/language-features/basic-values/operator06.out b/testdata/language-features/basic-values/operator06.out
index 31724acd..84f75660 100644
--- a/testdata/language-features/basic-values/operator06.out
+++ b/testdata/language-features/basic-values/operator06.out
@@ -1,6 +1,7 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs let a = \(_ :: _) (_ :: _) -> _rhs () in a () () 3value1
4 = _lhs value1 (_rhs let a = _lhs (+=+) \(_ :: _) (_ :: _) -> _rhs () in a () ())
4------------ core code 5------------ core code
5value1 :: () 6value1 :: ()
6value1 = _rhs () 7value1 = _rhs ()
diff --git a/testdata/language-features/basic-values/shadowing01.out b/testdata/language-features/basic-values/shadowing01.out
index 5233865a..b1288270 100644
--- a/testdata/language-features/basic-values/shadowing01.out
+++ b/testdata/language-features/basic-values/shadowing01.out
@@ -1,18 +1,28 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = _rhs 4 = _lhs
5 let 5 value
6 a = _rhs 'A'; 6 (_rhs
7 b = _rhs "hello"; 7 let
8 c 8 a = _lhs x (_rhs 'A');
9 = _rhs 9 b = _lhs y (_rhs "hello");
10 let 10 c
11 d = _rhs (fromInt 1); 11 = _lhs
12 e = _rhs 2.12; 12 c
13 f = _rhs let g = _rhs (); h = _rhs 'C'; i = _rhs 3.12 in "world" 13 (_rhs
14 in () 14 let
15 in '7' 15 d = _lhs x (_rhs (fromInt 1));
16 e = _lhs y (_rhs 2.12);
17 f
18 = _lhs
19 c
20 (_rhs
21 let
22 g = _lhs x (_rhs ()); h = _lhs y (_rhs 'C'); i = _lhs c (_rhs 3.12)
23 in "world")
24 in ())
25 in '7')
16------------ core code 26------------ core code
17value :: Char 27value :: Char
18value = _rhs '7' 28value = _rhs '7'
diff --git a/testdata/language-features/basic-values/shadowing02.out b/testdata/language-features/basic-values/shadowing02.out
index 19a72446..7edd4cef 100644
--- a/testdata/language-features/basic-values/shadowing02.out
+++ b/testdata/language-features/basic-values/shadowing02.out
@@ -1,23 +1,36 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3c = _rhs (fromInt 7) 3c = _lhs c (_rhs (fromInt 7))
4 4
5world = _rhs "world" 5world = _lhs world (_rhs "world")
6 6
7value2 7value2
8 = _rhs 8 = _lhs
9 let 9 value2
10 a = _rhs 'A'; 10 (_rhs
11 b = _rhs "hello"; 11 let
12 c = _rhs (fromInt 123); 12 a = _lhs x (_rhs 'A');
13 d 13 b = _lhs y (_rhs "hello");
14 = _rhs 14 c = _lhs w (_rhs (fromInt 123));
15 let 15 d
16 e = _rhs (fromInt 1); 16 = _lhs
17 f = _rhs 2.12; 17 c
18 g = _rhs let h = _rhs (); i = _rhs 'C'; j = _rhs 3.12; k = _rhs c in world 18 (_rhs
19 in () 19 let
20 in '7' 20 e = _lhs x (_rhs (fromInt 1));
21 f = _lhs y (_rhs 2.12);
22 g
23 = _lhs
24 c
25 (_rhs
26 let
27 h = _lhs x (_rhs ());
28 i = _lhs y (_rhs 'C');
29 j = _lhs c (_rhs 3.12);
30 k = _lhs d (_rhs c)
31 in world)
32 in ())
33 in '7')
21------------ core code 34------------ core code
22c :: forall a . Num a => a 35c :: forall a . Num a => a
23c = \a b -> _rhs (fromInt a b 7) 36c = \a b -> _rhs (fromInt a b 7)
diff --git a/testdata/language-features/basic-values/shadowing03.out b/testdata/language-features/basic-values/shadowing03.out
index 0ee5fa0e..f796c908 100644
--- a/testdata/language-features/basic-values/shadowing03.out
+++ b/testdata/language-features/basic-values/shadowing03.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3x = \(_ :: _) (_ :: _) -> _rhs () 3x = _lhs x \(_ :: _) (_ :: _) -> _rhs ()
4------------ core code 4------------ core code
5x :: forall a b . a -> b -> () 5x :: forall a b . a -> b -> ()
6x = \_ _ _ _ -> _rhs () 6x = \_ _ _ _ -> _rhs ()
diff --git a/testdata/language-features/basic-values/shadowing04.out b/testdata/language-features/basic-values/shadowing04.out
index c55d2dfe..59d10c41 100644
--- a/testdata/language-features/basic-values/shadowing04.out
+++ b/testdata/language-features/basic-values/shadowing04.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3__ = \(_ :: _) (_ :: _) -> _rhs () 3__ = _lhs __ \(_ :: _) (_ :: _) -> _rhs ()
4------------ core code 4------------ core code
5__ :: forall a b . a -> b -> () 5__ :: forall a b . a -> b -> ()
6__ = \_ _ _ _ -> _rhs () 6__ = \_ _ _ _ -> _rhs ()
diff --git a/testdata/language-features/basic-values/tuple01.out b/testdata/language-features/basic-values/tuple01.out
index fbe79611..b3a8a352 100644
--- a/testdata/language-features/basic-values/tuple01.out
+++ b/testdata/language-features/basic-values/tuple01.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3unit = _rhs () 3unit = _lhs unit (_rhs ())
4------------ core code 4------------ core code
5unit :: () 5unit :: ()
6unit = _rhs () 6unit = _rhs ()
diff --git a/testdata/language-features/basic-values/tuple02.out b/testdata/language-features/basic-values/tuple02.out
index 3b6e4410..d221d37a 100644
--- a/testdata/language-features/basic-values/tuple02.out
+++ b/testdata/language-features/basic-values/tuple02.out
@@ -1,10 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3tuple1 = _rhs (fromInt 1, 2.3, 'D', "string", ()) 3tuple1 = _lhs tuple1 (_rhs (fromInt 1, 2.3, 'D', "string", ()))
4 4
5tuple2 = _rhs ((), ()) 5tuple2 = _lhs tuple2 (_rhs ((), ()))
6 6
7tuple3 = _rhs (("name", 'c'), ()) 7tuple3 = _lhs tuple3 (_rhs (("name", 'c'), ()))
8------------ core code 8------------ core code
9tuple1 :: forall a . Num a => (a, Float, Char, String, ()) 9tuple1 :: forall a . Num a => (a, Float, Char, String, ())
10tuple1 = \a b -> _rhs (fromInt a b 1, 2.3, 'D', "string", ()) 10tuple1 = \a b -> _rhs (fromInt a b 1, 2.3, 'D', "string", ())
diff --git a/testdata/language-features/basic-values/typesig01.out b/testdata/language-features/basic-values/typesig01.out
index c36d5cf2..964ba8a7 100644
--- a/testdata/language-features/basic-values/typesig01.out
+++ b/testdata/language-features/basic-values/typesig01.out
@@ -1,10 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 :: Char 3value1 :: Char
4value1 = _rhs 'a' 4value1 = _lhs value1 (_rhs 'a')
5 5
6value2 :: Char 6value2 :: Char
7value2 = _rhs 'a' 7value2 = _lhs value2 (_rhs 'a')
8------------ core code 8------------ core code
9value1 :: Char 9value1 :: Char
10value1 = _rhs 'a' 10value1 = _rhs 'a'
diff --git a/testdata/language-features/basic-values/typesig02.out b/testdata/language-features/basic-values/typesig02.out
index 415f46d9..b9c50d6b 100644
--- a/testdata/language-features/basic-values/typesig02.out
+++ b/testdata/language-features/basic-values/typesig02.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs ('a' :: Char) 3value1 = _lhs value1 (_rhs ('a' :: Char))
4 4
5value2 = _rhs ('a' :: Char) 5value2 = _lhs value2 (_rhs ('a' :: Char))
6------------ core code 6------------ core code
7value1 :: Char 7value1 :: Char
8value1 = _rhs 'a' 8value1 = _rhs 'a'
diff --git a/testdata/language-features/basic-values/typesig03.out b/testdata/language-features/basic-values/typesig03.out
index 738ddca8..a26d2bef 100644
--- a/testdata/language-features/basic-values/typesig03.out
+++ b/testdata/language-features/basic-values/typesig03.out
@@ -1,10 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun1 :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> () 3fun1 :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> ()
4fun1 = \(_ :: _) (_ :: _) (_ :: _) -> _rhs () 4fun1 = _lhs fun1 \(_ :: _) (_ :: _) (_ :: _) -> _rhs ()
5 5
6fun2 :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> () 6fun2 :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> ()
7fun2 = \(_ :: _) (_ :: _) (_ :: _) -> _rhs () 7fun2 = _lhs fun2 \(_ :: _) (_ :: _) (_ :: _) -> _rhs ()
8------------ core code 8------------ core code
9fun1 :: forall a b c . a -> b -> c -> () 9fun1 :: forall a b c . a -> b -> c -> ()
10fun1 = \_ _ _ _ _ _ -> _rhs () 10fun1 = \_ _ _ _ _ _ -> _rhs ()
diff --git a/testdata/language-features/basic-values/typesig04.out b/testdata/language-features/basic-values/typesig04.out
index 0df6fc91..4e55cfac 100644
--- a/testdata/language-features/basic-values/typesig04.out
+++ b/testdata/language-features/basic-values/typesig04.out
@@ -1,10 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun1 :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> () 3fun1 :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> ()
4fun1 = \(_ :: _) (_ :: _) -> _rhs () 4fun1 = _lhs fun1 \(_ :: _) (_ :: _) -> _rhs ()
5 5
6fun2 :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> () 6fun2 :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> ()
7fun2 = \(_ :: _) (_ :: _) -> _rhs () 7fun2 = _lhs fun2 \(_ :: _) (_ :: _) -> _rhs ()
8------------ core code 8------------ core code
9fun1 :: forall a b c . a -> (b -> c) -> () 9fun1 :: forall a b c . a -> (b -> c) -> ()
10fun1 = \_ _ _ _ _ -> _rhs () 10fun1 = \_ _ _ _ _ -> _rhs ()
diff --git a/testdata/language-features/basic-values/typesig05.out b/testdata/language-features/basic-values/typesig05.out
index b5fdd7ec..7ca5e11a 100644
--- a/testdata/language-features/basic-values/typesig05.out
+++ b/testdata/language-features/basic-values/typesig05.out
@@ -1,18 +1,18 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3funL = \(a :: _) (_ :: _) -> _rhs a 3funL = _lhs funL \(a :: _) (_ :: _) -> _rhs a
4 4
5funR = \(_ :: _) (a :: _) -> _rhs a 5funR = _lhs funR \(_ :: _) (a :: _) -> _rhs a
6 6
7value1 = _rhs (funL 'a' "b" :: Char) 7value1 = _lhs value1 (_rhs (funL 'a' "b" :: Char))
8 8
9value2 = _rhs (funR 'a' "b" :: String) 9value2 = _lhs value2 (_rhs (funR 'a' "b" :: String))
10 10
11value3 :: Char 11value3 :: Char
12value3 = _rhs (funL 'a' "b") 12value3 = _lhs value3 (_rhs (funL 'a' "b"))
13 13
14value4 :: String 14value4 :: String
15value4 = _rhs (funR 'a' "b") 15value4 = _lhs value4 (_rhs (funR 'a' "b"))
16------------ core code 16------------ core code
17funL :: forall a b . a -> b -> a 17funL :: forall a b . a -> b -> a
18funL = \_ _ a _ -> _rhs a 18funL = \_ _ a _ -> _rhs a
diff --git a/testdata/language-features/basic-values/typesig06.out b/testdata/language-features/basic-values/typesig06.out
index 5b74205a..6cc32fea 100644
--- a/testdata/language-features/basic-values/typesig06.out
+++ b/testdata/language-features/basic-values/typesig06.out
@@ -1,12 +1,12 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3funL = \(a :: _) (_ :: _) -> _rhs a 3funL = _lhs funL \(a :: _) (_ :: _) -> _rhs a
4 4
5(<@) = \(a :: _) (_ :: _) -> _rhs a 5(<@) = _lhs (<@) \(a :: _) (_ :: _) -> _rhs a
6 6
7value1 = _rhs ("hi" <@ 1.2 :: String) 7value1 = _lhs value1 (_rhs ("hi" <@ 1.2 :: String))
8 8
9value2 = _rhs ("hi" `funL` 1.2 :: String) 9value2 = _lhs value2 (_rhs ("hi" `funL` 1.2 :: String))
10------------ core code 10------------ core code
11<@ :: forall a b . a -> b -> a 11<@ :: forall a b . a -> b -> a
12<@ = \_ _ a _ -> _rhs a 12<@ = \_ _ a _ -> _rhs a
diff --git a/testdata/language-features/basic-values/typesig07.out b/testdata/language-features/basic-values/typesig07.out
index a374ab2a..c8f1b04a 100644
--- a/testdata/language-features/basic-values/typesig07.out
+++ b/testdata/language-features/basic-values/typesig07.out
@@ -1,22 +1,22 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 :: Int 3value1 :: Int
4value1 = _rhs (fromInt 1) 4value1 = _lhs value1 (_rhs (fromInt 1))
5 5
6value2 :: Int 6value2 :: Int
7value2 = _rhs (fromInt 2) 7value2 = _lhs value2 (_rhs (fromInt 2))
8 8
9value3 :: Int 9value3 :: Int
10value3 = _rhs (fromInt 3) 10value3 = _lhs value3 (_rhs (fromInt 3))
11 11
12value4 :: () -> () -> () 12value4 :: () -> () -> ()
13value4 = \(_ :: _) (_ :: _) -> _rhs () 13value4 = _lhs value4 \(_ :: _) (_ :: _) -> _rhs ()
14 14
15(@@@) :: () -> () -> () 15(@@@) :: () -> () -> ()
16(@@@) = \(_ :: _) (_ :: _) -> _rhs () 16(@@@) = _lhs (@@@) \(_ :: _) (_ :: _) -> _rhs ()
17 17
18value6 :: () -> () -> () 18value6 :: () -> () -> ()
19value6 = \(_ :: _) (_ :: _) -> _rhs () 19value6 = _lhs value6 \(_ :: _) (_ :: _) -> _rhs ()
20------------ core code 20------------ core code
21@@@ :: () -> () -> () 21@@@ :: () -> () -> ()
22@@@ = \_ _ -> _rhs () 22@@@ = \_ _ -> _rhs ()
diff --git a/testdata/language-features/basic-values/typesyn01.out b/testdata/language-features/basic-values/typesyn01.out
index 442aeac3..04b3421a 100644
--- a/testdata/language-features/basic-values/typesyn01.out
+++ b/testdata/language-features/basic-values/typesyn01.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3'MyUnit = _rhs ' () 3'MyUnit = _lhs 'MyUnit (_rhs ' ())
4------------ core code 4------------ core code
5'MyUnit :: Type 5'MyUnit :: Type
6'MyUnit = _rhs ' () 6'MyUnit = _rhs ' ()
diff --git a/testdata/language-features/basic-values/typesyn02.out b/testdata/language-features/basic-values/typesyn02.out
index fa019006..efca73f5 100644
--- a/testdata/language-features/basic-values/typesyn02.out
+++ b/testdata/language-features/basic-values/typesyn02.out
@@ -1,9 +1,9 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3'MyUnit = _rhs ' () 3'MyUnit = _lhs 'MyUnit (_rhs ' ())
4 4
5fun :: forall (a :: _) . a -> MyUnit -> MyUnit 5fun :: forall (a :: _) . a -> MyUnit -> MyUnit
6fun = \(_ :: _) (a :: _) -> hlistNilCase _ (_rhs ()) a 6fun = _lhs fun \(_ :: _) (a :: _) -> hlistNilCase _ (_rhs ()) a
7------------ core code 7------------ core code
8'MyUnit :: Type 8'MyUnit :: Type
9'MyUnit = _rhs ' () 9'MyUnit = _rhs ' ()
diff --git a/testdata/language-features/basic-values/where01.out b/testdata/language-features/basic-values/where01.out
index 843b762e..3b56a3c4 100644
--- a/testdata/language-features/basic-values/where01.out
+++ b/testdata/language-features/basic-values/where01.out
@@ -1,26 +1,28 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs let a = _rhs () in () 3value1 = _lhs value1 (_rhs let a = _lhs x (_rhs ()) in ())
4 4
5value2 = _rhs let a = _rhs () in a 5value2 = _lhs value2 (_rhs let a = _lhs x (_rhs ()) in a)
6 6
7value3 = _rhs let a = _rhs (); b = _rhs () in a 7value3 = _lhs value3 (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs ()) in a)
8 8
9value4 = _rhs let a = _rhs (); b = _rhs () in b 9value4 = _lhs value4 (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs ()) in b)
10 10
11value5 = _rhs let a = _rhs (); b = _rhs () in a 11value5 = _lhs value5 (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs ()) in a)
12 12
13value6 = _rhs () 13value6 = _lhs value6 (_rhs ())
14 14
15value7 = _rhs () 15value7 = _lhs value7 (_rhs ())
16 16
17value8 = _rhs () 17value8 = _lhs value8 (_rhs ())
18 18
19value9 = _rhs let a = _rhs (); b = _rhs () in a 19value9 = _lhs value9 (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs ()) in a)
20 20
21value10 = _rhs let a = _rhs (); b = _rhs () in a 21value10
22 = _lhs value10 (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs ()) in a)
22 23
23value11 = _rhs let a = _rhs (); b = _rhs () in a 24value11
25 = _lhs value11 (_rhs let a = _lhs x (_rhs ()); b = _lhs y (_rhs ()) in a)
24------------ core code 26------------ core code
25value1 :: () 27value1 :: ()
26value1 = _rhs () 28value1 = _rhs ()
diff --git a/testdata/language-features/basic-values/where04.out b/testdata/language-features/basic-values/where04.out
index 9eb5f765..3095e9d3 100644
--- a/testdata/language-features/basic-values/where04.out
+++ b/testdata/language-features/basic-values/where04.out
@@ -1,10 +1,13 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs let a = _rhs let b = _rhs () in b in a 3value1
4 = _lhs value1 (_rhs let a = _lhs x (_rhs let b = _lhs y (_rhs ()) in b) in a)
4 5
5value2 = _rhs let a = _rhs let b = _rhs () in b in a 6value2
7 = _lhs value2 (_rhs let a = _lhs x (_rhs let b = _lhs y (_rhs ()) in b) in a)
6 8
7value3 = _rhs let a = _rhs let b = _rhs () in b in a 9value3
10 = _lhs value3 (_rhs let a = _lhs x (_rhs let b = _lhs y (_rhs ()) in b) in a)
8------------ core code 11------------ core code
9value1 :: () 12value1 :: ()
10value1 = _rhs () 13value1 = _rhs ()
diff --git a/testdata/language-features/basic-values/where05.out b/testdata/language-features/basic-values/where05.out
index 55c7a06d..0dc19f61 100644
--- a/testdata/language-features/basic-values/where05.out
+++ b/testdata/language-features/basic-values/where05.out
@@ -1,40 +1,48 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 3value1
4 = _rhs 4 = _lhs
5 ((\(a :: _) -> case'Bool 5 value1
6 (\(_ :: _) -> _) 6 (_rhs
7 () 7 ((\(a :: _) -> case'Bool
8 (let b = _rhs () in b) 8 (\(_ :: _) -> _)
9 (fromInt 1 == a)) 9 ()
10 (fromInt 1)) 10 (let b = _lhs x (_rhs ()) in b)
11 (fromInt 1 == a))
12 (fromInt 1)))
11 13
12value2 14value2
13 = _rhs 15 = _lhs
14 ((\(a :: _) -> case'Bool 16 value2
15 (\(_ :: _) -> _) 17 (_rhs
16 () 18 ((\(a :: _) -> case'Bool
17 (let b = _rhs () in b) 19 (\(_ :: _) -> _)
18 (fromInt 1 == a)) 20 ()
19 (fromInt 1)) 21 (let b = _lhs x (_rhs ()) in b)
22 (fromInt 1 == a))
23 (fromInt 1)))
20 24
21value3 25value3
22 = _rhs 26 = _lhs
23 ((\(a :: _) -> case'Bool 27 value3
24 (\(_ :: _) -> _) 28 (_rhs
25 () 29 ((\(a :: _) -> case'Bool
26 (let b = _rhs () in b) 30 (\(_ :: _) -> _)
27 (fromInt 1 == a)) 31 ()
28 (fromInt 1)) 32 (let b = _lhs x (_rhs ()) in b)
33 (fromInt 1 == a))
34 (fromInt 1)))
29 35
30value4 36value4
31 = _rhs 37 = _lhs
32 let a = _rhs () in (\(b :: _) -> case'Bool 38 value4
33 (\(_ :: _) -> _) 39 (_rhs
34 () 40 let a = _lhs x (_rhs ()) in (\(b :: _) -> case'Bool
35 a 41 (\(_ :: _) -> _)
36 (fromInt 1 == b)) 42 ()
37 (fromInt 1) 43 a
44 (fromInt 1 == b))
45 (fromInt 1))
38------------ core code 46------------ core code
39value1 :: forall a . (Eq a, Num a) => () 47value1 :: forall a . (Eq a, Num a) => ()
40value1 48value1
diff --git a/testdata/language-features/basic-values/wildcard01.out b/testdata/language-features/basic-values/wildcard01.out
index 9fa1c034..b462aac7 100644
--- a/testdata/language-features/basic-values/wildcard01.out
+++ b/testdata/language-features/basic-values/wildcard01.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3funUnit = \(_ :: _) -> _rhs () 3funUnit = _lhs funUnit \(_ :: _) -> _rhs ()
4------------ core code 4------------ core code
5funUnit :: forall a . a -> () 5funUnit :: forall a . a -> ()
6funUnit = \_ _ -> _rhs () 6funUnit = \_ _ -> _rhs ()
diff --git a/testdata/language-features/guard/guard01.out b/testdata/language-features/guard/guard01.out
index 3e232549..e32f6dfc 100644
--- a/testdata/language-features/guard/guard01.out
+++ b/testdata/language-features/guard/guard01.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs ()) True 3value = _lhs value (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs ()) True)
4------------ core code 4------------ core code
5value :: () 5value :: ()
6value = _rhs () 6value = _rhs ()
diff --git a/testdata/language-features/guard/guard03.out b/testdata/language-features/guard/guard03.out
index 3e44257a..794931e9 100644
--- a/testdata/language-features/guard/guard03.out
+++ b/testdata/language-features/guard/guard03.out
@@ -1,11 +1,13 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = case'Bool 4 = _lhs
5 (\(_ :: _) -> _) 5 value
6 (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False) 6 (case'Bool
7 (_rhs "True") 7 (\(_ :: _) -> _)
8 True 8 (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False)
9 (_rhs "True")
10 True)
9------------ core code 11------------ core code
10value :: String 12value :: String
11value = _rhs "True" 13value = _rhs "True"
diff --git a/testdata/language-features/guard/guard04.out b/testdata/language-features/guard/guard04.out
index 3becb569..6c87ff14 100644
--- a/testdata/language-features/guard/guard04.out
+++ b/testdata/language-features/guard/guard04.out
@@ -1,6 +1,7 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = case'Bool (\(_ :: _) -> _) (_rhs "False") (_rhs "True") True 3value
4 = _lhs value (case'Bool (\(_ :: _) -> _) (_rhs "False") (_rhs "True") True)
4------------ core code 5------------ core code
5value :: String 6value :: String
6value = _rhs "True" 7value = _rhs "True"
diff --git a/testdata/language-features/guard/guard06.out b/testdata/language-features/guard/guard06.out
index aa385877..778d4a8d 100644
--- a/testdata/language-features/guard/guard06.out
+++ b/testdata/language-features/guard/guard06.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs () 3value = _lhs value (_rhs ())
4------------ core code 4------------ core code
5value :: () 5value :: ()
6value = _rhs () 6value = _rhs ()
diff --git a/testdata/language-features/guard/guard07.out b/testdata/language-features/guard/guard07.out
index 81726eed..06c8a716 100644
--- a/testdata/language-features/guard/guard07.out
+++ b/testdata/language-features/guard/guard07.out
@@ -1,11 +1,13 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = case'Bool 4 = _lhs
5 (\(_ :: _) -> _) 5 value
6 (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False) 6 (case'Bool
7 (_rhs "True") 7 (\(_ :: _) -> _)
8 True 8 (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False)
9 (_rhs "True")
10 True)
9------------ core code 11------------ core code
10value :: String 12value :: String
11value = _rhs "True" 13value = _rhs "True"
diff --git a/testdata/language-features/guard/guard08.out b/testdata/language-features/guard/guard08.out
index 5d6e6bdc..069c68c4 100644
--- a/testdata/language-features/guard/guard08.out
+++ b/testdata/language-features/guard/guard08.out
@@ -1,11 +1,13 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = case'Bool 4 = _lhs
5 (\(_ :: _) -> _) 5 value
6 (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False) 6 (case'Bool
7 (_rhs "True") 7 (\(_ :: _) -> _)
8 True 8 (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False)
9 (_rhs "True")
10 True)
9------------ core code 11------------ core code
10value :: String 12value :: String
11value = _rhs "True" 13value = _rhs "True"
diff --git a/testdata/language-features/guard/guard09.out b/testdata/language-features/guard/guard09.out
index 4b580469..b7c3f36e 100644
--- a/testdata/language-features/guard/guard09.out
+++ b/testdata/language-features/guard/guard09.out
@@ -1,11 +1,13 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = case'Bool 4 = _lhs
5 (\(_ :: _) -> _) 5 value
6 (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False) 6 (case'Bool
7 (_rhs "True") 7 (\(_ :: _) -> _)
8 True 8 (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs "False") False)
9 (_rhs "True")
10 True)
9------------ core code 11------------ core code
10value :: String 12value :: String
11value = _rhs "True" 13value = _rhs "True"
diff --git a/testdata/language-features/guard/guard11.out b/testdata/language-features/guard/guard11.out
index a08332c1..ea80eef0 100644
--- a/testdata/language-features/guard/guard11.out
+++ b/testdata/language-features/guard/guard11.out
@@ -1,6 +1,9 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs "False") (_rhs "True") a 3fun
4 = _lhs
5 fun
6 \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs "False") (_rhs "True") a
4------------ core code 7------------ core code
5fun :: Bool -> String 8fun :: Bool -> String
6fun = \a -> case'Bool (\_ -> 'String) (_rhs "False") (_rhs "True") a 9fun = \a -> case'Bool (\_ -> 'String) (_rhs "False") (_rhs "True") a
diff --git a/testdata/language-features/guard/guard13.out b/testdata/language-features/guard/guard13.out
index 5498c290..6f9005bc 100644
--- a/testdata/language-features/guard/guard13.out
+++ b/testdata/language-features/guard/guard13.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) a 3fun = _lhs fun \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) a
4------------ core code 4------------ core code
5fun :: Bool -> () 5fun :: Bool -> ()
6fun = \a -> case'Bool (\_ -> ' ()) (_rhs ()) (_rhs ()) a 6fun = \a -> case'Bool (\_ -> ' ()) (_rhs ()) (_rhs ()) a
diff --git a/testdata/language-features/guard/guard14.out b/testdata/language-features/guard/guard14.out
index 6e6f225c..1a0acd2a 100644
--- a/testdata/language-features/guard/guard14.out
+++ b/testdata/language-features/guard/guard14.out
@@ -1,6 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs let a = case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) True in () 3value
4 = _lhs
5 value
6 (_rhs
7 let a = _lhs x (case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) True) in ())
4------------ core code 8------------ core code
5value :: () 9value :: ()
6value = _rhs () 10value = _rhs ()
diff --git a/testdata/language-features/guard/guard15.out b/testdata/language-features/guard/guard15.out
index 3d01ff73..9314863f 100644
--- a/testdata/language-features/guard/guard15.out
+++ b/testdata/language-features/guard/guard15.out
@@ -1,6 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs let a = case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) True in () 3value
4 = _lhs
5 value
6 (_rhs
7 let a = _lhs x (case'Bool (\(_ :: _) -> _) (_rhs ()) (_rhs ()) True) in ())
4------------ core code 8------------ core code
5value :: () 9value :: ()
6value = _rhs () 10value = _rhs ()
diff --git a/testdata/language-features/guard/guard16.out b/testdata/language-features/guard/guard16.out
index 1a574cf7..a9867165 100644
--- a/testdata/language-features/guard/guard16.out
+++ b/testdata/language-features/guard/guard16.out
@@ -1,13 +1,15 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = _rhs 4 = _lhs
5 ((\(a :: _) -> case'Bool 5 value
6 (\(_ :: _) -> _) 6 (_rhs
7 () 7 ((\(a :: _) -> case'Bool
8 (case'Bool (\(_ :: _) -> _) () () True) 8 (\(_ :: _) -> _)
9 (fromInt 1 == a)) 9 ()
10 (fromInt 1)) 10 (case'Bool (\(_ :: _) -> _) () () True)
11 (fromInt 1 == a))
12 (fromInt 1)))
11------------ core code 13------------ core code
12value :: forall a . (Eq a, Num a) => () 14value :: forall a . (Eq a, Num a) => ()
13value 15value
diff --git a/testdata/language-features/module/Hello01.out b/testdata/language-features/module/Hello01.out
index 0c553aa4..30490325 100644
--- a/testdata/language-features/module/Hello01.out
+++ b/testdata/language-features/module/Hello01.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3hello = _rhs "hello" 3hello = _lhs hello (_rhs "hello")
4 4
5world = _rhs "world" 5world = _lhs world (_rhs "world")
6------------ core code 6------------ core code
7hello :: String 7hello :: String
8hello = _rhs "hello" 8hello = _rhs "hello"
diff --git a/testdata/language-features/module/Hello02.out b/testdata/language-features/module/Hello02.out
index 86d52127..4a12836e 100644
--- a/testdata/language-features/module/Hello02.out
+++ b/testdata/language-features/module/Hello02.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3hello = _rhs "hello" 3hello = _lhs hello (_rhs "hello")
4 4
5world = _rhs "world" 5world = _lhs world (_rhs "world")
6------------ core code 6------------ core code
7hello :: String 7hello :: String
8hello = _rhs "hello" 8hello = _rhs "hello"
diff --git a/testdata/language-features/module/Hello03.out b/testdata/language-features/module/Hello03.out
index 66b7e036..87981272 100644
--- a/testdata/language-features/module/Hello03.out
+++ b/testdata/language-features/module/Hello03.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3greeting = _rhs 'G' 3greeting = _lhs greeting (_rhs 'G')
4 4
5value = _rhs 12.2 5value = _lhs value (_rhs 12.2)
6------------ core code 6------------ core code
7greeting :: Char 7greeting :: Char
8greeting = _rhs 'G' 8greeting = _rhs 'G'
diff --git a/testdata/language-features/module/ModulePackage/SubModule01.out b/testdata/language-features/module/ModulePackage/SubModule01.out
index 71c67233..f4408bde 100644
--- a/testdata/language-features/module/ModulePackage/SubModule01.out
+++ b/testdata/language-features/module/ModulePackage/SubModule01.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3hello = _rhs "Hello" 3hello = _lhs hello (_rhs "Hello")
4------------ core code 4------------ core code
5hello :: String 5hello :: String
6hello = _rhs "Hello" 6hello = _rhs "Hello"
diff --git a/testdata/language-features/module/Moduledef06.out b/testdata/language-features/module/Moduledef06.out
index 5036cb7f..01116115 100644
--- a/testdata/language-features/module/Moduledef06.out
+++ b/testdata/language-features/module/Moduledef06.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3hello = _rhs "hello" 3hello = _lhs hello (_rhs "hello")
4------------ core code 4------------ core code
5hello :: String 5hello :: String
6hello = _rhs "hello" 6hello = _rhs "hello"
diff --git a/testdata/language-features/module/Moduledef07.out b/testdata/language-features/module/Moduledef07.out
index b75130a3..85bccf88 100644
--- a/testdata/language-features/module/Moduledef07.out
+++ b/testdata/language-features/module/Moduledef07.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3hello = _rhs "hello" 3hello = _lhs hello (_rhs "hello")
4------------ core code 4------------ core code
5hello :: String 5hello :: String
6hello = _rhs "hello" 6hello = _rhs "hello"
diff --git a/testdata/language-features/module/Moduledef08.out b/testdata/language-features/module/Moduledef08.out
index 4b1c55aa..2c303d27 100644
--- a/testdata/language-features/module/Moduledef08.out
+++ b/testdata/language-features/module/Moduledef08.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3hello = _rhs "hello" 3hello = _lhs hello (_rhs "hello")
4------------ core code 4------------ core code
5------------ tooltips 5------------ tooltips
6testdata/language-features/module/Moduledef08.lc 5:1-5:6 6testdata/language-features/module/Moduledef08.lc 5:1-5:6
diff --git a/testdata/language-features/module/Moduledef09.out b/testdata/language-features/module/Moduledef09.out
index 0aea411c..077f20e4 100644
--- a/testdata/language-features/module/Moduledef09.out
+++ b/testdata/language-features/module/Moduledef09.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3hello = _rhs "hello" 3hello = _lhs hello (_rhs "hello")
4 4
5world = _rhs "world" 5world = _lhs world (_rhs "world")
6------------ core code 6------------ core code
7hello :: String 7hello :: String
8hello = _rhs "hello" 8hello = _rhs "hello"
diff --git a/testdata/language-features/module/Moduledef10.out b/testdata/language-features/module/Moduledef10.out
index ec9a574e..b05b9d4c 100644
--- a/testdata/language-features/module/Moduledef10.out
+++ b/testdata/language-features/module/Moduledef10.out
@@ -1,10 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3hello = _rhs "hello" 3hello = _lhs hello (_rhs "hello")
4 4
5world = _rhs "world" 5world = _lhs world (_rhs "world")
6 6
7value = _rhs () 7value = _lhs value (_rhs ())
8------------ core code 8------------ core code
9hello :: String 9hello :: String
10hello = _rhs "hello" 10hello = _rhs "hello"
diff --git a/testdata/language-features/module/Moduledef13.out b/testdata/language-features/module/Moduledef13.out
index f1cf03de..167125c8 100644
--- a/testdata/language-features/module/Moduledef13.out
+++ b/testdata/language-features/module/Moduledef13.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3hello = _rhs "hello" 3hello = _lhs hello (_rhs "hello")
4------------ core code 4------------ core code
5hello :: String 5hello :: String
6hello = _rhs "hello" 6hello = _rhs "hello"
diff --git a/testdata/language-features/module/TypeSyn01Mod.out b/testdata/language-features/module/TypeSyn01Mod.out
index 109f5ee9..54a83cfe 100644
--- a/testdata/language-features/module/TypeSyn01Mod.out
+++ b/testdata/language-features/module/TypeSyn01Mod.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3'MyUnit = _rhs ' () 3'MyUnit = _lhs 'MyUnit (_rhs ' ())
4------------ core code 4------------ core code
5'MyUnit :: Type 5'MyUnit :: Type
6'MyUnit = _rhs ' () 6'MyUnit = _rhs ' ()
diff --git a/testdata/language-features/module/import01.out b/testdata/language-features/module/import01.out
index 6ccf9702..8705a150 100644
--- a/testdata/language-features/module/import01.out
+++ b/testdata/language-features/module/import01.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3x = _rhs hello 3x = _lhs x (_rhs hello)
4------------ core code 4------------ core code
5x :: String 5x :: String
6x = _rhs "hello" 6x = _rhs "hello"
diff --git a/testdata/language-features/module/import05.out b/testdata/language-features/module/import05.out
index 3d820de9..90eff292 100644
--- a/testdata/language-features/module/import05.out
+++ b/testdata/language-features/module/import05.out
@@ -1,7 +1,7 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3x :: String 3x :: String
4x = _rhs hello 4x = _lhs x (_rhs hello)
5------------ core code 5------------ core code
6x :: String 6x :: String
7x = _rhs "hello" 7x = _rhs "hello"
diff --git a/testdata/language-features/module/import06.out b/testdata/language-features/module/import06.out
index ae0e10e5..af5885e2 100644
--- a/testdata/language-features/module/import06.out
+++ b/testdata/language-features/module/import06.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3hello = _rhs () 3hello = _lhs hello (_rhs ())
4 4
5x = _rhs world 5x = _lhs x (_rhs world)
6------------ core code 6------------ core code
7hello :: () 7hello :: ()
8hello = _rhs () 8hello = _rhs ()
diff --git a/testdata/language-features/module/import07.out b/testdata/language-features/module/import07.out
index 31cb267f..531e24a2 100644
--- a/testdata/language-features/module/import07.out
+++ b/testdata/language-features/module/import07.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3hello = _rhs () 3hello = _lhs hello (_rhs ())
4 4
5x = _rhs world 5x = _lhs x (_rhs world)
6------------ core code 6------------ core code
7hello :: () 7hello :: ()
8hello = _rhs () 8hello = _rhs ()
diff --git a/testdata/language-features/module/import08.out b/testdata/language-features/module/import08.out
index e68b7bcd..fd3ee5b9 100644
--- a/testdata/language-features/module/import08.out
+++ b/testdata/language-features/module/import08.out
@@ -1,15 +1,15 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs () 3value = _lhs value (_rhs ())
4 4
5g :: Char 5g :: Char
6g = _rhs greeting 6g = _lhs g (_rhs greeting)
7 7
8h :: String 8h :: String
9h = _rhs hello 9h = _lhs h (_rhs hello)
10 10
11w :: String 11w :: String
12w = _rhs world 12w = _lhs w (_rhs world)
13------------ core code 13------------ core code
14g :: Char 14g :: Char
15g = _rhs 'G' 15g = _rhs 'G'
diff --git a/testdata/language-features/module/import09.out b/testdata/language-features/module/import09.out
index c8e689e5..3082c3ff 100644
--- a/testdata/language-features/module/import09.out
+++ b/testdata/language-features/module/import09.out
@@ -1,7 +1,7 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun :: forall (a :: _) . a -> MyUnit -> MyUnit 3fun :: forall (a :: _) . a -> MyUnit -> MyUnit
4fun = \(_ :: _) (a :: _) -> hlistNilCase _ (_rhs ()) a 4fun = _lhs fun \(_ :: _) (a :: _) -> hlistNilCase _ (_rhs ()) a
5------------ core code 5------------ core code
6fun :: forall a . a -> MyUnit -> () 6fun :: forall a . a -> MyUnit -> ()
7fun = \_ _ a -> hlistNilCase ' () (_rhs ()) a 7fun = \_ _ a -> hlistNilCase ' () (_rhs ()) a
diff --git a/testdata/language-features/module/import12.out b/testdata/language-features/module/import12.out
index 26a58bd3..760cc132 100644
--- a/testdata/language-features/module/import12.out
+++ b/testdata/language-features/module/import12.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun = _rhs hello 3fun = _lhs fun (_rhs hello)
4------------ core code 4------------ core code
5fun :: String 5fun :: String
6fun = _rhs "hello" 6fun = _rhs "hello"
diff --git a/testdata/language-features/module/import13.out b/testdata/language-features/module/import13.out
index 5a9791da..fd02626b 100644
--- a/testdata/language-features/module/import13.out
+++ b/testdata/language-features/module/import13.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun = _rhs hello 3fun = _lhs fun (_rhs hello)
4------------ core code 4------------ core code
5fun :: String 5fun :: String
6fun = _rhs "hello" 6fun = _rhs "hello"
diff --git a/testdata/language-features/module/import14.out b/testdata/language-features/module/import14.out
index a2feaea6..3b09db66 100644
--- a/testdata/language-features/module/import14.out
+++ b/testdata/language-features/module/import14.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun = _rhs hello 3fun = _lhs fun (_rhs hello)
4------------ core code 4------------ core code
5fun :: String 5fun :: String
6fun = _rhs "hello" 6fun = _rhs "hello"
diff --git a/testdata/language-features/module/import15.out b/testdata/language-features/module/import15.out
index 7e58a5c7..9cf8cd6f 100644
--- a/testdata/language-features/module/import15.out
+++ b/testdata/language-features/module/import15.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun = _rhs hello 3fun = _lhs fun (_rhs hello)
4------------ core code 4------------ core code
5fun :: String 5fun :: String
6fun = _rhs "Hello" 6fun = _rhs "Hello"
diff --git a/testdata/language-features/pattern/pattern01.out b/testdata/language-features/pattern/pattern01.out
index b01ea25b..bbd1d94e 100644
--- a/testdata/language-features/pattern/pattern01.out
+++ b/testdata/language-features/pattern/pattern01.out
@@ -1,13 +1,21 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun1 3fun1
4 = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') (fromInt 0 == a) 4 = _lhs
5 fun1
6 \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') (fromInt 0 == a)
5 7
6fun2 = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') ("0" == a) 8fun2
9 = _lhs
10 fun2
11 \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') ("0" == a)
7 12
8fun3 = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') ('0' == a) 13fun3
14 = _lhs
15 fun3
16 \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs '_') (_rhs '0') ('0' == a)
9 17
10fun4 = \(a :: _) -> hlistNilCase _ (_rhs '0') a 18fun4 = _lhs fun4 \(a :: _) -> hlistNilCase _ (_rhs '0') a
11------------ core code 19------------ core code
12fun1 :: forall a . (Eq a, Num a) => a -> Char 20fun1 :: forall a . (Eq a, Num a) => a -> Char
13fun1 21fun1
diff --git a/testdata/language-features/pattern/uncovered.out b/testdata/language-features/pattern/uncovered.out
index b461ff6e..f9952c69 100644
--- a/testdata/language-features/pattern/uncovered.out
+++ b/testdata/language-features/pattern/uncovered.out
@@ -1,89 +1,95 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3f 3f
4 = \(a :: _) (b :: _) (c :: _) -> case'Bool 4 = _lhs
5 (\(_ :: _) -> _) 5 f
6 (case'Bool 6 \(a :: _) (b :: _) (c :: _) -> case'Bool
7 (\(_ :: _) -> _)
8 (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs (fromInt 1)) c)
9 (_rhs (fromInt 2))
10 a)
11 (case'Bool
12 (\(_ :: _) -> _) 7 (\(_ :: _) -> _)
13 (_rhs (fromInt 0)) 8 (case'Bool
14 (case'Bool (\(_ :: _) -> _) (_rhs (fromInt 1)) (_rhs undefined) a) 9 (\(_ :: _) -> _)
15 c) 10 (case'Bool (\(_ :: _) -> _) (_rhs undefined) (_rhs (fromInt 1)) c)
16 b 11 (_rhs (fromInt 2))
12 a)
13 (case'Bool
14 (\(_ :: _) -> _)
15 (_rhs (fromInt 0))
16 (case'Bool (\(_ :: _) -> _) (_rhs (fromInt 1)) (_rhs undefined) a)
17 c)
18 b
17 19
18g 20g
19 = \(a :: _) -> case'List 21 = _lhs
20 (\(_ :: _) -> _) 22 g
21 (_rhs undefined) 23 \(a :: _) -> case'List
22 (\(b :: _) (c :: _) -> case'Bool
23 (\(_ :: _) -> _) 24 (\(_ :: _) -> _)
24 (_rhs undefined) 25 (_rhs undefined)
25 (case'List 26 (\(b :: _) (c :: _) -> case'Bool
26 (\(_ :: _) -> _) 27 (\(_ :: _) -> _)
27 (_rhs undefined) 28 (_rhs undefined)
28 (\(d :: _) (e :: _) -> case'Bool 29 (case'List
29 (\(_ :: _) -> _) 30 (\(_ :: _) -> _)
30 (case'List 31 (_rhs undefined)
32 (\(d :: _) (e :: _) -> case'Bool
31 (\(_ :: _) -> _) 33 (\(_ :: _) -> _)
32 (_rhs undefined) 34 (case'List
33 (\(f :: _) (g :: _) -> case'Bool
34 (\(_ :: _) -> _) 35 (\(_ :: _) -> _)
35 (_rhs undefined) 36 (_rhs undefined)
36 (case'List 37 (\(f :: _) (g :: _) -> case'Bool
37 (\(_ :: _) -> _) 38 (\(_ :: _) -> _)
38 (_rhs False) 39 (_rhs undefined)
39 (\(_ :: _) (_ :: _) -> _rhs undefined) 40 (case'List
40 g) 41 (\(_ :: _) -> _)
41 f) 42 (_rhs False)
42 e) 43 (\(_ :: _) (_ :: _) -> _rhs undefined)
43 (_rhs undefined) 44 g)
44 d) 45 f)
45 c) 46 e)
46 b) 47 (_rhs undefined)
47 a 48 d)
49 c)
50 b)
51 a
48 52
49h 53h
50 = \(a :: _) -> case'List 54 = _lhs
51 (\(_ :: _) -> _) 55 h
52 (_rhs undefined) 56 \(a :: _) -> case'List
53 (\(b :: _) (c :: _) -> case'List
54 (\(_ :: _) -> _) 57 (\(_ :: _) -> _)
55 (_rhs undefined) 58 (_rhs undefined)
56 (\(d :: _) (e :: _) -> case'Bool 59 (\(b :: _) (c :: _) -> case'List
57 (\(_ :: _) -> _) 60 (\(_ :: _) -> _)
58 (_rhs undefined) 61 (_rhs undefined)
59 (case'List 62 (\(d :: _) (e :: _) -> case'Bool
60 (\(_ :: _) -> _) 63 (\(_ :: _) -> _)
64 (_rhs undefined)
61 (case'List 65 (case'List
62 (\(_ :: _) -> _) 66 (\(_ :: _) -> _)
63 (_rhs undefined) 67 (case'List
64 (\(f :: _) (g :: _) -> case'List
65 (\(_ :: _) -> _) 68 (\(_ :: _) -> _)
66 (_rhs undefined) 69 (_rhs undefined)
67 (\(h :: _) (i :: _) -> case'Bool 70 (\(f :: _) (g :: _) -> case'List
68 (\(_ :: _) -> _) 71 (\(_ :: _) -> _)
69 (case'List 72 (_rhs undefined)
73 (\(h :: _) (i :: _) -> case'Bool
70 (\(_ :: _) -> _) 74 (\(_ :: _) -> _)
71 (case'List 75 (case'List
72 (\(_ :: _) -> _) 76 (\(_ :: _) -> _)
73 (_rhs True) 77 (case'List
78 (\(_ :: _) -> _)
79 (_rhs True)
80 (\(_ :: _) (_ :: _) -> _rhs undefined)
81 g)
74 (\(_ :: _) (_ :: _) -> _rhs undefined) 82 (\(_ :: _) (_ :: _) -> _rhs undefined)
75 g) 83 i)
76 (\(_ :: _) (_ :: _) -> _rhs undefined) 84 (_rhs undefined)
77 i) 85 h)
78 (_rhs undefined) 86 f)
79 h) 87 c)
80 f) 88 (\(_ :: _) (_ :: _) -> _rhs undefined)
81 c) 89 e)
82 (\(_ :: _) (_ :: _) -> _rhs undefined) 90 d)
83 e) 91 b)
84 d) 92 a
85 b)
86 a
87------------ core code 93------------ core code
88f :: forall a . Num a => Bool -> Bool -> Bool -> a 94f :: forall a . Num a => Bool -> Bool -> Bool -> a
89f 95f
diff --git a/testdata/language-features/pattern/unreachable.out b/testdata/language-features/pattern/unreachable.out
index e8991ac1..7b7df75d 100644
--- a/testdata/language-features/pattern/unreachable.out
+++ b/testdata/language-features/pattern/unreachable.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3f = \(_ :: _) -> _rhs "hello" 3f = _lhs f \(_ :: _) -> _rhs "hello"
4------------ core code 4------------ core code
5f :: forall a . a -> String 5f :: forall a . a -> String
6f = \_ _ -> _rhs "hello" 6f = \_ _ -> _rhs "hello"
diff --git a/testdata/language-features/recursion/simplerec01.out b/testdata/language-features/recursion/simplerec01.out
index f6732e0f..736caa77 100644
--- a/testdata/language-features/recursion/simplerec01.out
+++ b/testdata/language-features/recursion/simplerec01.out
@@ -1,11 +1,13 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun 3fun
4 = \(a :: _) -> case'Bool 4 = _lhs
5 (\(_ :: _) -> _) 5 fun
6 (_rhs (fun (fromInt 0))) 6 \(a :: _) -> case'Bool
7 (_rhs 'a') 7 (\(_ :: _) -> _)
8 (fromInt 0 == a) 8 (_rhs (fun (fromInt 0)))
9 (_rhs 'a')
10 (fromInt 0 == a)
9------------ core code 11------------ core code
10fun :: forall a . (Num a, Eq a, Num a) => a -> Char 12fun :: forall a . (Num a, Eq a, Num a) => a -> Char
11fun 13fun
diff --git a/testdata/language-features/recursion/simplerec02.out b/testdata/language-features/recursion/simplerec02.out
index 39e52ba0..d80f3cfd 100644
--- a/testdata/language-features/recursion/simplerec02.out
+++ b/testdata/language-features/recursion/simplerec02.out
@@ -1,16 +1,20 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = _rhs 4 = _lhs
5 let 5 value
6 a 6 (_rhs
7 = primFix 7 let
8 \(b :: _) (c :: _) -> case'Bool 8 a
9 (\(_ :: _) -> _) 9 = primFix
10 (_rhs (b (fromInt 0))) 10 \(b :: _) -> _lhs
11 (_rhs 'a') 11 fun
12 (fromInt 0 == c) 12 \(c :: _) -> case'Bool
13 in () 13 (\(_ :: _) -> _)
14 (_rhs (b (fromInt 0)))
15 (_rhs 'a')
16 (fromInt 0 == c)
17 in ())
14------------ core code 18------------ core code
15value :: () 19value :: ()
16value = _rhs () 20value = _rhs ()
diff --git a/testdata/language-features/recursion/simplerec03.out b/testdata/language-features/recursion/simplerec03.out
index 32df69c1..031dbc8d 100644
--- a/testdata/language-features/recursion/simplerec03.out
+++ b/testdata/language-features/recursion/simplerec03.out
@@ -1,16 +1,20 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = _rhs 4 = _lhs
5 let 5 value
6 a 6 (_rhs
7 = primFix 7 let
8 \(b :: _) (c :: _) -> case'Bool 8 a
9 (\(_ :: _) -> _) 9 = primFix
10 (_rhs (b (fromInt 0))) 10 \(b :: _) -> _lhs
11 (_rhs 'a') 11 fun
12 (fromInt 0 == c) 12 \(c :: _) -> case'Bool
13 in () 13 (\(_ :: _) -> _)
14 (_rhs (b (fromInt 0)))
15 (_rhs 'a')
16 (fromInt 0 == c)
17 in ())
14------------ core code 18------------ core code
15value :: () 19value :: ()
16value = _rhs () 20value = _rhs ()
diff --git a/testdata/language-features/section/section01.out b/testdata/language-features/section/section01.out
index d99e803e..a06769e3 100644
--- a/testdata/language-features/section/section01.out
+++ b/testdata/language-features/section/section01.out
@@ -1,10 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3(!@!) = \(_ :: _) (_ :: _) -> _rhs () 3(!@!) = _lhs (!@!) \(_ :: _) (_ :: _) -> _rhs ()
4 4
5value1 = \(a :: _) -> _rhs \(b :: _) -> a !@! b 5value1 = _lhs value1 \(a :: _) -> _rhs \(b :: _) -> a !@! b
6 6
7value2 = \(a :: _) -> _rhs \(b :: _) -> b !@! a 7value2 = _lhs value2 \(a :: _) -> _rhs \(b :: _) -> b !@! a
8------------ core code 8------------ core code
9!@! :: forall a b . a -> b -> () 9!@! :: forall a b . a -> b -> ()
10!@! = \_ _ _ _ -> _rhs () 10!@! = \_ _ _ _ -> _rhs ()
diff --git a/testdata/let.out b/testdata/let.out
index 36c6a54f..a3809ea8 100644
--- a/testdata/let.out
+++ b/testdata/let.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3id = \(a :: _) -> _rhs a 3id = _lhs id \(a :: _) -> _rhs a
4 4
5f = \(a :: _) -> _rhs let b = _rhs (id a) in b 5f = _lhs f \(a :: _) -> _rhs let b = _lhs y (_rhs (id a)) in b
6------------ core code 6------------ core code
7f :: forall a . a -> a 7f :: forall a . a -> a
8f = \_ a -> _rhs a 8f = \_ a -> _rhs a
diff --git a/testdata/letIndent.out b/testdata/letIndent.out
index 3d5160fb..569c73ae 100644
--- a/testdata/letIndent.out
+++ b/testdata/letIndent.out
@@ -1,6 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun = \(a :: _) -> _rhs let b = _rhs (fromInt 1); c = _rhs (fromInt 2) in a 3fun
4 = _lhs
5 fun
6 \(a :: _) -> _rhs
7 let b = _lhs a (_rhs (fromInt 1)); c = _lhs b (_rhs (fromInt 2)) in a
4------------ core code 8------------ core code
5fun :: forall a . a -> a 9fun :: forall a . a -> a
6fun = \_ a -> _rhs a 10fun = \_ a -> _rhs a
diff --git a/testdata/localfun2.out b/testdata/localfun2.out
index e4d0cd45..ca1f097b 100644
--- a/testdata/localfun2.out
+++ b/testdata/localfun2.out
@@ -1,34 +1,40 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3split 3split
4 = \(a :: _) -> case'List 4 = _lhs
5 (\(_ :: _) -> _) 5 split
6 (_rhs ([], [])) 6 \(a :: _) -> case'List
7 (\(b :: _) (c :: _) -> _rhs 7 (\(_ :: _) -> _)
8 let 8 (_rhs ([], []))
9 d = _rhs (split c); 9 (\(b :: _) (c :: _) -> _rhs
10 e 10 let
11 = _rhs 11 d = _lhs _bs_as (_rhs (split c));
12 ((\(g :: _) -> hlistConsCase 12 e
13 _ 13 = _lhs
14 (\(_ :: _) (h :: _) -> hlistConsCase 14 bs
15 _ 15 (_rhs
16 (\(i :: _) (j :: _) -> hlistNilCase _ i j) 16 ((\(g :: _) -> hlistConsCase
17 h) 17 _
18 g) 18 (\(_ :: _) (h :: _) -> hlistConsCase
19 d); 19 _
20 f 20 (\(i :: _) (j :: _) -> hlistNilCase _ i j)
21 = _rhs 21 h)
22 ((\(k :: _) -> hlistConsCase 22 g)
23 _ 23 d));
24 (\(l :: _) (m :: _) -> hlistConsCase 24 f
25 _ 25 = _lhs
26 (\(_ :: _) (n :: _) -> hlistNilCase _ l n) 26 as
27 m) 27 (_rhs
28 k) 28 ((\(k :: _) -> hlistConsCase
29 d) 29 _
30 in (b : e, f)) 30 (\(l :: _) (m :: _) -> hlistConsCase
31 a 31 _
32 (\(_ :: _) (n :: _) -> hlistNilCase _ l n)
33 m)
34 k)
35 d))
36 in (b : e, f))
37 a
32------------ core code 38------------ core code
33split :: forall a . [a] -> ([a], [a]) 39split :: forall a . [a] -> ([a], [a])
34split 40split
diff --git a/testdata/performance/Material.out b/testdata/performance/Material.out
index a88e95ca..a99467e0 100644
--- a/testdata/performance/Material.out
+++ b/testdata/performance/Material.out
@@ -1,7 +1,7 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3identityLight :: Float 3identityLight :: Float
4identityLight = _rhs (fromInt 1) 4identityLight = _lhs identityLight (_rhs (fromInt 1))
5 5
6data Entity :: Type where 6data Entity :: Type where
7 Entity 7 Entity
@@ -10,28 +10,36 @@ data Entity :: Type where
10 -> Vec (fromInt 3) Float -> Vec (fromInt 4) Float -> Entity 10 -> Vec (fromInt 3) Float -> Vec (fromInt 4) Float -> Entity
11 11
12eAmbientLight 12eAmbientLight
13 = \(a :: _) -> case'Entity 13 = _lhs
14 (\(_ :: _) -> _) 14 eAmbientLight
15 (\(b :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs b) 15 \(a :: _) -> case'Entity
16 a 16 (\(_ :: _) -> _)
17 (\(b :: _) (_ :: _) (_ :: _) (_ :: _) -> _rhs b)
18 a
17 19
18eDirectedLight 20eDirectedLight
19 = \(a :: _) -> case'Entity 21 = _lhs
20 (\(_ :: _) -> _) 22 eDirectedLight
21 (\(_ :: _) (b :: _) (_ :: _) (_ :: _) -> _rhs b) 23 \(a :: _) -> case'Entity
22 a 24 (\(_ :: _) -> _)
25 (\(_ :: _) (b :: _) (_ :: _) (_ :: _) -> _rhs b)
26 a
23 27
24eLightDir 28eLightDir
25 = \(a :: _) -> case'Entity 29 = _lhs
26 (\(_ :: _) -> _) 30 eLightDir
27 (\(_ :: _) (_ :: _) (b :: _) (_ :: _) -> _rhs b) 31 \(a :: _) -> case'Entity
28 a 32 (\(_ :: _) -> _)
33 (\(_ :: _) (_ :: _) (b :: _) (_ :: _) -> _rhs b)
34 a
29 35
30eShaderRGBA 36eShaderRGBA
31 = \(a :: _) -> case'Entity 37 = _lhs
32 (\(_ :: _) -> _) 38 eShaderRGBA
33 (\(_ :: _) (_ :: _) (_ :: _) (b :: _) -> _rhs b) 39 \(a :: _) -> case'Entity
34 a 40 (\(_ :: _) -> _)
41 (\(_ :: _) (_ :: _) (_ :: _) (b :: _) -> _rhs b)
42 a
35 43
36data WaveType :: Type where 44data WaveType :: Type where
37 WT_Sin :: WaveType 45 WT_Sin :: WaveType
@@ -146,119 +154,143 @@ data StageAttrs :: Type where
146 -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs 154 -> Bool -> DepthFunction -> Maybe AlphaFunction -> Bool -> String -> StageAttrs
147 155
148saBlend 156saBlend
149 = \(a :: _) -> case'StageAttrs 157 = _lhs
150 (\(_ :: _) -> _) 158 saBlend
151 (\(b :: _) 159 \(a :: _) -> case'StageAttrs
152 (_ :: _) 160 (\(_ :: _) -> _)
153 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 161 (\(b :: _)
154 -> _rhs b) 162 (_ :: _)
155 a 163 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
164 -> _rhs b)
165 a
156 166
157saRGBGen 167saRGBGen
158 = \(a :: _) -> case'StageAttrs 168 = _lhs
159 (\(_ :: _) -> _) 169 saRGBGen
160 (\(_ :: _) 170 \(a :: _) -> case'StageAttrs
161 (b :: _) 171 (\(_ :: _) -> _)
162 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 172 (\(_ :: _)
163 -> _rhs b) 173 (b :: _)
164 a 174 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
175 -> _rhs b)
176 a
165 177
166saAlphaGen 178saAlphaGen
167 = \(a :: _) -> case'StageAttrs 179 = _lhs
168 (\(_ :: _) -> _) 180 saAlphaGen
169 (\(_ :: _) 181 \(a :: _) -> case'StageAttrs
170 (_ :: _) 182 (\(_ :: _) -> _)
171 (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 183 (\(_ :: _)
172 -> _rhs b) 184 (_ :: _)
173 a 185 (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
186 -> _rhs b)
187 a
174 188
175saTCGen 189saTCGen
176 = \(a :: _) -> case'StageAttrs 190 = _lhs
177 (\(_ :: _) -> _) 191 saTCGen
178 (\(_ :: _) 192 \(a :: _) -> case'StageAttrs
179 (_ :: _) 193 (\(_ :: _) -> _)
180 (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 194 (\(_ :: _)
181 -> _rhs b) 195 (_ :: _)
182 a 196 (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
197 -> _rhs b)
198 a
183 199
184saTCMod 200saTCMod
185 = \(a :: _) -> case'StageAttrs 201 = _lhs
186 (\(_ :: _) -> _) 202 saTCMod
187 (\(_ :: _) 203 \(a :: _) -> case'StageAttrs
188 (_ :: _) 204 (\(_ :: _) -> _)
189 (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 205 (\(_ :: _)
190 -> _rhs b) 206 (_ :: _)
191 a 207 (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
208 -> _rhs b)
209 a
192 210
193saTexture 211saTexture
194 = \(a :: _) -> case'StageAttrs 212 = _lhs
195 (\(_ :: _) -> _) 213 saTexture
196 (\(_ :: _) 214 \(a :: _) -> case'StageAttrs
197 (_ :: _) 215 (\(_ :: _) -> _)
198 (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 216 (\(_ :: _)
199 -> _rhs b) 217 (_ :: _)
200 a 218 (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
219 -> _rhs b)
220 a
201 221
202saDepthWrite 222saDepthWrite
203 = \(a :: _) -> case'StageAttrs 223 = _lhs
204 (\(_ :: _) -> _) 224 saDepthWrite
205 (\(_ :: _) 225 \(a :: _) -> case'StageAttrs
206 (_ :: _) 226 (\(_ :: _) -> _)
207 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 227 (\(_ :: _)
208 -> _rhs b) 228 (_ :: _)
209 a 229 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
230 -> _rhs b)
231 a
210 232
211saDepthFunc 233saDepthFunc
212 = \(a :: _) -> case'StageAttrs 234 = _lhs
213 (\(_ :: _) -> _) 235 saDepthFunc
214 (\(_ :: _) 236 \(a :: _) -> case'StageAttrs
215 (_ :: _) 237 (\(_ :: _) -> _)
216 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) 238 (\(_ :: _)
217 -> _rhs b) 239 (_ :: _)
218 a 240 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _)
241 -> _rhs b)
242 a
219 243
220saAlphaFunc 244saAlphaFunc
221 = \(a :: _) -> case'StageAttrs 245 = _lhs
222 (\(_ :: _) -> _) 246 saAlphaFunc
223 (\(_ :: _) 247 \(a :: _) -> case'StageAttrs
224 (_ :: _) 248 (\(_ :: _) -> _)
225 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) 249 (\(_ :: _)
226 -> _rhs b) 250 (_ :: _)
227 a 251 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _)
252 -> _rhs b)
253 a
228 254
229saDepthMaskExplicit 255saDepthMaskExplicit
230 = \(a :: _) -> case'StageAttrs 256 = _lhs
231 (\(_ :: _) -> _) 257 saDepthMaskExplicit
232 (\(_ :: _) 258 \(a :: _) -> case'StageAttrs
233 (_ :: _) 259 (\(_ :: _) -> _)
234 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) 260 (\(_ :: _)
235 -> _rhs b) 261 (_ :: _)
236 a 262 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _)
263 -> _rhs b)
264 a
237 265
238saTextureUniform 266saTextureUniform
239 = \(a :: _) -> case'StageAttrs 267 = _lhs
240 (\(_ :: _) -> _) 268 saTextureUniform
241 (\(_ :: _) 269 \(a :: _) -> case'StageAttrs
242 (_ :: _) 270 (\(_ :: _) -> _)
243 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) 271 (\(_ :: _)
244 -> _rhs b) 272 (_ :: _)
245 a 273 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _)
274 -> _rhs b)
275 a
246 276
247defaultStageAttrs :: StageAttrs 277defaultStageAttrs :: StageAttrs
248defaultStageAttrs 278defaultStageAttrs
249 = _rhs 279 = _lhs
250 (StageAttrs 280 defaultStageAttrs
251 Nothing 281 (_rhs
252 RGB_Undefined 282 (StageAttrs
253 A_Identity 283 Nothing
254 TG_Undefined 284 RGB_Undefined
255 [] 285 A_Identity
256 ST_WhiteImage 286 TG_Undefined
257 True 287 []
258 D_Lequal 288 ST_WhiteImage
259 Nothing 289 True
260 False 290 D_Lequal
261 "") 291 Nothing
292 False
293 ""))
262 294
263data CommonAttrs :: Type where 295data CommonAttrs :: Type where
264 CommonAttrs 296 CommonAttrs
@@ -271,141 +303,167 @@ data CommonAttrs :: Type where
271 -> CullType -> [Deform] -> Bool -> Bool -> [StageAttrs] -> Bool -> CommonAttrs 303 -> CullType -> [Deform] -> Bool -> Bool -> [StageAttrs] -> Bool -> CommonAttrs
272 304
273caSkyParms 305caSkyParms
274 = \(a :: _) -> case'CommonAttrs 306 = _lhs
275 (\(_ :: _) -> _) 307 caSkyParms
276 (\(b :: _) 308 \(a :: _) -> case'CommonAttrs
277 (_ :: _) 309 (\(_ :: _) -> _)
310 (\(b :: _)
278 (_ :: _) 311 (_ :: _)
279 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 312 (_ :: _)
280 -> _rhs b) 313 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
281 a 314 -> _rhs b)
315 a
282 316
283caFogParms 317caFogParms
284 = \(a :: _) -> case'CommonAttrs 318 = _lhs
285 (\(_ :: _) -> _) 319 caFogParms
286 (\(_ :: _) 320 \(a :: _) -> case'CommonAttrs
287 (b :: _) 321 (\(_ :: _) -> _)
288 (_ :: _) 322 (\(_ :: _)
289 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 323 (b :: _)
290 -> _rhs b) 324 (_ :: _)
291 a 325 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
326 -> _rhs b)
327 a
292 328
293caPortal 329caPortal
294 = \(a :: _) -> case'CommonAttrs 330 = _lhs
295 (\(_ :: _) -> _) 331 caPortal
296 (\(_ :: _) 332 \(a :: _) -> case'CommonAttrs
297 (_ :: _) 333 (\(_ :: _) -> _)
298 (b :: _) 334 (\(_ :: _)
299 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 335 (_ :: _)
300 -> _rhs b) 336 (b :: _)
301 a 337 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
338 -> _rhs b)
339 a
302 340
303caSort 341caSort
304 = \(a :: _) -> case'CommonAttrs 342 = _lhs
305 (\(_ :: _) -> _) 343 caSort
306 (\(_ :: _) 344 \(a :: _) -> case'CommonAttrs
307 (_ :: _) 345 (\(_ :: _) -> _)
346 (\(_ :: _)
308 (_ :: _) 347 (_ :: _)
309 (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 348 (_ :: _)
310 -> _rhs b) 349 (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
311 a 350 -> _rhs b)
351 a
312 352
313caEntityMergable 353caEntityMergable
314 = \(a :: _) -> case'CommonAttrs 354 = _lhs
315 (\(_ :: _) -> _) 355 caEntityMergable
316 (\(_ :: _) 356 \(a :: _) -> case'CommonAttrs
317 (_ :: _) 357 (\(_ :: _) -> _)
358 (\(_ :: _)
318 (_ :: _) 359 (_ :: _)
319 (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 360 (_ :: _)
320 -> _rhs b) 361 (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
321 a 362 -> _rhs b)
363 a
322 364
323caFogOnly 365caFogOnly
324 = \(a :: _) -> case'CommonAttrs 366 = _lhs
325 (\(_ :: _) -> _) 367 caFogOnly
326 (\(_ :: _) 368 \(a :: _) -> case'CommonAttrs
327 (_ :: _) 369 (\(_ :: _) -> _)
370 (\(_ :: _)
328 (_ :: _) 371 (_ :: _)
329 (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 372 (_ :: _)
330 -> _rhs b) 373 (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
331 a 374 -> _rhs b)
375 a
332 376
333caCull 377caCull
334 = \(a :: _) -> case'CommonAttrs 378 = _lhs
335 (\(_ :: _) -> _) 379 caCull
336 (\(_ :: _) 380 \(a :: _) -> case'CommonAttrs
337 (_ :: _) 381 (\(_ :: _) -> _)
382 (\(_ :: _)
338 (_ :: _) 383 (_ :: _)
339 (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 384 (_ :: _)
340 -> _rhs b) 385 (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
341 a 386 -> _rhs b)
387 a
342 388
343caDeformVertexes 389caDeformVertexes
344 = \(a :: _) -> case'CommonAttrs 390 = _lhs
345 (\(_ :: _) -> _) 391 caDeformVertexes
346 (\(_ :: _) 392 \(a :: _) -> case'CommonAttrs
347 (_ :: _) 393 (\(_ :: _) -> _)
394 (\(_ :: _)
348 (_ :: _) 395 (_ :: _)
349 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) 396 (_ :: _)
350 -> _rhs b) 397 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _)
351 a 398 -> _rhs b)
399 a
352 400
353caNoMipMaps 401caNoMipMaps
354 = \(a :: _) -> case'CommonAttrs 402 = _lhs
355 (\(_ :: _) -> _) 403 caNoMipMaps
356 (\(_ :: _) 404 \(a :: _) -> case'CommonAttrs
357 (_ :: _) 405 (\(_ :: _) -> _)
406 (\(_ :: _)
358 (_ :: _) 407 (_ :: _)
359 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _) 408 (_ :: _)
360 -> _rhs b) 409 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) (_ :: _)
361 a 410 -> _rhs b)
411 a
362 412
363caPolygonOffset 413caPolygonOffset
364 = \(a :: _) -> case'CommonAttrs 414 = _lhs
365 (\(_ :: _) -> _) 415 caPolygonOffset
366 (\(_ :: _) 416 \(a :: _) -> case'CommonAttrs
367 (_ :: _) 417 (\(_ :: _) -> _)
418 (\(_ :: _)
368 (_ :: _) 419 (_ :: _)
369 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _) 420 (_ :: _)
370 -> _rhs b) 421 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) (_ :: _)
371 a 422 -> _rhs b)
423 a
372 424
373caStages 425caStages
374 = \(a :: _) -> case'CommonAttrs 426 = _lhs
375 (\(_ :: _) -> _) 427 caStages
376 (\(_ :: _) 428 \(a :: _) -> case'CommonAttrs
377 (_ :: _) 429 (\(_ :: _) -> _)
430 (\(_ :: _)
378 (_ :: _) 431 (_ :: _)
379 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _) 432 (_ :: _)
380 -> _rhs b) 433 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) (_ :: _)
381 a 434 -> _rhs b)
435 a
382 436
383caIsSky 437caIsSky
384 = \(a :: _) -> case'CommonAttrs 438 = _lhs
385 (\(_ :: _) -> _) 439 caIsSky
386 (\(_ :: _) 440 \(a :: _) -> case'CommonAttrs
387 (_ :: _) 441 (\(_ :: _) -> _)
442 (\(_ :: _)
388 (_ :: _) 443 (_ :: _)
389 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _) 444 (_ :: _)
390 -> _rhs b) 445 (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (_ :: _) (b :: _)
391 a 446 -> _rhs b)
447 a
392 448
393defaultCommonAttrs :: CommonAttrs 449defaultCommonAttrs :: CommonAttrs
394defaultCommonAttrs 450defaultCommonAttrs
395 = _rhs 451 = _lhs
396 (CommonAttrs 452 defaultCommonAttrs
397 () 453 (_rhs
398 () 454 (CommonAttrs
399 False 455 ()
400 (fromInt 0) 456 ()
401 False 457 False
402 False 458 (fromInt 0)
403 CT_FrontSided 459 False
404 [] 460 False
405 False 461 CT_FrontSided
406 False 462 []
407 [] 463 False
408 False) 464 False
465 []
466 False))
409------------ core code 467------------ core code
410'AlphaFunction :: Type 468'AlphaFunction :: Type
411'AlphaFunction 469'AlphaFunction
diff --git a/testdata/performance/SampleMaterial.out b/testdata/performance/SampleMaterial.out
index 6a2d1969..6044fe36 100644
--- a/testdata/performance/SampleMaterial.out
+++ b/testdata/performance/SampleMaterial.out
@@ -1,1881 +1,1883 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3sampleMaterial 3sampleMaterial
4 = _rhs 4 = _lhs
5 [("textures/gothic_block/blocks11b" 5 sampleMaterial
6 , CommonAttrs 6 (_rhs
7 () 7 [("textures/gothic_block/blocks11b"
8 () 8 , CommonAttrs
9 False 9 ()
10 (fromInt 0) 10 ()
11 False 11 False
12 False 12 (fromInt 0)
13 CT_FrontSided 13 False
14 [] 14 False
15 False 15 CT_FrontSided
16 False 16 []
17 [StageAttrs 17 False
18 Nothing 18 False
19 RGB_IdentityLighting 19 [StageAttrs
20 A_Identity 20 Nothing
21 TG_Base 21 RGB_IdentityLighting
22 [] 22 A_Identity
23 (ST_Map "textures/gothic_block/blocks11b") 23 TG_Base
24 True 24 []
25 D_Lequal 25 (ST_Map "textures/gothic_block/blocks11b")
26 Nothing 26 True
27 False 27 D_Lequal
28 "Tex_4288602201" 28 Nothing
29 , StageAttrs 29 False
30 (Just (B_DstColor, B_Zero)) 30 "Tex_4288602201"
31 RGB_IdentityLighting 31 , StageAttrs
32 A_Identity 32 (Just (B_DstColor, B_Zero))
33 TG_Lightmap 33 RGB_IdentityLighting
34 [] 34 A_Identity
35 ST_Lightmap 35 TG_Lightmap
36 True 36 []
37 D_Lequal 37 ST_Lightmap
38 Nothing 38 True
39 False 39 D_Lequal
40 "Tex_3226210144"] 40 Nothing
41 False) 41 False
42 , ("textures/gothic_block/blocks15" 42 "Tex_3226210144"]
43 , CommonAttrs 43 False)
44 () 44 , ("textures/gothic_block/blocks15"
45 () 45 , CommonAttrs
46 False 46 ()
47 (fromInt 0) 47 ()
48 False 48 False
49 False 49 (fromInt 0)
50 CT_FrontSided 50 False
51 [] 51 False
52 False 52 CT_FrontSided
53 False 53 []
54 [StageAttrs 54 False
55 Nothing 55 False
56 RGB_IdentityLighting 56 [StageAttrs
57 A_Identity 57 Nothing
58 TG_Base 58 RGB_IdentityLighting
59 [] 59 A_Identity
60 (ST_Map "textures/gothic_block/blocks15") 60 TG_Base
61 True 61 []
62 D_Lequal 62 (ST_Map "textures/gothic_block/blocks15")
63 Nothing 63 True
64 False 64 D_Lequal
65 "Tex_2523116863" 65 Nothing
66 , StageAttrs 66 False
67 (Just (B_DstColor, B_Zero)) 67 "Tex_2523116863"
68 RGB_IdentityLighting 68 , StageAttrs
69 A_Identity 69 (Just (B_DstColor, B_Zero))
70 TG_Lightmap 70 RGB_IdentityLighting
71 [] 71 A_Identity
72 ST_Lightmap 72 TG_Lightmap
73 True 73 []
74 D_Lequal 74 ST_Lightmap
75 Nothing 75 True
76 False 76 D_Lequal
77 "Tex_3226210144"] 77 Nothing
78 False) 78 False
79 , ("textures/gothic_block/blocks18b" 79 "Tex_3226210144"]
80 , CommonAttrs 80 False)
81 () 81 , ("textures/gothic_block/blocks18b"
82 () 82 , CommonAttrs
83 False 83 ()
84 (fromInt 0) 84 ()
85 False 85 False
86 False 86 (fromInt 0)
87 CT_FrontSided 87 False
88 [] 88 False
89 False 89 CT_FrontSided
90 False 90 []
91 [StageAttrs 91 False
92 Nothing 92 False
93 RGB_IdentityLighting 93 [StageAttrs
94 A_Identity 94 Nothing
95 TG_Base 95 RGB_IdentityLighting
96 [] 96 A_Identity
97 (ST_Map "textures/gothic_block/blocks18b") 97 TG_Base
98 True 98 []
99 D_Lequal 99 (ST_Map "textures/gothic_block/blocks18b")
100 Nothing 100 True
101 False 101 D_Lequal
102 "Tex_2639119078" 102 Nothing
103 , StageAttrs 103 False
104 (Just (B_DstColor, B_Zero)) 104 "Tex_2639119078"
105 RGB_IdentityLighting 105 , StageAttrs
106 A_Identity 106 (Just (B_DstColor, B_Zero))
107 TG_Lightmap 107 RGB_IdentityLighting
108 [] 108 A_Identity
109 ST_Lightmap 109 TG_Lightmap
110 True 110 []
111 D_Lequal 111 ST_Lightmap
112 Nothing 112 True
113 False 113 D_Lequal
114 "Tex_3226210144"] 114 Nothing
115 False) 115 False
116 , ("textures/gothic_block/blocks18c_3" 116 "Tex_3226210144"]
117 , CommonAttrs 117 False)
118 () 118 , ("textures/gothic_block/blocks18c_3"
119 () 119 , CommonAttrs
120 False 120 ()
121 (fromInt 0) 121 ()
122 False 122 False
123 False 123 (fromInt 0)
124 CT_FrontSided 124 False
125 [] 125 False
126 False 126 CT_FrontSided
127 False 127 []
128 [StageAttrs 128 False
129 Nothing 129 False
130 RGB_IdentityLighting 130 [StageAttrs
131 A_Identity 131 Nothing
132 TG_Base 132 RGB_IdentityLighting
133 [] 133 A_Identity
134 (ST_Map "textures/gothic_block/blocks18c_3") 134 TG_Base
135 True 135 []
136 D_Lequal 136 (ST_Map "textures/gothic_block/blocks18c_3")
137 Nothing 137 True
138 False 138 D_Lequal
139 "Tex_3939430064" 139 Nothing
140 , StageAttrs 140 False
141 (Just (B_DstColor, B_Zero)) 141 "Tex_3939430064"
142 RGB_IdentityLighting 142 , StageAttrs
143 A_Identity 143 (Just (B_DstColor, B_Zero))
144 TG_Lightmap 144 RGB_IdentityLighting
145 [] 145 A_Identity
146 ST_Lightmap 146 TG_Lightmap
147 True 147 []
148 D_Lequal 148 ST_Lightmap
149 Nothing 149 True
150 False 150 D_Lequal
151 "Tex_3226210144"] 151 Nothing
152 False) 152 False
153 , ("textures/gothic_block/demon_block15fx" 153 "Tex_3226210144"]
154 , CommonAttrs 154 False)
155 () 155 , ("textures/gothic_block/demon_block15fx"
156 () 156 , CommonAttrs
157 False 157 ()
158 (fromInt 3) 158 ()
159 False 159 False
160 False 160 (fromInt 3)
161 CT_FrontSided 161 False
162 [] 162 False
163 False 163 CT_FrontSided
164 False 164 []
165 [StageAttrs 165 False
166 Nothing 166 False
167 RGB_Identity 167 [StageAttrs
168 A_Identity 168 Nothing
169 TG_Base 169 RGB_Identity
170 [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 1.6, TM_Scale 4.0 4.0] 170 A_Identity
171 (ST_Map "textures/sfx/firegorre.tga") 171 TG_Base
172 True 172 [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 1.6, TM_Scale 4.0 4.0]
173 D_Lequal 173 (ST_Map "textures/sfx/firegorre.tga")
174 Nothing 174 True
175 False 175 D_Lequal
176 "Tex_47037129" 176 Nothing
177 , StageAttrs 177 False
178 (Just (B_SrcAlpha, B_OneMinusSrcAlpha)) 178 "Tex_47037129"
179 RGB_Identity 179 , StageAttrs
180 A_Identity 180 (Just (B_SrcAlpha, B_OneMinusSrcAlpha))
181 TG_Base 181 RGB_Identity
182 [] 182 A_Identity
183 (ST_Map "textures/gothic_block/demon_block15fx.tga") 183 TG_Base
184 False 184 []
185 D_Lequal 185 (ST_Map "textures/gothic_block/demon_block15fx.tga")
186 Nothing 186 False
187 False 187 D_Lequal
188 "Tex_3562558025" 188 Nothing
189 , StageAttrs 189 False
190 (Just (B_DstColor, B_OneMinusDstAlpha)) 190 "Tex_3562558025"
191 RGB_Identity 191 , StageAttrs
192 A_Identity 192 (Just (B_DstColor, B_OneMinusDstAlpha))
193 TG_Lightmap 193 RGB_Identity
194 [] 194 A_Identity
195 ST_Lightmap 195 TG_Lightmap
196 False 196 []
197 D_Lequal 197 ST_Lightmap
198 Nothing 198 False
199 False 199 D_Lequal
200 "Tex_2065974340"] 200 Nothing
201 False) 201 False
202 , ("textures/gothic_block/killblock" 202 "Tex_2065974340"]
203 , CommonAttrs 203 False)
204 () 204 , ("textures/gothic_block/killblock"
205 () 205 , CommonAttrs
206 False 206 ()
207 (fromInt 0) 207 ()
208 False 208 False
209 False 209 (fromInt 0)
210 CT_FrontSided 210 False
211 [] 211 False
212 False 212 CT_FrontSided
213 False 213 []
214 [StageAttrs 214 False
215 Nothing 215 False
216 RGB_IdentityLighting 216 [StageAttrs
217 A_Identity 217 Nothing
218 TG_Base 218 RGB_IdentityLighting
219 [] 219 A_Identity
220 (ST_Map "textures/gothic_block/killblock") 220 TG_Base
221 True 221 []
222 D_Lequal 222 (ST_Map "textures/gothic_block/killblock")
223 Nothing 223 True
224 False 224 D_Lequal
225 "Tex_3647563961" 225 Nothing
226 , StageAttrs 226 False
227 (Just (B_DstColor, B_Zero)) 227 "Tex_3647563961"
228 RGB_IdentityLighting 228 , StageAttrs
229 A_Identity 229 (Just (B_DstColor, B_Zero))
230 TG_Lightmap 230 RGB_IdentityLighting
231 [] 231 A_Identity
232 ST_Lightmap 232 TG_Lightmap
233 True 233 []
234 D_Lequal 234 ST_Lightmap
235 Nothing 235 True
236 False 236 D_Lequal
237 "Tex_3226210144"] 237 Nothing
238 False) 238 False
239 , ("textures/gothic_block/killblock_i" 239 "Tex_3226210144"]
240 , CommonAttrs 240 False)
241 () 241 , ("textures/gothic_block/killblock_i"
242 () 242 , CommonAttrs
243 False 243 ()
244 (fromInt 0) 244 ()
245 False 245 False
246 False 246 (fromInt 0)
247 CT_FrontSided 247 False
248 [] 248 False
249 False 249 CT_FrontSided
250 False 250 []
251 [StageAttrs 251 False
252 Nothing 252 False
253 RGB_IdentityLighting 253 [StageAttrs
254 A_Identity 254 Nothing
255 TG_Base 255 RGB_IdentityLighting
256 [] 256 A_Identity
257 (ST_Map "textures/gothic_block/killblock_i") 257 TG_Base
258 True 258 []
259 D_Lequal 259 (ST_Map "textures/gothic_block/killblock_i")
260 Nothing 260 True
261 False 261 D_Lequal
262 "Tex_209322640" 262 Nothing
263 , StageAttrs 263 False
264 (Just (B_DstColor, B_Zero)) 264 "Tex_209322640"
265 RGB_IdentityLighting 265 , StageAttrs
266 A_Identity 266 (Just (B_DstColor, B_Zero))
267 TG_Lightmap 267 RGB_IdentityLighting
268 [] 268 A_Identity
269 ST_Lightmap 269 TG_Lightmap
270 True 270 []
271 D_Lequal 271 ST_Lightmap
272 Nothing 272 True
273 False 273 D_Lequal
274 "Tex_3226210144"] 274 Nothing
275 False) 275 False
276 , ("textures/gothic_block/killblock_i4" 276 "Tex_3226210144"]
277 , CommonAttrs 277 False)
278 () 278 , ("textures/gothic_block/killblock_i4"
279 () 279 , CommonAttrs
280 False 280 ()
281 (fromInt 0) 281 ()
282 False 282 False
283 False 283 (fromInt 0)
284 CT_FrontSided 284 False
285 [] 285 False
286 False 286 CT_FrontSided
287 False 287 []
288 [StageAttrs 288 False
289 Nothing 289 False
290 RGB_IdentityLighting 290 [StageAttrs
291 A_Identity 291 Nothing
292 TG_Base 292 RGB_IdentityLighting
293 [] 293 A_Identity
294 (ST_Map "textures/gothic_block/killblock_i4") 294 TG_Base
295 True 295 []
296 D_Lequal 296 (ST_Map "textures/gothic_block/killblock_i4")
297 Nothing 297 True
298 False 298 D_Lequal
299 "Tex_3617993418" 299 Nothing
300 , StageAttrs 300 False
301 (Just (B_DstColor, B_Zero)) 301 "Tex_3617993418"
302 RGB_IdentityLighting 302 , StageAttrs
303 A_Identity 303 (Just (B_DstColor, B_Zero))
304 TG_Lightmap 304 RGB_IdentityLighting
305 [] 305 A_Identity
306 ST_Lightmap 306 TG_Lightmap
307 True 307 []
308 D_Lequal 308 ST_Lightmap
309 Nothing 309 True
310 False 310 D_Lequal
311 "Tex_3226210144"] 311 Nothing
312 False) 312 False
313 , ("textures/gothic_door/km_arena1archfinalc_mid" 313 "Tex_3226210144"]
314 , CommonAttrs 314 False)
315 () 315 , ("textures/gothic_door/km_arena1archfinalc_mid"
316 () 316 , CommonAttrs
317 False 317 ()
318 (fromInt 0) 318 ()
319 False 319 False
320 False 320 (fromInt 0)
321 CT_FrontSided 321 False
322 [] 322 False
323 False 323 CT_FrontSided
324 False 324 []
325 [StageAttrs 325 False
326 Nothing 326 False
327 RGB_IdentityLighting 327 [StageAttrs
328 A_Identity 328 Nothing
329 TG_Base 329 RGB_IdentityLighting
330 [] 330 A_Identity
331 (ST_Map "textures/gothic_door/km_arena1archfinalc_mid") 331 TG_Base
332 True 332 []
333 D_Lequal 333 (ST_Map "textures/gothic_door/km_arena1archfinalc_mid")
334 Nothing 334 True
335 False 335 D_Lequal
336 "Tex_2073154888" 336 Nothing
337 , StageAttrs 337 False
338 (Just (B_DstColor, B_Zero)) 338 "Tex_2073154888"
339 RGB_IdentityLighting 339 , StageAttrs
340 A_Identity 340 (Just (B_DstColor, B_Zero))
341 TG_Lightmap 341 RGB_IdentityLighting
342 [] 342 A_Identity
343 ST_Lightmap 343 TG_Lightmap
344 True 344 []
345 D_Lequal 345 ST_Lightmap
346 Nothing 346 True
347 False 347 D_Lequal
348 "Tex_3226210144"] 348 Nothing
349 False) 349 False
350 , ("textures/gothic_door/km_arena1archfinalc_top" 350 "Tex_3226210144"]
351 , CommonAttrs 351 False)
352 () 352 , ("textures/gothic_door/km_arena1archfinalc_top"
353 () 353 , CommonAttrs
354 False 354 ()
355 (fromInt 0) 355 ()
356 False 356 False
357 False 357 (fromInt 0)
358 CT_FrontSided 358 False
359 [] 359 False
360 False 360 CT_FrontSided
361 False 361 []
362 [StageAttrs 362 False
363 Nothing 363 False
364 RGB_IdentityLighting 364 [StageAttrs
365 A_Identity 365 Nothing
366 TG_Base 366 RGB_IdentityLighting
367 [] 367 A_Identity
368 (ST_Map "textures/gothic_door/km_arena1archfinalc_top") 368 TG_Base
369 True 369 []
370 D_Lequal 370 (ST_Map "textures/gothic_door/km_arena1archfinalc_top")
371 Nothing 371 True
372 False 372 D_Lequal
373 "Tex_3071107621" 373 Nothing
374 , StageAttrs 374 False
375 (Just (B_DstColor, B_Zero)) 375 "Tex_3071107621"
376 RGB_IdentityLighting 376 , StageAttrs
377 A_Identity 377 (Just (B_DstColor, B_Zero))
378 TG_Lightmap 378 RGB_IdentityLighting
379 [] 379 A_Identity
380 ST_Lightmap 380 TG_Lightmap
381 True 381 []
382 D_Lequal 382 ST_Lightmap
383 Nothing 383 True
384 False 384 D_Lequal
385 "Tex_3226210144"] 385 Nothing
386 False) 386 False
387 , ("textures/gothic_door/km_arena1archfinald_bot" 387 "Tex_3226210144"]
388 , CommonAttrs 388 False)
389 () 389 , ("textures/gothic_door/km_arena1archfinald_bot"
390 () 390 , CommonAttrs
391 False 391 ()
392 (fromInt 0) 392 ()
393 False 393 False
394 False 394 (fromInt 0)
395 CT_FrontSided 395 False
396 [] 396 False
397 False 397 CT_FrontSided
398 False 398 []
399 [StageAttrs 399 False
400 Nothing 400 False
401 RGB_IdentityLighting 401 [StageAttrs
402 A_Identity 402 Nothing
403 TG_Base 403 RGB_IdentityLighting
404 [] 404 A_Identity
405 (ST_Map "textures/gothic_door/km_arena1archfinald_bot") 405 TG_Base
406 True 406 []
407 D_Lequal 407 (ST_Map "textures/gothic_door/km_arena1archfinald_bot")
408 Nothing 408 True
409 False 409 D_Lequal
410 "Tex_1201212243" 410 Nothing
411 , StageAttrs 411 False
412 (Just (B_DstColor, B_Zero)) 412 "Tex_1201212243"
413 RGB_IdentityLighting 413 , StageAttrs
414 A_Identity 414 (Just (B_DstColor, B_Zero))
415 TG_Lightmap 415 RGB_IdentityLighting
416 [] 416 A_Identity
417 ST_Lightmap 417 TG_Lightmap
418 True 418 []
419 D_Lequal 419 ST_Lightmap
420 Nothing 420 True
421 False 421 D_Lequal
422 "Tex_3226210144"] 422 Nothing
423 False) 423 False
424 , ("textures/gothic_door/km_arena1archfinald_mid" 424 "Tex_3226210144"]
425 , CommonAttrs 425 False)
426 () 426 , ("textures/gothic_door/km_arena1archfinald_mid"
427 () 427 , CommonAttrs
428 False 428 ()
429 (fromInt 0) 429 ()
430 False 430 False
431 False 431 (fromInt 0)
432 CT_FrontSided 432 False
433 [] 433 False
434 False 434 CT_FrontSided
435 False 435 []
436 [StageAttrs 436 False
437 Nothing 437 False
438 RGB_IdentityLighting 438 [StageAttrs
439 A_Identity 439 Nothing
440 TG_Base 440 RGB_IdentityLighting
441 [] 441 A_Identity
442 (ST_Map "textures/gothic_door/km_arena1archfinald_mid") 442 TG_Base
443 True 443 []
444 D_Lequal 444 (ST_Map "textures/gothic_door/km_arena1archfinald_mid")
445 Nothing 445 True
446 False 446 D_Lequal
447 "Tex_3768122504" 447 Nothing
448 , StageAttrs 448 False
449 (Just (B_DstColor, B_Zero)) 449 "Tex_3768122504"
450 RGB_IdentityLighting 450 , StageAttrs
451 A_Identity 451 (Just (B_DstColor, B_Zero))
452 TG_Lightmap 452 RGB_IdentityLighting
453 [] 453 A_Identity
454 ST_Lightmap 454 TG_Lightmap
455 True 455 []
456 D_Lequal 456 ST_Lightmap
457 Nothing 457 True
458 False 458 D_Lequal
459 "Tex_3226210144"] 459 Nothing
460 False) 460 False
461 , ("textures/gothic_door/skull_door_a" 461 "Tex_3226210144"]
462 , CommonAttrs 462 False)
463 () 463 , ("textures/gothic_door/skull_door_a"
464 () 464 , CommonAttrs
465 False 465 ()
466 (fromInt 0) 466 ()
467 False 467 False
468 False 468 (fromInt 0)
469 CT_FrontSided 469 False
470 [] 470 False
471 False 471 CT_FrontSided
472 False 472 []
473 [StageAttrs 473 False
474 Nothing 474 False
475 RGB_IdentityLighting 475 [StageAttrs
476 A_Identity 476 Nothing
477 TG_Base 477 RGB_IdentityLighting
478 [] 478 A_Identity
479 (ST_Map "textures/gothic_door/skull_door_a") 479 TG_Base
480 True 480 []
481 D_Lequal 481 (ST_Map "textures/gothic_door/skull_door_a")
482 Nothing 482 True
483 False 483 D_Lequal
484 "Tex_1284708166" 484 Nothing
485 , StageAttrs 485 False
486 (Just (B_DstColor, B_Zero)) 486 "Tex_1284708166"
487 RGB_IdentityLighting 487 , StageAttrs
488 A_Identity 488 (Just (B_DstColor, B_Zero))
489 TG_Lightmap 489 RGB_IdentityLighting
490 [] 490 A_Identity
491 ST_Lightmap 491 TG_Lightmap
492 True 492 []
493 D_Lequal 493 ST_Lightmap
494 Nothing 494 True
495 False 495 D_Lequal
496 "Tex_3226210144"] 496 Nothing
497 False) 497 False
498 , ("textures/gothic_door/skull_door_b" 498 "Tex_3226210144"]
499 , CommonAttrs 499 False)
500 () 500 , ("textures/gothic_door/skull_door_b"
501 () 501 , CommonAttrs
502 False 502 ()
503 (fromInt 0) 503 ()
504 False 504 False
505 False 505 (fromInt 0)
506 CT_FrontSided 506 False
507 [] 507 False
508 False 508 CT_FrontSided
509 False 509 []
510 [StageAttrs 510 False
511 Nothing 511 False
512 RGB_IdentityLighting 512 [StageAttrs
513 A_Identity 513 Nothing
514 TG_Base 514 RGB_IdentityLighting
515 [] 515 A_Identity
516 (ST_Map "textures/gothic_door/skull_door_b") 516 TG_Base
517 True 517 []
518 D_Lequal 518 (ST_Map "textures/gothic_door/skull_door_b")
519 Nothing 519 True
520 False 520 D_Lequal
521 "Tex_1318715778" 521 Nothing
522 , StageAttrs 522 False
523 (Just (B_DstColor, B_Zero)) 523 "Tex_1318715778"
524 RGB_IdentityLighting 524 , StageAttrs
525 A_Identity 525 (Just (B_DstColor, B_Zero))
526 TG_Lightmap 526 RGB_IdentityLighting
527 [] 527 A_Identity
528 ST_Lightmap 528 TG_Lightmap
529 True 529 []
530 D_Lequal 530 ST_Lightmap
531 Nothing 531 True
532 False 532 D_Lequal
533 "Tex_3226210144"] 533 Nothing
534 False) 534 False
535 , ("textures/gothic_door/skull_door_c" 535 "Tex_3226210144"]
536 , CommonAttrs 536 False)
537 () 537 , ("textures/gothic_door/skull_door_c"
538 () 538 , CommonAttrs
539 False 539 ()
540 (fromInt 0) 540 ()
541 False 541 False
542 False 542 (fromInt 0)
543 CT_FrontSided 543 False
544 [] 544 False
545 False 545 CT_FrontSided
546 False 546 []
547 [StageAttrs 547 False
548 Nothing 548 False
549 RGB_IdentityLighting 549 [StageAttrs
550 A_Identity 550 Nothing
551 TG_Base 551 RGB_IdentityLighting
552 [] 552 A_Identity
553 (ST_Map "textures/gothic_door/skull_door_c") 553 TG_Base
554 True 554 []
555 D_Lequal 555 (ST_Map "textures/gothic_door/skull_door_c")
556 Nothing 556 True
557 False 557 D_Lequal
558 "Tex_4189195777" 558 Nothing
559 , StageAttrs 559 False
560 (Just (B_DstColor, B_Zero)) 560 "Tex_4189195777"
561 RGB_IdentityLighting 561 , StageAttrs
562 A_Identity 562 (Just (B_DstColor, B_Zero))
563 TG_Lightmap 563 RGB_IdentityLighting
564 [] 564 A_Identity
565 ST_Lightmap 565 TG_Lightmap
566 True 566 []
567 D_Lequal 567 ST_Lightmap
568 Nothing 568 True
569 False 569 D_Lequal
570 "Tex_3226210144"] 570 Nothing
571 False) 571 False
572 , ("textures/gothic_door/skull_door_d" 572 "Tex_3226210144"]
573 , CommonAttrs 573 False)
574 () 574 , ("textures/gothic_door/skull_door_d"
575 () 575 , CommonAttrs
576 False 576 ()
577 (fromInt 0) 577 ()
578 False 578 False
579 False 579 (fromInt 0)
580 CT_FrontSided 580 False
581 [] 581 False
582 False 582 CT_FrontSided
583 False 583 []
584 [StageAttrs 584 False
585 Nothing 585 False
586 RGB_IdentityLighting 586 [StageAttrs
587 A_Identity 587 Nothing
588 TG_Base 588 RGB_IdentityLighting
589 [] 589 A_Identity
590 (ST_Map "textures/gothic_door/skull_door_d") 590 TG_Base
591 True 591 []
592 D_Lequal 592 (ST_Map "textures/gothic_door/skull_door_d")
593 Nothing 593 True
594 False 594 D_Lequal
595 "Tex_1250438154" 595 Nothing
596 , StageAttrs 596 False
597 (Just (B_DstColor, B_Zero)) 597 "Tex_1250438154"
598 RGB_IdentityLighting 598 , StageAttrs
599 A_Identity 599 (Just (B_DstColor, B_Zero))
600 TG_Lightmap 600 RGB_IdentityLighting
601 [] 601 A_Identity
602 ST_Lightmap 602 TG_Lightmap
603 True 603 []
604 D_Lequal 604 ST_Lightmap
605 Nothing 605 True
606 False 606 D_Lequal
607 "Tex_3226210144"] 607 Nothing
608 False) 608 False
609 , ("textures/gothic_door/skull_door_e" 609 "Tex_3226210144"]
610 , CommonAttrs 610 False)
611 () 611 , ("textures/gothic_door/skull_door_e"
612 () 612 , CommonAttrs
613 False 613 ()
614 (fromInt 0) 614 ()
615 False 615 False
616 False 616 (fromInt 0)
617 CT_FrontSided 617 False
618 [] 618 False
619 False 619 CT_FrontSided
620 False 620 []
621 [StageAttrs 621 False
622 Nothing 622 False
623 RGB_IdentityLighting 623 [StageAttrs
624 A_Identity 624 Nothing
625 TG_Base 625 RGB_IdentityLighting
626 [] 626 A_Identity
627 (ST_Map "textures/gothic_door/skull_door_e") 627 TG_Base
628 True 628 []
629 D_Lequal 629 (ST_Map "textures/gothic_door/skull_door_e")
630 Nothing 630 True
631 False 631 D_Lequal
632 "Tex_4255130505" 632 Nothing
633 , StageAttrs 633 False
634 (Just (B_DstColor, B_Zero)) 634 "Tex_4255130505"
635 RGB_IdentityLighting 635 , StageAttrs
636 A_Identity 636 (Just (B_DstColor, B_Zero))
637 TG_Lightmap 637 RGB_IdentityLighting
638 [] 638 A_Identity
639 ST_Lightmap 639 TG_Lightmap
640 True 640 []
641 D_Lequal 641 ST_Lightmap
642 Nothing 642 True
643 False 643 D_Lequal
644 "Tex_3226210144"] 644 Nothing
645 False) 645 False
646 , ("textures/gothic_door/skull_door_f" 646 "Tex_3226210144"]
647 , CommonAttrs 647 False)
648 () 648 , ("textures/gothic_door/skull_door_f"
649 () 649 , CommonAttrs
650 False 650 ()
651 (fromInt 0) 651 ()
652 False 652 False
653 False 653 (fromInt 0)
654 CT_FrontSided 654 False
655 [] 655 False
656 False 656 CT_FrontSided
657 False 657 []
658 [StageAttrs 658 False
659 Nothing 659 False
660 RGB_IdentityLighting 660 [StageAttrs
661 A_Identity 661 Nothing
662 TG_Base 662 RGB_IdentityLighting
663 [] 663 A_Identity
664 (ST_Map "textures/gothic_door/skull_door_f") 664 TG_Base
665 True 665 []
666 D_Lequal 666 (ST_Map "textures/gothic_door/skull_door_f")
667 Nothing 667 True
668 False 668 D_Lequal
669 "Tex_4289279309" 669 Nothing
670 , StageAttrs 670 False
671 (Just (B_DstColor, B_Zero)) 671 "Tex_4289279309"
672 RGB_IdentityLighting 672 , StageAttrs
673 A_Identity 673 (Just (B_DstColor, B_Zero))
674 TG_Lightmap 674 RGB_IdentityLighting
675 [] 675 A_Identity
676 ST_Lightmap 676 TG_Lightmap
677 True 677 []
678 D_Lequal 678 ST_Lightmap
679 Nothing 679 True
680 False 680 D_Lequal
681 "Tex_3226210144"] 681 Nothing
682 False) 682 False
683 , ("textures/gothic_door/skullarch_a" 683 "Tex_3226210144"]
684 , CommonAttrs 684 False)
685 () 685 , ("textures/gothic_door/skullarch_a"
686 () 686 , CommonAttrs
687 False 687 ()
688 (fromInt 0) 688 ()
689 False 689 False
690 False 690 (fromInt 0)
691 CT_FrontSided 691 False
692 [] 692 False
693 False 693 CT_FrontSided
694 False 694 []
695 [StageAttrs 695 False
696 Nothing 696 False
697 RGB_IdentityLighting 697 [StageAttrs
698 A_Identity 698 Nothing
699 TG_Base 699 RGB_IdentityLighting
700 [] 700 A_Identity
701 (ST_Map "textures/gothic_door/skullarch_a") 701 TG_Base
702 True 702 []
703 D_Lequal 703 (ST_Map "textures/gothic_door/skullarch_a")
704 Nothing 704 True
705 False 705 D_Lequal
706 "Tex_3448884269" 706 Nothing
707 , StageAttrs 707 False
708 (Just (B_DstColor, B_Zero)) 708 "Tex_3448884269"
709 RGB_IdentityLighting 709 , StageAttrs
710 A_Identity 710 (Just (B_DstColor, B_Zero))
711 TG_Lightmap 711 RGB_IdentityLighting
712 [] 712 A_Identity
713 ST_Lightmap 713 TG_Lightmap
714 True 714 []
715 D_Lequal 715 ST_Lightmap
716 Nothing 716 True
717 False 717 D_Lequal
718 "Tex_3226210144"] 718 Nothing
719 False) 719 False
720 , ("textures/gothic_door/skullarch_b" 720 "Tex_3226210144"]
721 , CommonAttrs 721 False)
722 () 722 , ("textures/gothic_door/skullarch_b"
723 () 723 , CommonAttrs
724 False 724 ()
725 (fromInt 3) 725 ()
726 False 726 False
727 False 727 (fromInt 3)
728 CT_FrontSided 728 False
729 [] 729 False
730 False 730 CT_FrontSided
731 False 731 []
732 [StageAttrs 732 False
733 Nothing 733 False
734 RGB_Identity 734 [StageAttrs
735 A_Identity 735 Nothing
736 TG_Base 736 RGB_Identity
737 [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 5.6, TM_Scale 1.5 1.5] 737 A_Identity
738 (ST_Map "textures/sfx/firegorre.tga") 738 TG_Base
739 True 739 [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 5.6, TM_Scale 1.5 1.5]
740 D_Lequal 740 (ST_Map "textures/sfx/firegorre.tga")
741 Nothing 741 True
742 False 742 D_Lequal
743 "Tex_3416962274" 743 Nothing
744 , StageAttrs 744 False
745 (Just (B_SrcAlpha, B_OneMinusSrcAlpha)) 745 "Tex_3416962274"
746 RGB_Identity 746 , StageAttrs
747 A_Identity 747 (Just (B_SrcAlpha, B_OneMinusSrcAlpha))
748 TG_Base 748 RGB_Identity
749 [] 749 A_Identity
750 (ST_Map "textures/gothic_door/skullarch_b.tga") 750 TG_Base
751 False 751 []
752 D_Lequal 752 (ST_Map "textures/gothic_door/skullarch_b.tga")
753 Nothing 753 False
754 False 754 D_Lequal
755 "Tex_4077187607" 755 Nothing
756 , StageAttrs 756 False
757 (Just (B_DstColor, B_Zero)) 757 "Tex_4077187607"
758 RGB_Identity 758 , StageAttrs
759 A_Identity 759 (Just (B_DstColor, B_Zero))
760 TG_Lightmap 760 RGB_Identity
761 [] 761 A_Identity
762 ST_Lightmap 762 TG_Lightmap
763 False 763 []
764 D_Lequal 764 ST_Lightmap
765 Nothing 765 False
766 False 766 D_Lequal
767 "Tex_1196599720"] 767 Nothing
768 False) 768 False
769 , ("textures/gothic_door/skullarch_c" 769 "Tex_1196599720"]
770 , CommonAttrs 770 False)
771 () 771 , ("textures/gothic_door/skullarch_c"
772 () 772 , CommonAttrs
773 False 773 ()
774 (fromInt 0) 774 ()
775 False 775 False
776 False 776 (fromInt 0)
777 CT_FrontSided 777 False
778 [] 778 False
779 False 779 CT_FrontSided
780 False 780 []
781 [StageAttrs 781 False
782 Nothing 782 False
783 RGB_IdentityLighting 783 [StageAttrs
784 A_Identity 784 Nothing
785 TG_Base 785 RGB_IdentityLighting
786 [] 786 A_Identity
787 (ST_Map "textures/gothic_door/skullarch_c") 787 TG_Base
788 True 788 []
789 D_Lequal 789 (ST_Map "textures/gothic_door/skullarch_c")
790 Nothing 790 True
791 False 791 D_Lequal
792 "Tex_2024854890" 792 Nothing
793 , StageAttrs 793 False
794 (Just (B_DstColor, B_Zero)) 794 "Tex_2024854890"
795 RGB_IdentityLighting 795 , StageAttrs
796 A_Identity 796 (Just (B_DstColor, B_Zero))
797 TG_Lightmap 797 RGB_IdentityLighting
798 [] 798 A_Identity
799 ST_Lightmap 799 TG_Lightmap
800 True 800 []
801 D_Lequal 801 ST_Lightmap
802 Nothing 802 True
803 False 803 D_Lequal
804 "Tex_3226210144"] 804 Nothing
805 False) 805 False
806 , ("textures/gothic_door/xian_tourneyarch_inside2" 806 "Tex_3226210144"]
807 , CommonAttrs 807 False)
808 () 808 , ("textures/gothic_door/xian_tourneyarch_inside2"
809 () 809 , CommonAttrs
810 False 810 ()
811 (fromInt 0) 811 ()
812 False 812 False
813 False 813 (fromInt 0)
814 CT_FrontSided 814 False
815 [] 815 False
816 False 816 CT_FrontSided
817 False 817 []
818 [StageAttrs 818 False
819 Nothing 819 False
820 RGB_IdentityLighting 820 [StageAttrs
821 A_Identity 821 Nothing
822 TG_Base 822 RGB_IdentityLighting
823 [] 823 A_Identity
824 (ST_Map "textures/gothic_door/xian_tourneyarch_inside2") 824 TG_Base
825 True 825 []
826 D_Lequal 826 (ST_Map "textures/gothic_door/xian_tourneyarch_inside2")
827 Nothing 827 True
828 False 828 D_Lequal
829 "Tex_1435187472" 829 Nothing
830 , StageAttrs 830 False
831 (Just (B_DstColor, B_Zero)) 831 "Tex_1435187472"
832 RGB_IdentityLighting 832 , StageAttrs
833 A_Identity 833 (Just (B_DstColor, B_Zero))
834 TG_Lightmap 834 RGB_IdentityLighting
835 [] 835 A_Identity
836 ST_Lightmap 836 TG_Lightmap
837 True 837 []
838 D_Lequal 838 ST_Lightmap
839 Nothing 839 True
840 False 840 D_Lequal
841 "Tex_3226210144"] 841 Nothing
842 False) 842 False
843 , ("textures/gothic_floor/blocks17floor2" 843 "Tex_3226210144"]
844 , CommonAttrs 844 False)
845 () 845 , ("textures/gothic_floor/blocks17floor2"
846 () 846 , CommonAttrs
847 False 847 ()
848 (fromInt 0) 848 ()
849 False 849 False
850 False 850 (fromInt 0)
851 CT_FrontSided 851 False
852 [] 852 False
853 False 853 CT_FrontSided
854 False 854 []
855 [StageAttrs 855 False
856 Nothing 856 False
857 RGB_IdentityLighting 857 [StageAttrs
858 A_Identity 858 Nothing
859 TG_Base 859 RGB_IdentityLighting
860 [] 860 A_Identity
861 (ST_Map "textures/gothic_floor/blocks17floor2") 861 TG_Base
862 True 862 []
863 D_Lequal 863 (ST_Map "textures/gothic_floor/blocks17floor2")
864 Nothing 864 True
865 False 865 D_Lequal
866 "Tex_3814342582" 866 Nothing
867 , StageAttrs 867 False
868 (Just (B_DstColor, B_Zero)) 868 "Tex_3814342582"
869 RGB_IdentityLighting 869 , StageAttrs
870 A_Identity 870 (Just (B_DstColor, B_Zero))
871 TG_Lightmap 871 RGB_IdentityLighting
872 [] 872 A_Identity
873 ST_Lightmap 873 TG_Lightmap
874 True 874 []
875 D_Lequal 875 ST_Lightmap
876 Nothing 876 True
877 False 877 D_Lequal
878 "Tex_3226210144"] 878 Nothing
879 False) 879 False
880 , ("textures/gothic_floor/largerblock3b" 880 "Tex_3226210144"]
881 , CommonAttrs 881 False)
882 () 882 , ("textures/gothic_floor/largerblock3b"
883 () 883 , CommonAttrs
884 False 884 ()
885 (fromInt 0) 885 ()
886 False 886 False
887 False 887 (fromInt 0)
888 CT_FrontSided 888 False
889 [] 889 False
890 False 890 CT_FrontSided
891 False 891 []
892 [StageAttrs 892 False
893 Nothing 893 False
894 RGB_IdentityLighting 894 [StageAttrs
895 A_Identity 895 Nothing
896 TG_Base 896 RGB_IdentityLighting
897 [] 897 A_Identity
898 (ST_Map "textures/gothic_floor/largerblock3b") 898 TG_Base
899 True 899 []
900 D_Lequal 900 (ST_Map "textures/gothic_floor/largerblock3b")
901 Nothing 901 True
902 False 902 D_Lequal
903 "Tex_2966885788" 903 Nothing
904 , StageAttrs 904 False
905 (Just (B_DstColor, B_Zero)) 905 "Tex_2966885788"
906 RGB_IdentityLighting 906 , StageAttrs
907 A_Identity 907 (Just (B_DstColor, B_Zero))
908 TG_Lightmap 908 RGB_IdentityLighting
909 [] 909 A_Identity
910 ST_Lightmap 910 TG_Lightmap
911 True 911 []
912 D_Lequal 912 ST_Lightmap
913 Nothing 913 True
914 False 914 D_Lequal
915 "Tex_3226210144"] 915 Nothing
916 False) 916 False
917 , ("textures/gothic_floor/metalbridge06" 917 "Tex_3226210144"]
918 , CommonAttrs 918 False)
919 () 919 , ("textures/gothic_floor/metalbridge06"
920 () 920 , CommonAttrs
921 False 921 ()
922 (fromInt 0) 922 ()
923 False 923 False
924 False 924 (fromInt 0)
925 CT_FrontSided 925 False
926 [] 926 False
927 False 927 CT_FrontSided
928 False 928 []
929 [StageAttrs 929 False
930 Nothing 930 False
931 RGB_IdentityLighting 931 [StageAttrs
932 A_Identity 932 Nothing
933 TG_Base 933 RGB_IdentityLighting
934 [] 934 A_Identity
935 (ST_Map "textures/gothic_floor/metalbridge06") 935 TG_Base
936 True 936 []
937 D_Lequal 937 (ST_Map "textures/gothic_floor/metalbridge06")
938 Nothing 938 True
939 False 939 D_Lequal
940 "Tex_1581337759" 940 Nothing
941 , StageAttrs 941 False
942 (Just (B_DstColor, B_Zero)) 942 "Tex_1581337759"
943 RGB_IdentityLighting 943 , StageAttrs
944 A_Identity 944 (Just (B_DstColor, B_Zero))
945 TG_Lightmap 945 RGB_IdentityLighting
946 [] 946 A_Identity
947 ST_Lightmap 947 TG_Lightmap
948 True 948 []
949 D_Lequal 949 ST_Lightmap
950 Nothing 950 True
951 False 951 D_Lequal
952 "Tex_3226210144"] 952 Nothing
953 False) 953 False
954 , ("textures/gothic_floor/metalbridge06broke" 954 "Tex_3226210144"]
955 , CommonAttrs 955 False)
956 () 956 , ("textures/gothic_floor/metalbridge06broke"
957 () 957 , CommonAttrs
958 False 958 ()
959 (fromInt 0) 959 ()
960 False 960 False
961 False 961 (fromInt 0)
962 CT_FrontSided 962 False
963 [] 963 False
964 False 964 CT_FrontSided
965 False 965 []
966 [StageAttrs 966 False
967 Nothing 967 False
968 RGB_IdentityLighting 968 [StageAttrs
969 A_Identity 969 Nothing
970 TG_Base 970 RGB_IdentityLighting
971 [] 971 A_Identity
972 (ST_Map "textures/gothic_floor/metalbridge06broke") 972 TG_Base
973 True 973 []
974 D_Lequal 974 (ST_Map "textures/gothic_floor/metalbridge06broke")
975 Nothing 975 True
976 False 976 D_Lequal
977 "Tex_3921745736" 977 Nothing
978 , StageAttrs 978 False
979 (Just (B_DstColor, B_Zero)) 979 "Tex_3921745736"
980 RGB_IdentityLighting 980 , StageAttrs
981 A_Identity 981 (Just (B_DstColor, B_Zero))
982 TG_Lightmap 982 RGB_IdentityLighting
983 [] 983 A_Identity
984 ST_Lightmap 984 TG_Lightmap
985 True 985 []
986 D_Lequal 986 ST_Lightmap
987 Nothing 987 True
988 False 988 D_Lequal
989 "Tex_3226210144"] 989 Nothing
990 False) 990 False
991 , ("textures/gothic_floor/xstairtop4" 991 "Tex_3226210144"]
992 , CommonAttrs 992 False)
993 () 993 , ("textures/gothic_floor/xstairtop4"
994 () 994 , CommonAttrs
995 False 995 ()
996 (fromInt 0) 996 ()
997 False 997 False
998 False 998 (fromInt 0)
999 CT_FrontSided 999 False
1000 [] 1000 False
1001 False 1001 CT_FrontSided
1002 False 1002 []
1003 [StageAttrs 1003 False
1004 Nothing 1004 False
1005 RGB_IdentityLighting 1005 [StageAttrs
1006 A_Identity 1006 Nothing
1007 TG_Base 1007 RGB_IdentityLighting
1008 [] 1008 A_Identity
1009 (ST_Map "textures/gothic_floor/xstairtop4") 1009 TG_Base
1010 True 1010 []
1011 D_Lequal 1011 (ST_Map "textures/gothic_floor/xstairtop4")
1012 Nothing 1012 True
1013 False 1013 D_Lequal
1014 "Tex_3836020895" 1014 Nothing
1015 , StageAttrs 1015 False
1016 (Just (B_DstColor, B_Zero)) 1016 "Tex_3836020895"
1017 RGB_IdentityLighting 1017 , StageAttrs
1018 A_Identity 1018 (Just (B_DstColor, B_Zero))
1019 TG_Lightmap 1019 RGB_IdentityLighting
1020 [] 1020 A_Identity
1021 ST_Lightmap 1021 TG_Lightmap
1022 True 1022 []
1023 D_Lequal 1023 ST_Lightmap
1024 Nothing 1024 True
1025 False 1025 D_Lequal
1026 "Tex_3226210144"] 1026 Nothing
1027 False) 1027 False
1028 , ("textures/gothic_floor/xstepborder3" 1028 "Tex_3226210144"]
1029 , CommonAttrs 1029 False)
1030 () 1030 , ("textures/gothic_floor/xstepborder3"
1031 () 1031 , CommonAttrs
1032 False 1032 ()
1033 (fromInt 0) 1033 ()
1034 False 1034 False
1035 False 1035 (fromInt 0)
1036 CT_FrontSided 1036 False
1037 [] 1037 False
1038 False 1038 CT_FrontSided
1039 False 1039 []
1040 [StageAttrs 1040 False
1041 Nothing 1041 False
1042 RGB_IdentityLighting 1042 [StageAttrs
1043 A_Identity 1043 Nothing
1044 TG_Base 1044 RGB_IdentityLighting
1045 [] 1045 A_Identity
1046 (ST_Map "textures/gothic_floor/xstepborder3") 1046 TG_Base
1047 True 1047 []
1048 D_Lequal 1048 (ST_Map "textures/gothic_floor/xstepborder3")
1049 Nothing 1049 True
1050 False 1050 D_Lequal
1051 "Tex_3269743316" 1051 Nothing
1052 , StageAttrs 1052 False
1053 (Just (B_DstColor, B_Zero)) 1053 "Tex_3269743316"
1054 RGB_IdentityLighting 1054 , StageAttrs
1055 A_Identity 1055 (Just (B_DstColor, B_Zero))
1056 TG_Lightmap 1056 RGB_IdentityLighting
1057 [] 1057 A_Identity
1058 ST_Lightmap 1058 TG_Lightmap
1059 True 1059 []
1060 D_Lequal 1060 ST_Lightmap
1061 Nothing 1061 True
1062 False 1062 D_Lequal
1063 "Tex_3226210144"] 1063 Nothing
1064 False) 1064 False
1065 , ("textures/gothic_trim/baseboard04" 1065 "Tex_3226210144"]
1066 , CommonAttrs 1066 False)
1067 () 1067 , ("textures/gothic_trim/baseboard04"
1068 () 1068 , CommonAttrs
1069 False 1069 ()
1070 (fromInt 0) 1070 ()
1071 False 1071 False
1072 False 1072 (fromInt 0)
1073 CT_FrontSided 1073 False
1074 [] 1074 False
1075 False 1075 CT_FrontSided
1076 False 1076 []
1077 [StageAttrs 1077 False
1078 Nothing 1078 False
1079 RGB_IdentityLighting 1079 [StageAttrs
1080 A_Identity 1080 Nothing
1081 TG_Base 1081 RGB_IdentityLighting
1082 [] 1082 A_Identity
1083 (ST_Map "textures/gothic_trim/baseboard04") 1083 TG_Base
1084 True 1084 []
1085 D_Lequal 1085 (ST_Map "textures/gothic_trim/baseboard04")
1086 Nothing 1086 True
1087 False 1087 D_Lequal
1088 "Tex_1002517541" 1088 Nothing
1089 , StageAttrs 1089 False
1090 (Just (B_DstColor, B_Zero)) 1090 "Tex_1002517541"
1091 RGB_IdentityLighting 1091 , StageAttrs
1092 A_Identity 1092 (Just (B_DstColor, B_Zero))
1093 TG_Lightmap 1093 RGB_IdentityLighting
1094 [] 1094 A_Identity
1095 ST_Lightmap 1095 TG_Lightmap
1096 True 1096 []
1097 D_Lequal 1097 ST_Lightmap
1098 Nothing 1098 True
1099 False 1099 D_Lequal
1100 "Tex_3226210144"] 1100 Nothing
1101 False) 1101 False
1102 , ("textures/gothic_trim/baseboard09_c3" 1102 "Tex_3226210144"]
1103 , CommonAttrs 1103 False)
1104 () 1104 , ("textures/gothic_trim/baseboard09_c3"
1105 () 1105 , CommonAttrs
1106 False 1106 ()
1107 (fromInt 0) 1107 ()
1108 False 1108 False
1109 False 1109 (fromInt 0)
1110 CT_FrontSided 1110 False
1111 [] 1111 False
1112 False 1112 CT_FrontSided
1113 False 1113 []
1114 [StageAttrs 1114 False
1115 Nothing 1115 False
1116 RGB_IdentityLighting 1116 [StageAttrs
1117 A_Identity 1117 Nothing
1118 TG_Base 1118 RGB_IdentityLighting
1119 [] 1119 A_Identity
1120 (ST_Map "textures/gothic_trim/baseboard09_c3") 1120 TG_Base
1121 True 1121 []
1122 D_Lequal 1122 (ST_Map "textures/gothic_trim/baseboard09_c3")
1123 Nothing 1123 True
1124 False 1124 D_Lequal
1125 "Tex_2289735512" 1125 Nothing
1126 , StageAttrs 1126 False
1127 (Just (B_DstColor, B_Zero)) 1127 "Tex_2289735512"
1128 RGB_IdentityLighting 1128 , StageAttrs
1129 A_Identity 1129 (Just (B_DstColor, B_Zero))
1130 TG_Lightmap 1130 RGB_IdentityLighting
1131 [] 1131 A_Identity
1132 ST_Lightmap 1132 TG_Lightmap
1133 True 1133 []
1134 D_Lequal 1134 ST_Lightmap
1135 Nothing 1135 True
1136 False 1136 D_Lequal
1137 "Tex_3226210144"] 1137 Nothing
1138 False) 1138 False
1139 , ("textures/gothic_trim/baseboard09_e" 1139 "Tex_3226210144"]
1140 , CommonAttrs 1140 False)
1141 () 1141 , ("textures/gothic_trim/baseboard09_e"
1142 () 1142 , CommonAttrs
1143 False 1143 ()
1144 (fromInt 0) 1144 ()
1145 False 1145 False
1146 False 1146 (fromInt 0)
1147 CT_FrontSided 1147 False
1148 [] 1148 False
1149 False 1149 CT_FrontSided
1150 False 1150 []
1151 [StageAttrs 1151 False
1152 Nothing 1152 False
1153 RGB_IdentityLighting 1153 [StageAttrs
1154 A_Identity 1154 Nothing
1155 TG_Base 1155 RGB_IdentityLighting
1156 [] 1156 A_Identity
1157 (ST_Map "textures/gothic_trim/baseboard09_e") 1157 TG_Base
1158 True 1158 []
1159 D_Lequal 1159 (ST_Map "textures/gothic_trim/baseboard09_e")
1160 Nothing 1160 True
1161 False 1161 D_Lequal
1162 "Tex_2367525081" 1162 Nothing
1163 , StageAttrs 1163 False
1164 (Just (B_DstColor, B_Zero)) 1164 "Tex_2367525081"
1165 RGB_IdentityLighting 1165 , StageAttrs
1166 A_Identity 1166 (Just (B_DstColor, B_Zero))
1167 TG_Lightmap 1167 RGB_IdentityLighting
1168 [] 1168 A_Identity
1169 ST_Lightmap 1169 TG_Lightmap
1170 True 1170 []
1171 D_Lequal 1171 ST_Lightmap
1172 Nothing 1172 True
1173 False 1173 D_Lequal
1174 "Tex_3226210144"] 1174 Nothing
1175 False) 1175 False
1176 , ("textures/gothic_trim/baseboard09_e2" 1176 "Tex_3226210144"]
1177 , CommonAttrs 1177 False)
1178 () 1178 , ("textures/gothic_trim/baseboard09_e2"
1179 () 1179 , CommonAttrs
1180 False 1180 ()
1181 (fromInt 0) 1181 ()
1182 False 1182 False
1183 False 1183 (fromInt 0)
1184 CT_FrontSided 1184 False
1185 [] 1185 False
1186 False 1186 CT_FrontSided
1187 False 1187 []
1188 [StageAttrs 1188 False
1189 Nothing 1189 False
1190 RGB_IdentityLighting 1190 [StageAttrs
1191 A_Identity 1191 Nothing
1192 TG_Base 1192 RGB_IdentityLighting
1193 [] 1193 A_Identity
1194 (ST_Map "textures/gothic_trim/baseboard09_e2") 1194 TG_Base
1195 True 1195 []
1196 D_Lequal 1196 (ST_Map "textures/gothic_trim/baseboard09_e2")
1197 Nothing 1197 True
1198 False 1198 D_Lequal
1199 "Tex_3694494180" 1199 Nothing
1200 , StageAttrs 1200 False
1201 (Just (B_DstColor, B_Zero)) 1201 "Tex_3694494180"
1202 RGB_IdentityLighting 1202 , StageAttrs
1203 A_Identity 1203 (Just (B_DstColor, B_Zero))
1204 TG_Lightmap 1204 RGB_IdentityLighting
1205 [] 1205 A_Identity
1206 ST_Lightmap 1206 TG_Lightmap
1207 True 1207 []
1208 D_Lequal 1208 ST_Lightmap
1209 Nothing 1209 True
1210 False 1210 D_Lequal
1211 "Tex_3226210144"] 1211 Nothing
1212 False) 1212 False
1213 , ("textures/gothic_trim/baseboard09_l2" 1213 "Tex_3226210144"]
1214 , CommonAttrs 1214 False)
1215 () 1215 , ("textures/gothic_trim/baseboard09_l2"
1216 () 1216 , CommonAttrs
1217 False 1217 ()
1218 (fromInt 0) 1218 ()
1219 False 1219 False
1220 False 1220 (fromInt 0)
1221 CT_FrontSided 1221 False
1222 [] 1222 False
1223 False 1223 CT_FrontSided
1224 False 1224 []
1225 [StageAttrs 1225 False
1226 Nothing 1226 False
1227 RGB_IdentityLighting 1227 [StageAttrs
1228 A_Identity 1228 Nothing
1229 TG_Base 1229 RGB_IdentityLighting
1230 [] 1230 A_Identity
1231 (ST_Map "textures/gothic_trim/baseboard09_l2") 1231 TG_Base
1232 True 1232 []
1233 D_Lequal 1233 (ST_Map "textures/gothic_trim/baseboard09_l2")
1234 Nothing 1234 True
1235 False 1235 D_Lequal
1236 "Tex_3202786139" 1236 Nothing
1237 , StageAttrs 1237 False
1238 (Just (B_DstColor, B_Zero)) 1238 "Tex_3202786139"
1239 RGB_IdentityLighting 1239 , StageAttrs
1240 A_Identity 1240 (Just (B_DstColor, B_Zero))
1241 TG_Lightmap 1241 RGB_IdentityLighting
1242 [] 1242 A_Identity
1243 ST_Lightmap 1243 TG_Lightmap
1244 True 1244 []
1245 D_Lequal 1245 ST_Lightmap
1246 Nothing 1246 True
1247 False 1247 D_Lequal
1248 "Tex_3226210144"] 1248 Nothing
1249 False) 1249 False
1250 , ("textures/gothic_trim/baseboard09_o3" 1250 "Tex_3226210144"]
1251 , CommonAttrs 1251 False)
1252 () 1252 , ("textures/gothic_trim/baseboard09_o3"
1253 () 1253 , CommonAttrs
1254 False 1254 ()
1255 (fromInt 0) 1255 ()
1256 False 1256 False
1257 False 1257 (fromInt 0)
1258 CT_FrontSided 1258 False
1259 [] 1259 False
1260 False 1260 CT_FrontSided
1261 False 1261 []
1262 [StageAttrs 1262 False
1263 Nothing 1263 False
1264 RGB_IdentityLighting 1264 [StageAttrs
1265 A_Identity 1265 Nothing
1266 TG_Base 1266 RGB_IdentityLighting
1267 [] 1267 A_Identity
1268 (ST_Map "textures/gothic_trim/baseboard09_o3") 1268 TG_Base
1269 True 1269 []
1270 D_Lequal 1270 (ST_Map "textures/gothic_trim/baseboard09_o3")
1271 Nothing 1271 True
1272 False 1272 D_Lequal
1273 "Tex_2512757607" 1273 Nothing
1274 , StageAttrs 1274 False
1275 (Just (B_DstColor, B_Zero)) 1275 "Tex_2512757607"
1276 RGB_IdentityLighting 1276 , StageAttrs
1277 A_Identity 1277 (Just (B_DstColor, B_Zero))
1278 TG_Lightmap 1278 RGB_IdentityLighting
1279 [] 1279 A_Identity
1280 ST_Lightmap 1280 TG_Lightmap
1281 True 1281 []
1282 D_Lequal 1282 ST_Lightmap
1283 Nothing 1283 True
1284 False 1284 D_Lequal
1285 "Tex_3226210144"] 1285 Nothing
1286 False) 1286 False
1287 , ("textures/gothic_trim/km_arena1tower4" 1287 "Tex_3226210144"]
1288 , CommonAttrs 1288 False)
1289 () 1289 , ("textures/gothic_trim/km_arena1tower4"
1290 () 1290 , CommonAttrs
1291 False 1291 ()
1292 (fromInt 0) 1292 ()
1293 False 1293 False
1294 False 1294 (fromInt 0)
1295 CT_FrontSided 1295 False
1296 [] 1296 False
1297 False 1297 CT_FrontSided
1298 False 1298 []
1299 [StageAttrs 1299 False
1300 Nothing 1300 False
1301 RGB_IdentityLighting 1301 [StageAttrs
1302 A_Identity 1302 Nothing
1303 TG_Base 1303 RGB_IdentityLighting
1304 [] 1304 A_Identity
1305 (ST_Map "textures/gothic_trim/km_arena1tower4") 1305 TG_Base
1306 True 1306 []
1307 D_Lequal 1307 (ST_Map "textures/gothic_trim/km_arena1tower4")
1308 Nothing 1308 True
1309 False 1309 D_Lequal
1310 "Tex_3479185666" 1310 Nothing
1311 , StageAttrs 1311 False
1312 (Just (B_DstColor, B_Zero)) 1312 "Tex_3479185666"
1313 RGB_IdentityLighting 1313 , StageAttrs
1314 A_Identity 1314 (Just (B_DstColor, B_Zero))
1315 TG_Lightmap 1315 RGB_IdentityLighting
1316 [] 1316 A_Identity
1317 ST_Lightmap 1317 TG_Lightmap
1318 True 1318 []
1319 D_Lequal 1319 ST_Lightmap
1320 Nothing 1320 True
1321 False 1321 D_Lequal
1322 "Tex_3226210144"] 1322 Nothing
1323 False) 1323 False
1324 , ("textures/gothic_trim/km_arena1tower4_a" 1324 "Tex_3226210144"]
1325 , CommonAttrs 1325 False)
1326 () 1326 , ("textures/gothic_trim/km_arena1tower4_a"
1327 () 1327 , CommonAttrs
1328 False 1328 ()
1329 (fromInt 0) 1329 ()
1330 False 1330 False
1331 False 1331 (fromInt 0)
1332 CT_FrontSided 1332 False
1333 [] 1333 False
1334 False 1334 CT_FrontSided
1335 False 1335 []
1336 [StageAttrs 1336 False
1337 Nothing 1337 False
1338 RGB_IdentityLighting 1338 [StageAttrs
1339 A_Identity 1339 Nothing
1340 TG_Base 1340 RGB_IdentityLighting
1341 [] 1341 A_Identity
1342 (ST_Map "textures/gothic_trim/km_arena1tower4_a") 1342 TG_Base
1343 True 1343 []
1344 D_Lequal 1344 (ST_Map "textures/gothic_trim/km_arena1tower4_a")
1345 Nothing 1345 True
1346 False 1346 D_Lequal
1347 "Tex_3012001075" 1347 Nothing
1348 , StageAttrs 1348 False
1349 (Just (B_DstColor, B_Zero)) 1349 "Tex_3012001075"
1350 RGB_IdentityLighting 1350 , StageAttrs
1351 A_Identity 1351 (Just (B_DstColor, B_Zero))
1352 TG_Lightmap 1352 RGB_IdentityLighting
1353 [] 1353 A_Identity
1354 ST_Lightmap 1354 TG_Lightmap
1355 True 1355 []
1356 D_Lequal 1356 ST_Lightmap
1357 Nothing 1357 True
1358 False 1358 D_Lequal
1359 "Tex_3226210144"] 1359 Nothing
1360 False) 1360 False
1361 , ("textures/gothic_trim/metaldemonkillblock" 1361 "Tex_3226210144"]
1362 , CommonAttrs 1362 False)
1363 () 1363 , ("textures/gothic_trim/metaldemonkillblock"
1364 () 1364 , CommonAttrs
1365 False 1365 ()
1366 (fromInt 0) 1366 ()
1367 False 1367 False
1368 False 1368 (fromInt 0)
1369 CT_FrontSided 1369 False
1370 [] 1370 False
1371 False 1371 CT_FrontSided
1372 False 1372 []
1373 [StageAttrs 1373 False
1374 Nothing 1374 False
1375 RGB_IdentityLighting 1375 [StageAttrs
1376 A_Identity 1376 Nothing
1377 TG_Base 1377 RGB_IdentityLighting
1378 [] 1378 A_Identity
1379 (ST_Map "textures/gothic_trim/metaldemonkillblock") 1379 TG_Base
1380 True 1380 []
1381 D_Lequal 1381 (ST_Map "textures/gothic_trim/metaldemonkillblock")
1382 Nothing 1382 True
1383 False 1383 D_Lequal
1384 "Tex_1062467595" 1384 Nothing
1385 , StageAttrs 1385 False
1386 (Just (B_DstColor, B_Zero)) 1386 "Tex_1062467595"
1387 RGB_IdentityLighting 1387 , StageAttrs
1388 A_Identity 1388 (Just (B_DstColor, B_Zero))
1389 TG_Lightmap 1389 RGB_IdentityLighting
1390 [] 1390 A_Identity
1391 ST_Lightmap 1391 TG_Lightmap
1392 True 1392 []
1393 D_Lequal 1393 ST_Lightmap
1394 Nothing 1394 True
1395 False 1395 D_Lequal
1396 "Tex_3226210144"] 1396 Nothing
1397 False) 1397 False
1398 , ("textures/gothic_trim/metalsupport4b" 1398 "Tex_3226210144"]
1399 , CommonAttrs 1399 False)
1400 () 1400 , ("textures/gothic_trim/metalsupport4b"
1401 () 1401 , CommonAttrs
1402 False 1402 ()
1403 (fromInt 0) 1403 ()
1404 False 1404 False
1405 False 1405 (fromInt 0)
1406 CT_FrontSided 1406 False
1407 [] 1407 False
1408 False 1408 CT_FrontSided
1409 False 1409 []
1410 [StageAttrs 1410 False
1411 Nothing 1411 False
1412 RGB_IdentityLighting 1412 [StageAttrs
1413 A_Identity 1413 Nothing
1414 TG_Base 1414 RGB_IdentityLighting
1415 [] 1415 A_Identity
1416 (ST_Map "textures/gothic_trim/metalsupport4b") 1416 TG_Base
1417 True 1417 []
1418 D_Lequal 1418 (ST_Map "textures/gothic_trim/metalsupport4b")
1419 Nothing 1419 True
1420 False 1420 D_Lequal
1421 "Tex_3593923076" 1421 Nothing
1422 , StageAttrs 1422 False
1423 (Just (B_DstColor, B_Zero)) 1423 "Tex_3593923076"
1424 RGB_IdentityLighting 1424 , StageAttrs
1425 A_Identity 1425 (Just (B_DstColor, B_Zero))
1426 TG_Lightmap 1426 RGB_IdentityLighting
1427 [] 1427 A_Identity
1428 ST_Lightmap 1428 TG_Lightmap
1429 True 1429 []
1430 D_Lequal 1430 ST_Lightmap
1431 Nothing 1431 True
1432 False 1432 D_Lequal
1433 "Tex_3226210144"] 1433 Nothing
1434 False) 1434 False
1435 , ("textures/gothic_trim/metalsupsolid" 1435 "Tex_3226210144"]
1436 , CommonAttrs 1436 False)
1437 () 1437 , ("textures/gothic_trim/metalsupsolid"
1438 () 1438 , CommonAttrs
1439 False 1439 ()
1440 (fromInt 0) 1440 ()
1441 False 1441 False
1442 False 1442 (fromInt 0)
1443 CT_FrontSided 1443 False
1444 [] 1444 False
1445 False 1445 CT_FrontSided
1446 False 1446 []
1447 [StageAttrs 1447 False
1448 Nothing 1448 False
1449 RGB_IdentityLighting 1449 [StageAttrs
1450 A_Identity 1450 Nothing
1451 TG_Base 1451 RGB_IdentityLighting
1452 [] 1452 A_Identity
1453 (ST_Map "textures/gothic_trim/metalsupsolid") 1453 TG_Base
1454 True 1454 []
1455 D_Lequal 1455 (ST_Map "textures/gothic_trim/metalsupsolid")
1456 Nothing 1456 True
1457 False 1457 D_Lequal
1458 "Tex_2893650486" 1458 Nothing
1459 , StageAttrs 1459 False
1460 (Just (B_DstColor, B_Zero)) 1460 "Tex_2893650486"
1461 RGB_IdentityLighting 1461 , StageAttrs
1462 A_Identity 1462 (Just (B_DstColor, B_Zero))
1463 TG_Lightmap 1463 RGB_IdentityLighting
1464 [] 1464 A_Identity
1465 ST_Lightmap 1465 TG_Lightmap
1466 True 1466 []
1467 D_Lequal 1467 ST_Lightmap
1468 Nothing 1468 True
1469 False 1469 D_Lequal
1470 "Tex_3226210144"] 1470 Nothing
1471 False) 1471 False
1472 , ("textures/gothic_trim/pitted_rust" 1472 "Tex_3226210144"]
1473 , CommonAttrs 1473 False)
1474 () 1474 , ("textures/gothic_trim/pitted_rust"
1475 () 1475 , CommonAttrs
1476 False 1476 ()
1477 (fromInt 0) 1477 ()
1478 False 1478 False
1479 False 1479 (fromInt 0)
1480 CT_FrontSided 1480 False
1481 [] 1481 False
1482 False 1482 CT_FrontSided
1483 False 1483 []
1484 [StageAttrs 1484 False
1485 Nothing 1485 False
1486 RGB_IdentityLighting 1486 [StageAttrs
1487 A_Identity 1487 Nothing
1488 TG_Base 1488 RGB_IdentityLighting
1489 [] 1489 A_Identity
1490 (ST_Map "textures/gothic_trim/pitted_rust") 1490 TG_Base
1491 True 1491 []
1492 D_Lequal 1492 (ST_Map "textures/gothic_trim/pitted_rust")
1493 Nothing 1493 True
1494 False 1494 D_Lequal
1495 "Tex_1243894392" 1495 Nothing
1496 , StageAttrs 1496 False
1497 (Just (B_DstColor, B_Zero)) 1497 "Tex_1243894392"
1498 RGB_IdentityLighting 1498 , StageAttrs
1499 A_Identity 1499 (Just (B_DstColor, B_Zero))
1500 TG_Lightmap 1500 RGB_IdentityLighting
1501 [] 1501 A_Identity
1502 ST_Lightmap 1502 TG_Lightmap
1503 True 1503 []
1504 D_Lequal 1504 ST_Lightmap
1505 Nothing 1505 True
1506 False 1506 D_Lequal
1507 "Tex_3226210144"] 1507 Nothing
1508 False) 1508 False
1509 , ("textures/gothic_trim/pitted_rust2" 1509 "Tex_3226210144"]
1510 , CommonAttrs 1510 False)
1511 () 1511 , ("textures/gothic_trim/pitted_rust2"
1512 () 1512 , CommonAttrs
1513 False 1513 ()
1514 (fromInt 0) 1514 ()
1515 False 1515 False
1516 False 1516 (fromInt 0)
1517 CT_FrontSided 1517 False
1518 [] 1518 False
1519 False 1519 CT_FrontSided
1520 False 1520 []
1521 [StageAttrs 1521 False
1522 Nothing 1522 False
1523 RGB_IdentityLighting 1523 [StageAttrs
1524 A_Identity 1524 Nothing
1525 TG_Base 1525 RGB_IdentityLighting
1526 [] 1526 A_Identity
1527 (ST_Map "textures/gothic_trim/pitted_rust2") 1527 TG_Base
1528 True 1528 []
1529 D_Lequal 1529 (ST_Map "textures/gothic_trim/pitted_rust2")
1530 Nothing 1530 True
1531 False 1531 D_Lequal
1532 "Tex_2099456856" 1532 Nothing
1533 , StageAttrs 1533 False
1534 (Just (B_DstColor, B_Zero)) 1534 "Tex_2099456856"
1535 RGB_IdentityLighting 1535 , StageAttrs
1536 A_Identity 1536 (Just (B_DstColor, B_Zero))
1537 TG_Lightmap 1537 RGB_IdentityLighting
1538 [] 1538 A_Identity
1539 ST_Lightmap 1539 TG_Lightmap
1540 True 1540 []
1541 D_Lequal 1541 ST_Lightmap
1542 Nothing 1542 True
1543 False 1543 D_Lequal
1544 "Tex_3226210144"] 1544 Nothing
1545 False) 1545 False
1546 , ("textures/gothic_trim/pitted_rust2_trans" 1546 "Tex_3226210144"]
1547 , CommonAttrs 1547 False)
1548 () 1548 , ("textures/gothic_trim/pitted_rust2_trans"
1549 () 1549 , CommonAttrs
1550 False 1550 ()
1551 (fromInt 3) 1551 ()
1552 False 1552 False
1553 False 1553 (fromInt 3)
1554 CT_FrontSided 1554 False
1555 [] 1555 False
1556 False 1556 CT_FrontSided
1557 False 1557 []
1558 [StageAttrs 1558 False
1559 Nothing 1559 False
1560 RGB_Identity 1560 [StageAttrs
1561 A_Identity 1561 Nothing
1562 TG_Lightmap 1562 RGB_Identity
1563 [] 1563 A_Identity
1564 ST_Lightmap 1564 TG_Lightmap
1565 True 1565 []
1566 D_Lequal 1566 ST_Lightmap
1567 Nothing 1567 True
1568 False 1568 D_Lequal
1569 "Tex_511571587" 1569 Nothing
1570 , StageAttrs 1570 False
1571 (Just (B_DstColor, B_Zero)) 1571 "Tex_511571587"
1572 RGB_Identity 1572 , StageAttrs
1573 A_Identity 1573 (Just (B_DstColor, B_Zero))
1574 TG_Base 1574 RGB_Identity
1575 [] 1575 A_Identity
1576 (ST_Map "textures/gothic_trim/pitted_rust2.tga") 1576 TG_Base
1577 False 1577 []
1578 D_Lequal 1578 (ST_Map "textures/gothic_trim/pitted_rust2.tga")
1579 Nothing 1579 False
1580 False 1580 D_Lequal
1581 "Tex_1910997598"] 1581 Nothing
1582 False) 1582 False
1583 , ("textures/gothic_trim/pitted_rust3" 1583 "Tex_1910997598"]
1584 , CommonAttrs 1584 False)
1585 () 1585 , ("textures/gothic_trim/pitted_rust3"
1586 () 1586 , CommonAttrs
1587 False 1587 ()
1588 (fromInt 0) 1588 ()
1589 False 1589 False
1590 False 1590 (fromInt 0)
1591 CT_FrontSided 1591 False
1592 [] 1592 False
1593 False 1593 CT_FrontSided
1594 False 1594 []
1595 [StageAttrs 1595 False
1596 Nothing 1596 False
1597 RGB_IdentityLighting 1597 [StageAttrs
1598 A_Identity 1598 Nothing
1599 TG_Base 1599 RGB_IdentityLighting
1600 [] 1600 A_Identity
1601 (ST_Map "textures/gothic_trim/pitted_rust3") 1601 TG_Base
1602 True 1602 []
1603 D_Lequal 1603 (ST_Map "textures/gothic_trim/pitted_rust3")
1604 Nothing 1604 True
1605 False 1605 D_Lequal
1606 "Tex_3389727963" 1606 Nothing
1607 , StageAttrs 1607 False
1608 (Just (B_DstColor, B_Zero)) 1608 "Tex_3389727963"
1609 RGB_IdentityLighting 1609 , StageAttrs
1610 A_Identity 1610 (Just (B_DstColor, B_Zero))
1611 TG_Lightmap 1611 RGB_IdentityLighting
1612 [] 1612 A_Identity
1613 ST_Lightmap 1613 TG_Lightmap
1614 True 1614 []
1615 D_Lequal 1615 ST_Lightmap
1616 Nothing 1616 True
1617 False 1617 D_Lequal
1618 "Tex_3226210144"] 1618 Nothing
1619 False) 1619 False
1620 , ("textures/gothic_trim/skullsvertgray02b" 1620 "Tex_3226210144"]
1621 , CommonAttrs 1621 False)
1622 () 1622 , ("textures/gothic_trim/skullsvertgray02b"
1623 () 1623 , CommonAttrs
1624 False 1624 ()
1625 (fromInt 0) 1625 ()
1626 False 1626 False
1627 False 1627 (fromInt 0)
1628 CT_FrontSided 1628 False
1629 [] 1629 False
1630 False 1630 CT_FrontSided
1631 False 1631 []
1632 [StageAttrs 1632 False
1633 Nothing 1633 False
1634 RGB_IdentityLighting 1634 [StageAttrs
1635 A_Identity 1635 Nothing
1636 TG_Base 1636 RGB_IdentityLighting
1637 [] 1637 A_Identity
1638 (ST_Map "textures/gothic_trim/skullsvertgray02b") 1638 TG_Base
1639 True 1639 []
1640 D_Lequal 1640 (ST_Map "textures/gothic_trim/skullsvertgray02b")
1641 Nothing 1641 True
1642 False 1642 D_Lequal
1643 "Tex_2634868983" 1643 Nothing
1644 , StageAttrs 1644 False
1645 (Just (B_DstColor, B_Zero)) 1645 "Tex_2634868983"
1646 RGB_IdentityLighting 1646 , StageAttrs
1647 A_Identity 1647 (Just (B_DstColor, B_Zero))
1648 TG_Lightmap 1648 RGB_IdentityLighting
1649 [] 1649 A_Identity
1650 ST_Lightmap 1650 TG_Lightmap
1651 True 1651 []
1652 D_Lequal 1652 ST_Lightmap
1653 Nothing 1653 True
1654 False 1654 D_Lequal
1655 "Tex_3226210144"] 1655 Nothing
1656 False) 1656 False
1657 , ("textures/gothic_wall/iron01_e" 1657 "Tex_3226210144"]
1658 , CommonAttrs 1658 False)
1659 () 1659 , ("textures/gothic_wall/iron01_e"
1660 () 1660 , CommonAttrs
1661 False 1661 ()
1662 (fromInt 0) 1662 ()
1663 False 1663 False
1664 False 1664 (fromInt 0)
1665 CT_FrontSided 1665 False
1666 [] 1666 False
1667 False 1667 CT_FrontSided
1668 False 1668 []
1669 [StageAttrs 1669 False
1670 Nothing 1670 False
1671 RGB_IdentityLighting 1671 [StageAttrs
1672 A_Identity 1672 Nothing
1673 TG_Base 1673 RGB_IdentityLighting
1674 [] 1674 A_Identity
1675 (ST_Map "textures/gothic_wall/iron01_e") 1675 TG_Base
1676 True 1676 []
1677 D_Lequal 1677 (ST_Map "textures/gothic_wall/iron01_e")
1678 Nothing 1678 True
1679 False 1679 D_Lequal
1680 "Tex_2432583247" 1680 Nothing
1681 , StageAttrs 1681 False
1682 (Just (B_DstColor, B_Zero)) 1682 "Tex_2432583247"
1683 RGB_IdentityLighting 1683 , StageAttrs
1684 A_Identity 1684 (Just (B_DstColor, B_Zero))
1685 TG_Lightmap 1685 RGB_IdentityLighting
1686 [] 1686 A_Identity
1687 ST_Lightmap 1687 TG_Lightmap
1688 True 1688 []
1689 D_Lequal 1689 ST_Lightmap
1690 Nothing 1690 True
1691 False 1691 D_Lequal
1692 "Tex_3226210144"] 1692 Nothing
1693 False) 1693 False
1694 , ("textures/gothic_wall/iron01_ntech3" 1694 "Tex_3226210144"]
1695 , CommonAttrs 1695 False)
1696 () 1696 , ("textures/gothic_wall/iron01_ntech3"
1697 () 1697 , CommonAttrs
1698 False 1698 ()
1699 (fromInt 0) 1699 ()
1700 False 1700 False
1701 False 1701 (fromInt 0)
1702 CT_FrontSided 1702 False
1703 [] 1703 False
1704 False 1704 CT_FrontSided
1705 False 1705 []
1706 [StageAttrs 1706 False
1707 Nothing 1707 False
1708 RGB_IdentityLighting 1708 [StageAttrs
1709 A_Identity 1709 Nothing
1710 TG_Base 1710 RGB_IdentityLighting
1711 [] 1711 A_Identity
1712 (ST_Map "textures/gothic_wall/iron01_ntech3") 1712 TG_Base
1713 True 1713 []
1714 D_Lequal 1714 (ST_Map "textures/gothic_wall/iron01_ntech3")
1715 Nothing 1715 True
1716 False 1716 D_Lequal
1717 "Tex_442868841" 1717 Nothing
1718 , StageAttrs 1718 False
1719 (Just (B_DstColor, B_Zero)) 1719 "Tex_442868841"
1720 RGB_IdentityLighting 1720 , StageAttrs
1721 A_Identity 1721 (Just (B_DstColor, B_Zero))
1722 TG_Lightmap 1722 RGB_IdentityLighting
1723 [] 1723 A_Identity
1724 ST_Lightmap 1724 TG_Lightmap
1725 True 1725 []
1726 D_Lequal 1726 ST_Lightmap
1727 Nothing 1727 True
1728 False 1728 D_Lequal
1729 "Tex_3226210144"] 1729 Nothing
1730 False) 1730 False
1731 , ("textures/gothic_wall/skull4" 1731 "Tex_3226210144"]
1732 , CommonAttrs 1732 False)
1733 () 1733 , ("textures/gothic_wall/skull4"
1734 () 1734 , CommonAttrs
1735 False 1735 ()
1736 (fromInt 0) 1736 ()
1737 False 1737 False
1738 False 1738 (fromInt 0)
1739 CT_FrontSided 1739 False
1740 [] 1740 False
1741 False 1741 CT_FrontSided
1742 False 1742 []
1743 [StageAttrs 1743 False
1744 Nothing 1744 False
1745 RGB_IdentityLighting 1745 [StageAttrs
1746 A_Identity 1746 Nothing
1747 TG_Base 1747 RGB_IdentityLighting
1748 [] 1748 A_Identity
1749 (ST_Map "textures/gothic_wall/skull4") 1749 TG_Base
1750 True 1750 []
1751 D_Lequal 1751 (ST_Map "textures/gothic_wall/skull4")
1752 Nothing 1752 True
1753 False 1753 D_Lequal
1754 "Tex_2239853403" 1754 Nothing
1755 , StageAttrs 1755 False
1756 (Just (B_DstColor, B_Zero)) 1756 "Tex_2239853403"
1757 RGB_IdentityLighting 1757 , StageAttrs
1758 A_Identity 1758 (Just (B_DstColor, B_Zero))
1759 TG_Lightmap 1759 RGB_IdentityLighting
1760 [] 1760 A_Identity
1761 ST_Lightmap 1761 TG_Lightmap
1762 True 1762 []
1763 D_Lequal 1763 ST_Lightmap
1764 Nothing 1764 True
1765 False 1765 D_Lequal
1766 "Tex_3226210144"] 1766 Nothing
1767 False) 1767 False
1768 , ("textures/gothic_wall/slateroofc" 1768 "Tex_3226210144"]
1769 , CommonAttrs 1769 False)
1770 () 1770 , ("textures/gothic_wall/slateroofc"
1771 () 1771 , CommonAttrs
1772 False 1772 ()
1773 (fromInt 0) 1773 ()
1774 False 1774 False
1775 False 1775 (fromInt 0)
1776 CT_FrontSided 1776 False
1777 [] 1777 False
1778 False 1778 CT_FrontSided
1779 False 1779 []
1780 [StageAttrs 1780 False
1781 Nothing 1781 False
1782 RGB_IdentityLighting 1782 [StageAttrs
1783 A_Identity 1783 Nothing
1784 TG_Base 1784 RGB_IdentityLighting
1785 [] 1785 A_Identity
1786 (ST_Map "textures/gothic_wall/slateroofc") 1786 TG_Base
1787 True 1787 []
1788 D_Lequal 1788 (ST_Map "textures/gothic_wall/slateroofc")
1789 Nothing 1789 True
1790 False 1790 D_Lequal
1791 "Tex_2490648334" 1791 Nothing
1792 , StageAttrs 1792 False
1793 (Just (B_DstColor, B_Zero)) 1793 "Tex_2490648334"
1794 RGB_IdentityLighting 1794 , StageAttrs
1795 A_Identity 1795 (Just (B_DstColor, B_Zero))
1796 TG_Lightmap 1796 RGB_IdentityLighting
1797 [] 1797 A_Identity
1798 ST_Lightmap 1798 TG_Lightmap
1799 True 1799 []
1800 D_Lequal 1800 ST_Lightmap
1801 Nothing 1801 True
1802 False 1802 D_Lequal
1803 "Tex_3226210144"] 1803 Nothing
1804 False) 1804 False
1805 , ("textures/gothic_wall/supportborder_blue_b" 1805 "Tex_3226210144"]
1806 , CommonAttrs 1806 False)
1807 () 1807 , ("textures/gothic_wall/supportborder_blue_b"
1808 () 1808 , CommonAttrs
1809 False 1809 ()
1810 (fromInt 0) 1810 ()
1811 False 1811 False
1812 False 1812 (fromInt 0)
1813 CT_FrontSided 1813 False
1814 [] 1814 False
1815 False 1815 CT_FrontSided
1816 False 1816 []
1817 [StageAttrs 1817 False
1818 Nothing 1818 False
1819 RGB_IdentityLighting 1819 [StageAttrs
1820 A_Identity 1820 Nothing
1821 TG_Base 1821 RGB_IdentityLighting
1822 [] 1822 A_Identity
1823 (ST_Map "textures/gothic_wall/supportborder_blue_b") 1823 TG_Base
1824 True 1824 []
1825 D_Lequal 1825 (ST_Map "textures/gothic_wall/supportborder_blue_b")
1826 Nothing 1826 True
1827 False 1827 D_Lequal
1828 "Tex_564811775" 1828 Nothing
1829 , StageAttrs 1829 False
1830 (Just (B_DstColor, B_Zero)) 1830 "Tex_564811775"
1831 RGB_IdentityLighting 1831 , StageAttrs
1832 A_Identity 1832 (Just (B_DstColor, B_Zero))
1833 TG_Lightmap 1833 RGB_IdentityLighting
1834 [] 1834 A_Identity
1835 ST_Lightmap 1835 TG_Lightmap
1836 True 1836 []
1837 D_Lequal 1837 ST_Lightmap
1838 Nothing 1838 True
1839 False 1839 D_Lequal
1840 "Tex_3226210144"] 1840 Nothing
1841 False) 1841 False
1842 , ("textures/gothic_wall/supportborder_blue_c" 1842 "Tex_3226210144"]
1843 , CommonAttrs 1843 False)
1844 () 1844 , ("textures/gothic_wall/supportborder_blue_c"
1845 () 1845 , CommonAttrs
1846 False 1846 ()
1847 (fromInt 0) 1847 ()
1848 False 1848 False
1849 False 1849 (fromInt 0)
1850 CT_FrontSided 1850 False
1851 [] 1851 False
1852 False 1852 CT_FrontSided
1853 False 1853 []
1854 [StageAttrs 1854 False
1855 Nothing 1855 False
1856 RGB_IdentityLighting 1856 [StageAttrs
1857 A_Identity 1857 Nothing
1858 TG_Base 1858 RGB_IdentityLighting
1859 [] 1859 A_Identity
1860 (ST_Map "textures/gothic_wall/supportborder_blue_c") 1860 TG_Base
1861 True 1861 []
1862 D_Lequal 1862 (ST_Map "textures/gothic_wall/supportborder_blue_c")
1863 Nothing 1863 True
1864 False 1864 D_Lequal
1865 "Tex_2525124732" 1865 Nothing
1866 , StageAttrs 1866 False
1867 (Just (B_DstColor, B_Zero)) 1867 "Tex_2525124732"
1868 RGB_IdentityLighting 1868 , StageAttrs
1869 A_Identity 1869 (Just (B_DstColor, B_Zero))
1870 TG_Lightmap 1870 RGB_IdentityLighting
1871 [] 1871 A_Identity
1872 ST_Lightmap 1872 TG_Lightmap
1873 True 1873 []
1874 D_Lequal 1874 ST_Lightmap
1875 Nothing 1875 True
1876 False 1876 D_Lequal
1877 "Tex_3226210144"] 1877 Nothing
1878 False)] 1878 False
1879 "Tex_3226210144"]
1880 False)])
1879------------ core code 1881------------ core code
1880sampleMaterial :: [(String, CommonAttrs)] 1882sampleMaterial :: [(String, CommonAttrs)]
1881sampleMaterial 1883sampleMaterial
diff --git a/testdata/traceTest.out b/testdata/traceTest.out
index 1284a26e..9c5545d5 100644
--- a/testdata/traceTest.out
+++ b/testdata/traceTest.out
@@ -1,12 +1,12 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3id = \(a :: _) -> _rhs a 3id = _lhs id \(a :: _) -> _rhs a
4 4
5data X (_ :: Type) (_ :: _a) :: Type where 5data X (_ :: Type) (_ :: _a) :: Type where
6 6
7 7
8x :: X \(a :: _) (b :: _) -> (a, b) 8x :: X \(a :: _) (b :: _) -> (a, b)
9x = _rhs undefined 9x = _lhs x (_rhs undefined)
10------------ core code 10------------ core code
11'X :: forall a . a -> Type 11'X :: forall a . a -> Type
12'X = <<type constructor with 0 indices; constructors: >> 12'X = <<type constructor with 0 indices; constructors: >>
diff --git a/testdata/typeclass.out b/testdata/typeclass.out
index 7d3b916a..0280bed1 100644
--- a/testdata/typeclass.out
+++ b/testdata/typeclass.out
@@ -10,43 +10,59 @@ infixr 3 &&
10 10
11infixr 2 || 11infixr 2 ||
12 12
13not = \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs True) (_rhs False) a 13not
14 = _lhs not \(a :: _) -> case'Bool (\(_ :: _) -> _) (_rhs True) (_rhs False) a
14 15
15(&&) = \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs b) a 16(&&)
17 = _lhs
18 (&&)
19 \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs False) (_rhs b) a
16 20
17(||) = \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs b) (_rhs True) a 21(||)
22 = _lhs
23 (||)
24 \(a :: _) (b :: _) -> case'Bool (\(_ :: _) -> _) (_rhs b) (_rhs True) a
18 25
19'Eq :: Type -> Constraint 26'Eq :: Type -> Constraint
20'Eq 27'Eq
21 = \(a :: _) -> match'Bool 28 = _lhs
22 (\(_ :: _) -> _) 29 'Eq
23 (_rhs 'CUnit) 30 \(a :: _) -> match'Bool
24 a 31 (\(_ :: _) -> _)
25 (_rhs ('CEmpty "no instance of 'Eq on ???")) 32 (_rhs 'CUnit)
33 a
34 (_rhs ('CEmpty "no instance of 'Eq on ???"))
26 35
27(==) :: forall a . Eq a => a -> a -> Bool 36(==) :: forall a . Eq a => a -> a -> Bool
28(==) 37(==)
29 = \ @a @(_ :: _) -> match'Bool 38 = _lhs
30 (\(_ :: _) -> _) 39 (==)
31 (_rhs 40 \ @a @(_ :: _) -> match'Bool
32 let 41 (\(_ :: _) -> _)
33 b = \(c :: _) (d :: _) -> case'Bool (\(_ :: _) -> _) (_rhs (not d)) (_rhs d) c 42 (_rhs
34 in b) 43 let
35 a 44 b
36 (_rhs undefined) 45 = _lhs
37 46 (==)
38(/=) = \(a :: _) (b :: _) -> _rhs (not (a == b)) 47 \(c :: _) (d :: _) -> case'Bool (\(_ :: _) -> _) (_rhs (not d)) (_rhs d) c
48 in b)
49 a
50 (_rhs undefined)
51
52(/=) = _lhs (/=) \(a :: _) (b :: _) -> _rhs (not (a == b))
39 53
40(==.) 54(==.)
41 = \(a :: _) (b :: _) -> case'List 55 = _lhs
42 (\(_ :: _) -> _) 56 (==.)
43 (case'List (\(_ :: _) -> _) (_rhs True) (\(_ :: _) (_ :: _) -> _rhs False) b) 57 \(a :: _) (b :: _) -> case'List
44 (\(_ :: _) (c :: _) -> case'List
45 (\(_ :: _) -> _) 58 (\(_ :: _) -> _)
46 (_rhs False) 59 (case'List (\(_ :: _) -> _) (_rhs True) (\(_ :: _) (_ :: _) -> _rhs False) b)
47 (\(_ :: _) (d :: _) -> _rhs (c ==. d)) 60 (\(_ :: _) (c :: _) -> case'List
48 b) 61 (\(_ :: _) -> _)
49 a 62 (_rhs False)
63 (\(_ :: _) (d :: _) -> _rhs (c ==. d))
64 b)
65 a
50------------ core code 66------------ core code
51&& :: Bool -> Bool -> Bool 67&& :: Bool -> Bool -> Bool
52&& = \a b -> case'Bool (\_ -> 'Bool) (_rhs False) (_rhs b) a 68&& = \a b -> case'Bool (\_ -> 'Bool) (_rhs False) (_rhs b) a
diff --git a/testdata/where.out b/testdata/where.out
index 1c329429..eb30398d 100644
--- a/testdata/where.out
+++ b/testdata/where.out
@@ -1,6 +1,12 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3f = _rhs let a = _rhs let c = _rhs 1.0 in c; b = _rhs 1.0 in b 3f
4 = _lhs
5 f
6 (_rhs
7 let
8 a = _lhs z (_rhs let c = _lhs y (_rhs 1.0) in c); b = _lhs x (_rhs 1.0)
9 in b)
4------------ core code 10------------ core code
5f :: Float 11f :: Float
6f = _rhs 1.0 12f = _rhs 1.0
diff --git a/testdata/zip01.out b/testdata/zip01.out
index e6f51391..b34b81e2 100644
--- a/testdata/zip01.out
+++ b/testdata/zip01.out
@@ -2,15 +2,17 @@ main is not found
2------------ desugared source code 2------------ desugared source code
3zip2 :: forall (a :: _) (b :: _) . [a] -> [b] -> [(a, b)] 3zip2 :: forall (a :: _) (b :: _) . [a] -> [b] -> [(a, b)]
4zip2 4zip2
5 = \(a :: _) (b :: _) -> case'List 5 = _lhs
6 (\(_ :: _) -> _) 6 zip2
7 (_rhs []) 7 \(a :: _) (b :: _) -> case'List
8 (\(c :: _) (d :: _) -> case'List
9 (\(_ :: _) -> _) 8 (\(_ :: _) -> _)
10 (_rhs []) 9 (_rhs [])
11 (\(e :: _) (f :: _) -> _rhs ((c, e) : zip2 d f)) 10 (\(c :: _) (d :: _) -> case'List
12 b) 11 (\(_ :: _) -> _)
13 a 12 (_rhs [])
13 (\(e :: _) (f :: _) -> _rhs ((c, e) : zip2 d f))
14 b)
15 a
14------------ core code 16------------ core code
15zip2 :: forall a b . [a] -> [b] -> [(a, b)] 17zip2 :: forall a b . [a] -> [b] -> [(a, b)]
16zip2 18zip2
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-02 12:09:50 +0000