summaryrefslogtreecommitdiff
path: root/testdata
diff options
context:
space:
mode:
authorPéter Diviánszky <divipp@gmail.com>2016-05-05 17:55:01 +0200
committerPéter Diviánszky <divipp@gmail.com>2016-05-05 17:55:01 +0200
commit9e232c77ee6d0948f7dd5727d3ec568bbedf4316 (patch)
treed9f64543cf48a964fd29e95b87b824f9b5c2a877 /testdata
parentf24ab8bd8d5cb60a7a75e52655b567f916f73a53 (diff)
improve pretty printing & try to fix local function handling
Diffstat (limited to 'testdata')
-rw-r--r--testdata/Builtins.out273
-rw-r--r--testdata/Internals.out49
-rw-r--r--testdata/Material.out10
-rw-r--r--testdata/Prelude.out137
-rw-r--r--testdata/SampleMaterial.out3949
-rw-r--r--testdata/ambig.out20
-rw-r--r--testdata/framebuffer02.reject.out22
-rw-r--r--testdata/id.out2
-rw-r--r--testdata/language-features/adt/adt02.reject.out10
-rw-r--r--testdata/language-features/basic-list/dotdot01.out2
-rw-r--r--testdata/language-features/basic-list/list01.out4
-rw-r--r--testdata/language-features/basic-list/list02.out4
-rw-r--r--testdata/language-features/basic-list/list07.reject.out10
-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/list10.reject.out10
-rw-r--r--testdata/language-features/basic-list/list11.out2
-rw-r--r--testdata/language-features/basic-list/list12.out2
-rw-r--r--testdata/language-features/basic-list/list13.out2
-rw-r--r--testdata/language-features/basic-list/list14.reject.out10
-rw-r--r--testdata/language-features/basic-list/list15.reject.out10
-rw-r--r--testdata/language-features/basic-list/list16.reject.out10
-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.out6
-rw-r--r--testdata/language-features/basic-list/listcomp04.out4
-rw-r--r--testdata/language-features/basic-list/listcomp05.out4
-rw-r--r--testdata/language-features/basic-list/listcomp06.out10
-rw-r--r--testdata/language-features/basic-list/listcomp07.out18
-rw-r--r--testdata/language-features/basic-list/listcomp08.reject.out10
-rw-r--r--testdata/language-features/basic-list/listcomp09.out7
-rw-r--r--testdata/language-features/basic-values/case01.out12
-rw-r--r--testdata/language-features/basic-values/case02.out3
-rw-r--r--testdata/language-features/basic-values/case04.reject.out10
-rw-r--r--testdata/language-features/basic-values/data01.out4
-rw-r--r--testdata/language-features/basic-values/def01.out2
-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/fixity02.out32
-rw-r--r--testdata/language-features/basic-values/if01.out2
-rw-r--r--testdata/language-features/basic-values/if03.reject.out10
-rw-r--r--testdata/language-features/basic-values/if04.reject.out10
-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.out2
-rw-r--r--testdata/language-features/basic-values/infix02.out2
-rw-r--r--testdata/language-features/basic-values/infix03.out4
-rw-r--r--testdata/language-features/basic-values/lambda01.out8
-rw-r--r--testdata/language-features/basic-values/let01.out4
-rw-r--r--testdata/language-features/basic-values/let02.out9
-rw-r--r--testdata/language-features/basic-values/operator01.out8
-rw-r--r--testdata/language-features/basic-values/operator05.out2
-rw-r--r--testdata/language-features/basic-values/operator06.out2
-rw-r--r--testdata/language-features/basic-values/shadowing01.out17
-rw-r--r--testdata/language-features/basic-values/shadowing02.out18
-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.out8
-rw-r--r--testdata/language-features/basic-values/typesig03.out8
-rw-r--r--testdata/language-features/basic-values/typesig04.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.out8
-rw-r--r--testdata/language-features/basic-values/where01.out22
-rw-r--r--testdata/language-features/basic-values/where04.out6
-rw-r--r--testdata/language-features/basic-values/where05.out20
-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/guard02.reject.out10
-rw-r--r--testdata/language-features/guard/guard05.reject.out10
-rw-r--r--testdata/language-features/guard/guard06.out2
-rw-r--r--testdata/language-features/guard/guard12.reject.out10
-rw-r--r--testdata/language-features/guard/guard13.out2
-rw-r--r--testdata/language-features/guard/guard14.out2
-rw-r--r--testdata/language-features/guard/guard15.out2
-rw-r--r--testdata/language-features/guard/guard16.out4
-rw-r--r--testdata/language-features/module/Moduledef10.out2
-rw-r--r--testdata/language-features/module/TypeSyn01Mod.out2
-rw-r--r--testdata/language-features/module/import06.out2
-rw-r--r--testdata/language-features/module/import07.out2
-rw-r--r--testdata/language-features/module/import08.out2
-rw-r--r--testdata/language-features/module/import09.out6
-rw-r--r--testdata/language-features/pattern/uncovered.out14
-rw-r--r--testdata/language-features/recursion/simplerec02.out16
-rw-r--r--testdata/language-features/recursion/simplerec03.out16
-rw-r--r--testdata/language-features/section/section01.out2
-rw-r--r--testdata/letIndent.out3
-rw-r--r--testdata/performance/Material.out10
-rw-r--r--testdata/performance/SampleMaterial.out3949
-rw-r--r--testdata/record01.reject.out170
-rw-r--r--testdata/traceTest.out2
-rw-r--r--testdata/typeclass.out7
-rw-r--r--testdata/typesigctx.reject.out6
-rw-r--r--testdata/where.out2
-rw-r--r--testdata/zip01.out4
98 files changed, 4350 insertions, 4797 deletions
diff --git a/testdata/Builtins.out b/testdata/Builtins.out
index 6c11e155..2c4b1a46 100644
--- a/testdata/Builtins.out
+++ b/testdata/Builtins.out
@@ -173,7 +173,7 @@ data Mat :: Nat -> Nat -> Type -> Type where
173 a 173 a
174 (_rhs ('CEmpty "no instance of 'Component on ???")))))) 174 (_rhs ('CEmpty "no instance of 'Component on ???"))))))
175 175
176zero :: forall a . CW (Component a) => a 176zero :: forall a . Component a => a
177zero 177zero
178 = \ @a @_ -> match'Int 178 = \ @a @_ -> match'Int
179 (\_ -> _) 179 (\_ -> _)
@@ -241,7 +241,7 @@ zero
241 a 241 a
242 (match'Bool (\_ -> _) (_rhs let u = _rhs False in u) a (_rhs undefined))))) 242 (match'Bool (\_ -> _) (_rhs let u = _rhs False in u) a (_rhs undefined)))))
243 243
244one :: forall a . CW (Component a) => a 244one :: forall a . Component a => a
245one 245one
246 = \ @a @_ -> match'Int 246 = \ @a @_ -> match'Int
247 (\_ -> _) 247 (\_ -> _)
@@ -477,87 +477,77 @@ one
477 a 477 a
478 (_rhs ('CEmpty "no instance of 'Floating on ???")))) 478 (_rhs ('CEmpty "no instance of 'Floating on ???"))))
479 479
480PrimAdd :: forall (a :: _) . CW (Num (MatVecScalarElem a)) => a -> a -> a 480PrimAdd :: forall (a :: _) . Num (MatVecScalarElem a) => a -> a -> a
481 481
482PrimSub :: forall (a :: _) . CW (Num (MatVecScalarElem a)) => a -> a -> a 482PrimSub :: forall (a :: _) . Num (MatVecScalarElem a) => a -> a -> a
483 483
484PrimMul :: forall (a :: _) . CW (Num (MatVecScalarElem a)) => a -> a -> a 484PrimMul :: forall (a :: _) . Num (MatVecScalarElem a) => a -> a -> a
485 485
486PrimAddS 486PrimAddS
487 :: forall (a :: _) (b :: _) 487 :: forall (a :: _) (b :: _) . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
488 . (CW (a ~ MatVecScalarElem b), CW (Num a)) => b -> a -> b
489 488
490PrimSubS 489PrimSubS
491 :: forall (a :: _) (b :: _) 490 :: forall (a :: _) (b :: _) . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
492 . (CW (a ~ MatVecScalarElem b), CW (Num a)) => b -> a -> b
493 491
494PrimMulS 492PrimMulS
495 :: forall (a :: _) (b :: _) 493 :: forall (a :: _) (b :: _) . (a ~ MatVecScalarElem b, Num a) => b -> a -> b
496 . (CW (a ~ MatVecScalarElem b), CW (Num a)) => b -> a -> b
497 494
498PrimDiv 495PrimDiv
499 :: forall (a :: _) (b :: _) (c :: _) 496 :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> b -> b
500 . (CW (Num a), CW (b ~ VecScalar c a)) => b -> b -> b
501 497
502PrimMod 498PrimMod
503 :: forall (a :: _) (b :: _) (c :: _) 499 :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> b -> b
504 . (CW (Num a), CW (b ~ VecScalar c a)) => b -> b -> b
505 500
506PrimDivS 501PrimDivS
507 :: forall (a :: _) (b :: _) (c :: _) 502 :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> a -> b
508 . (CW (Num a), CW (b ~ VecScalar c a)) => b -> a -> b
509 503
510PrimModS 504PrimModS
511 :: forall (a :: _) (b :: _) (c :: _) 505 :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> a -> b
512 . (CW (Num a), CW (b ~ VecScalar c a)) => b -> a -> b
513 506
514PrimNeg :: forall (a :: _) . CW (Signed (MatVecScalarElem a)) => a -> a 507PrimNeg :: forall (a :: _) . Signed (MatVecScalarElem a) => a -> a
515 508
516PrimBAnd 509PrimBAnd
517 :: forall (a :: _) (b :: _) (c :: _) 510 :: forall (a :: _) (b :: _) (c :: _)
518 . (CW (Integral a), CW (b ~ VecScalar c a)) => b -> b -> b 511 . (Integral a, b ~ VecScalar c a) => b -> b -> b
519 512
520PrimBOr 513PrimBOr
521 :: forall (a :: _) (b :: _) (c :: _) 514 :: forall (a :: _) (b :: _) (c :: _)
522 . (CW (Integral a), CW (b ~ VecScalar c a)) => b -> b -> b 515 . (Integral a, b ~ VecScalar c a) => b -> b -> b
523 516
524PrimBXor 517PrimBXor
525 :: forall (a :: _) (b :: _) (c :: _) 518 :: forall (a :: _) (b :: _) (c :: _)
526 . (CW (Integral a), CW (b ~ VecScalar c a)) => b -> b -> b 519 . (Integral a, b ~ VecScalar c a) => b -> b -> b
527 520
528PrimBAndS 521PrimBAndS
529 :: forall (a :: _) (b :: _) (c :: _) 522 :: forall (a :: _) (b :: _) (c :: _)
530 . (CW (Integral a), CW (b ~ VecScalar c a)) => b -> a -> b 523 . (Integral a, b ~ VecScalar c a) => b -> a -> b
531 524
532PrimBOrS 525PrimBOrS
533 :: forall (a :: _) (b :: _) (c :: _) 526 :: forall (a :: _) (b :: _) (c :: _)
534 . (CW (Integral a), CW (b ~ VecScalar c a)) => b -> a -> b 527 . (Integral a, b ~ VecScalar c a) => b -> a -> b
535 528
536PrimBXorS 529PrimBXorS
537 :: forall (a :: _) (b :: _) (c :: _) 530 :: forall (a :: _) (b :: _) (c :: _)
538 . (CW (Integral a), CW (b ~ VecScalar c a)) => b -> a -> b 531 . (Integral a, b ~ VecScalar c a) => b -> a -> b
539 532
540PrimBNot 533PrimBNot
541 :: forall (a :: _) (b :: _) (c :: _) 534 :: forall (a :: _) (b :: _) (c :: _) . (Integral a, b ~ VecScalar c a) => b -> b
542 . (CW (Integral a), CW (b ~ VecScalar c a)) => b -> b
543 535
544PrimBShiftL 536PrimBShiftL
545 :: forall (a :: _) (b :: _) (c :: _) (d :: _) 537 :: forall (a :: _) (b :: _) (c :: _) (d :: _)
546 . (CW (Integral a), CW (b ~ VecScalar c a), CW (d ~ VecScalar c Word)) 538 . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
547 => b -> d -> b
548 539
549PrimBShiftR 540PrimBShiftR
550 :: forall (a :: _) (b :: _) (c :: _) (d :: _) 541 :: forall (a :: _) (b :: _) (c :: _) (d :: _)
551 . (CW (Integral a), CW (b ~ VecScalar c a), CW (d ~ VecScalar c Word)) 542 . (Integral a, b ~ VecScalar c a, d ~ VecScalar c Word) => b -> d -> b
552 => b -> d -> b
553 543
554PrimBShiftLS 544PrimBShiftLS
555 :: forall (a :: _) (b :: _) (c :: _) 545 :: forall (a :: _) (b :: _) (c :: _)
556 . (CW (Integral a), CW (b ~ VecScalar c a)) => b -> Word -> b 546 . (Integral a, b ~ VecScalar c a) => b -> Word -> b
557 547
558PrimBShiftRS 548PrimBShiftRS
559 :: forall (a :: _) (b :: _) (c :: _) 549 :: forall (a :: _) (b :: _) (c :: _)
560 . (CW (Integral a), CW (b ~ VecScalar c a)) => b -> Word -> b 550 . (Integral a, b ~ VecScalar c a) => b -> Word -> b
561 551
562PrimAnd :: Bool -> Bool -> Bool 552PrimAnd :: Bool -> Bool -> Bool
563 553
@@ -565,134 +555,125 @@ PrimOr :: Bool -> Bool -> Bool
565 555
566PrimXor :: Bool -> Bool -> Bool 556PrimXor :: Bool -> Bool -> Bool
567 557
568PrimNot :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Bool) => a -> a 558PrimNot :: forall (a :: _) (b :: _) . (a ~ VecScalar b Bool) => a -> a
569 559
570PrimAny :: forall (a :: _) . VecScalar a Bool -> Bool 560PrimAny :: forall (a :: _) . VecScalar a Bool -> Bool
571 561
572PrimAll :: forall (a :: _) . VecScalar a Bool -> Bool 562PrimAll :: forall (a :: _) . VecScalar a Bool -> Bool
573 563
574PrimACos :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 564PrimACos :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
575 565
576PrimACosH :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 566PrimACosH :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
577 567
578PrimASin :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 568PrimASin :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
579 569
580PrimASinH :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 570PrimASinH :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
581 571
582PrimATan :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 572PrimATan :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
583 573
584PrimATanH :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 574PrimATanH :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
585 575
586PrimCos :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 576PrimCos :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
587 577
588PrimCosH :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 578PrimCosH :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
589 579
590PrimDegrees :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 580PrimDegrees :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
591 581
592PrimRadians :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 582PrimRadians :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
593 583
594PrimSin :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 584PrimSin :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
595 585
596PrimSinH :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 586PrimSinH :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
597 587
598PrimTan :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 588PrimTan :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
599 589
600PrimTanH :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 590PrimTanH :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
601 591
602PrimExp :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 592PrimExp :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
603 593
604PrimLog :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 594PrimLog :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
605 595
606PrimExp2 :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 596PrimExp2 :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
607 597
608PrimLog2 :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 598PrimLog2 :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
609 599
610PrimSqrt :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 600PrimSqrt :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
611 601
612PrimInvSqrt :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 602PrimInvSqrt :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
613 603
614PrimPow :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a -> a 604PrimPow :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> a
615 605
616PrimATan2 606PrimATan2 :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> a
617 :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a -> a
618 607
619PrimFloor :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 608PrimFloor :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
620 609
621PrimTrunc :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 610PrimTrunc :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
622 611
623PrimRound :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 612PrimRound :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
624 613
625PrimRoundEven :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 614PrimRoundEven :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
626 615
627PrimCeil :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 616PrimCeil :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
628 617
629PrimFract :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 618PrimFract :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
630 619
631PrimMin 620PrimMin
632 :: forall (a :: _) (b :: _) (c :: _) 621 :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> b -> b
633 . (CW (Num a), CW (b ~ VecScalar c a)) => b -> b -> b
634 622
635PrimMax 623PrimMax
636 :: forall (a :: _) (b :: _) (c :: _) 624 :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> b -> b
637 . (CW (Num a), CW (b ~ VecScalar c a)) => b -> b -> b
638 625
639PrimMinS 626PrimMinS
640 :: forall (a :: _) (b :: _) (c :: _) 627 :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> a -> b
641 . (CW (Num a), CW (b ~ VecScalar c a)) => b -> a -> b
642 628
643PrimMaxS 629PrimMaxS
644 :: forall (a :: _) (b :: _) (c :: _) 630 :: forall (a :: _) (b :: _) (c :: _) . (Num a, b ~ VecScalar c a) => b -> a -> b
645 . (CW (Num a), CW (b ~ VecScalar c a)) => b -> a -> b
646 631
647PrimIsNan 632PrimIsNan
648 :: forall (a :: _) (b :: _) (c :: _) 633 :: forall (a :: _) (b :: _) (c :: _)
649 . (CW (a ~ VecScalar b Float), CW (c ~ VecScalar b Bool)) => a -> c 634 . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
650 635
651PrimIsInf 636PrimIsInf
652 :: forall (a :: _) (b :: _) (c :: _) 637 :: forall (a :: _) (b :: _) (c :: _)
653 . (CW (a ~ VecScalar b Float), CW (c ~ VecScalar b Bool)) => a -> c 638 . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> c
654 639
655PrimAbs 640PrimAbs
656 :: forall (a :: _) (b :: _) (c :: _) 641 :: forall (a :: _) (b :: _) (c :: _) . (Signed a, b ~ VecScalar c a) => b -> b
657 . (CW (Signed a), CW (b ~ VecScalar c a)) => b -> b
658 642
659PrimSign 643PrimSign
660 :: forall (a :: _) (b :: _) (c :: _) 644 :: forall (a :: _) (b :: _) (c :: _) . (Signed a, b ~ VecScalar c a) => b -> b
661 . (CW (Signed a), CW (b ~ VecScalar c a)) => b -> b
662 645
663PrimModF 646PrimModF :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> (a, a)
664 :: forall (a :: _) (b :: _)
665 . CW (a ~ VecScalar b Float) => a -> HList (a : a : '[])
666 647
667PrimClamp 648PrimClamp
668 :: forall (a :: _) (b :: _) (c :: _) 649 :: forall (a :: _) (b :: _) (c :: _)
669 . (CW (Num a), CW (b ~ VecScalar c a)) => b -> b -> b -> b 650 . (Num a, b ~ VecScalar c a) => b -> b -> b -> b
670 651
671PrimClampS 652PrimClampS
672 :: forall (a :: _) (b :: _) (c :: _) 653 :: forall (a :: _) (b :: _) (c :: _)
673 . (CW (Num a), CW (b ~ VecScalar c a)) => b -> a -> a -> b 654 . (Num a, b ~ VecScalar c a) => b -> a -> a -> b
674 655
675PrimMix 656PrimMix
676 :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a -> a -> a 657 :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> a -> a
677 658
678PrimMixS 659PrimMixS
679 :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a -> Float -> a 660 :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> Float -> a
680 661
681PrimMixB 662PrimMixB
682 :: forall (a :: _) (b :: _) (c :: _) 663 :: forall (a :: _) (b :: _) (c :: _)
683 . (CW (a ~ VecScalar b Float), CW (c ~ VecScalar b Bool)) => a -> a -> c -> a 664 . (a ~ VecScalar b Float, c ~ VecScalar b Bool) => a -> a -> c -> a
684 665
685PrimStep :: forall (a :: _) (b :: _) . CW (a ~ Vec b Float) => a -> a -> a 666PrimStep :: forall (a :: _) (b :: _) . (a ~ Vec b Float) => a -> a -> a
686 667
687PrimStepS 668PrimStepS
688 :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => Float -> a -> a 669 :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => Float -> a -> a
689 670
690PrimSmoothStep 671PrimSmoothStep
691 :: forall (a :: _) (b :: _) . CW (a ~ Vec b Float) => a -> a -> a -> a 672 :: forall (a :: _) (b :: _) . (a ~ Vec b Float) => a -> a -> a -> a
692 673
693PrimSmoothStepS 674PrimSmoothStepS
694 :: forall (a :: _) (b :: _) 675 :: forall (a :: _) (b :: _)
695 . CW (a ~ VecScalar b Float) => Float -> Float -> a -> a 676 . (a ~ VecScalar b Float) => Float -> Float -> a -> a
696 677
697PrimFloatBitsToInt :: forall (a :: _) . VecScalar a Float -> VecScalar a Int 678PrimFloatBitsToInt :: forall (a :: _) . VecScalar a Float -> VecScalar a Int
698 679
@@ -702,28 +683,24 @@ PrimIntBitsToFloat :: forall (a :: _) . VecScalar a Int -> VecScalar a Float
702 683
703PrimUIntBitsToFloat :: forall (a :: _) . VecScalar a Word -> VecScalar a Float 684PrimUIntBitsToFloat :: forall (a :: _) . VecScalar a Word -> VecScalar a Float
704 685
705PrimLength 686PrimLength :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> Float
706 :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> Float
707 687
708PrimDistance 688PrimDistance
709 :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a -> Float 689 :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> Float
710 690
711PrimDot 691PrimDot :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> Float
712 :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a -> Float
713 692
714PrimCross 693PrimCross :: forall (a :: _) . (a ~ VecScalar (fromInt 3) Float) => a -> a -> a
715 :: forall (a :: _) . CW (a ~ VecScalar (fromInt 3) Float) => a -> a -> a
716 694
717PrimNormalize :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 695PrimNormalize :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
718 696
719PrimFaceForward 697PrimFaceForward
720 :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a -> a -> a 698 :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> a -> a
721 699
722PrimRefract 700PrimRefract
723 :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a -> a -> a 701 :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> a -> a
724 702
725PrimReflect 703PrimReflect :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a -> a
726 :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a -> a
727 704
728PrimTranspose :: forall (a :: _) (b :: _) (c :: _) . Mat a b c -> Mat b a c 705PrimTranspose :: forall (a :: _) (b :: _) (c :: _) . Mat a b c -> Mat b a c
729 706
@@ -746,39 +723,39 @@ PrimMulMatMat
746 723
747PrimLessThan 724PrimLessThan
748 :: forall (a :: _) (b :: _) (c :: _) (d :: _) 725 :: forall (a :: _) (b :: _) (c :: _) (d :: _)
749 . (CW (Num c), CW (a ~ VecScalar b c), CW (d ~ VecScalar b Bool)) => a -> a -> d 726 . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
750 727
751PrimLessThanEqual 728PrimLessThanEqual
752 :: forall (a :: _) (b :: _) (c :: _) (d :: _) 729 :: forall (a :: _) (b :: _) (c :: _) (d :: _)
753 . (CW (Num c), CW (a ~ VecScalar b c), CW (d ~ VecScalar b Bool)) => a -> a -> d 730 . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
754 731
755PrimGreaterThan 732PrimGreaterThan
756 :: forall (a :: _) (b :: _) (c :: _) (d :: _) 733 :: forall (a :: _) (b :: _) (c :: _) (d :: _)
757 . (CW (Num c), CW (a ~ VecScalar b c), CW (d ~ VecScalar b Bool)) => a -> a -> d 734 . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
758 735
759PrimGreaterThanEqual 736PrimGreaterThanEqual
760 :: forall (a :: _) (b :: _) (c :: _) (d :: _) 737 :: forall (a :: _) (b :: _) (c :: _) (d :: _)
761 . (CW (Num c), CW (a ~ VecScalar b c), CW (d ~ VecScalar b Bool)) => a -> a -> d 738 . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
762 739
763PrimEqualV 740PrimEqualV
764 :: forall (a :: _) (b :: _) (c :: _) (d :: _) 741 :: forall (a :: _) (b :: _) (c :: _) (d :: _)
765 . (CW (Num c), CW (a ~ VecScalar b c), CW (d ~ VecScalar b Bool)) => a -> a -> d 742 . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
766 743
767PrimNotEqualV 744PrimNotEqualV
768 :: forall (a :: _) (b :: _) (c :: _) (d :: _) 745 :: forall (a :: _) (b :: _) (c :: _) (d :: _)
769 . (CW (Num c), CW (a ~ VecScalar b c), CW (d ~ VecScalar b Bool)) => a -> a -> d 746 . (Num c, a ~ VecScalar b c, d ~ VecScalar b Bool) => a -> a -> d
770 747
771PrimEqual 748PrimEqual
772 :: forall (a :: _) (b :: _) . CW (b ~ MatVecScalarElem a) => a -> a -> Bool 749 :: forall (a :: _) (b :: _) . (b ~ MatVecScalarElem a) => a -> a -> Bool
773 750
774PrimNotEqual 751PrimNotEqual
775 :: forall (a :: _) (b :: _) . CW (b ~ MatVecScalarElem a) => a -> a -> Bool 752 :: forall (a :: _) (b :: _) . (b ~ MatVecScalarElem a) => a -> a -> Bool
776 753
777PrimDFdx :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 754PrimDFdx :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
778 755
779PrimDFdy :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 756PrimDFdy :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
780 757
781PrimFWidth :: forall (a :: _) (b :: _) . CW (a ~ VecScalar b Float) => a -> a 758PrimFWidth :: forall (a :: _) (b :: _) . (a ~ VecScalar b Float) => a -> a
782 759
783PrimNoise1 :: forall (a :: _) . VecScalar a Float -> Float 760PrimNoise1 :: forall (a :: _) . VecScalar a Float -> Float
784 761
@@ -859,7 +836,7 @@ mapPrimitives = \(a :: _) -> _rhs (map (mapPrimitive a))
859 836
860fetchArrays 837fetchArrays
861 :: forall (a :: _) (b :: _) (c :: _) 838 :: forall (a :: _) (b :: _) (c :: _)
862 . CW (b ~ map ListElem c) => HList c -> PrimitiveStream a (HList b) 839 . (b ~ map ListElem c) => HList c -> PrimitiveStream a (HList b)
863 840
864fetch 841fetch
865 :: forall (a :: _) (b :: _) . String -> HList b -> PrimitiveStream a (HList b) 842 :: forall (a :: _) (b :: _) . String -> HList b -> PrimitiveStream a (HList b)
@@ -869,7 +846,7 @@ Attribute :: forall (a :: _) . String -> a
869fetchStream 846fetchStream
870 :: forall (a :: _) (b :: [Type]) 847 :: forall (a :: _) (b :: [Type])
871 . String 848 . String
872 -> forall (c :: [String]) -> CW (len c ~ len b) => PrimitiveStream a (HList b) 849 -> forall (c :: [String]) -> (len c ~ len b) => PrimitiveStream a (HList b)
873 850
874data SimpleFragment (_ :: Type) :: Type where 851data SimpleFragment (_ :: Type) :: Type where
875 SimpleFragment :: forall a . Vec (fromInt 3) Float -> a -> SimpleFragment a 852 SimpleFragment :: forall a . Vec (fromInt 3) Float -> a -> SimpleFragment a
@@ -927,7 +904,7 @@ data Image (_ :: Nat) (_ :: ImageKind) :: Type where
927 904
928ColorImage 905ColorImage
929 :: forall (a :: _) (b :: _) (c :: _) (d :: _) 906 :: forall (a :: _) (b :: _) (c :: _) (d :: _)
930 . (CW (Num c), CW (d ~ VecScalar b c)) => d -> Image a (Color d) 907 . (Num c, d ~ VecScalar b c) => d -> Image a (Color d)
931 908
932DepthImage :: forall (a :: _) . Float -> Image a Depth 909DepthImage :: forall (a :: _) . Float -> Image a Depth
933 910
@@ -1076,7 +1053,7 @@ data PointSpriteCoordOrigin :: Type where
1076 LowerLeft :: PointSpriteCoordOrigin 1053 LowerLeft :: PointSpriteCoordOrigin
1077 UpperLeft :: PointSpriteCoordOrigin 1054 UpperLeft :: PointSpriteCoordOrigin
1078 1055
1079primTexture :: HList '[] -> Vec (fromInt 2) Float -> Vec (fromInt 4) Float 1056primTexture :: () -> Vec (fromInt 2) Float -> Vec (fromInt 4) Float
1080 1057
1081Uniform :: forall (a :: _) . String -> a 1058Uniform :: forall (a :: _) . String -> a
1082 1059
@@ -1092,13 +1069,10 @@ data RasterContext (_ :: Type) :: PrimitiveType -> Type where
1092 1069
1093data Blending :: Type -> Type where 1070data Blending :: Type -> Type where
1094 NoBlending :: forall (a :: _) . Blending a 1071 NoBlending :: forall (a :: _) . Blending a
1095 BlendLogicOp 1072 BlendLogicOp :: forall (b :: _) . Integral b => LogicOperation -> Blending b
1096 :: forall (b :: _) . CW (Integral b) => LogicOperation -> Blending b
1097 Blend 1073 Blend
1098 :: HList (BlendEquation : BlendEquation : '[]) 1074 :: (BlendEquation, BlendEquation)
1099 -> HList 1075 -> ((BlendingFactor, BlendingFactor), (BlendingFactor, BlendingFactor))
1100 (HList (BlendingFactor : BlendingFactor : '[])
1101 : HList (BlendingFactor : BlendingFactor : '[]) : '[])
1102 -> Vec (fromInt 4) Float -> Blending Float 1076 -> Vec (fromInt 4) Float -> Blending Float
1103 1077
1104data StencilTests :: Type where 1078data StencilTests :: Type where
@@ -1110,20 +1084,20 @@ data StencilOps :: Type where
1110data FragmentOperation :: ImageKind -> Type where 1084data FragmentOperation :: ImageKind -> Type where
1111 ColorOp 1085 ColorOp
1112 :: forall (a :: _) (b :: _) 1086 :: forall (a :: _) (b :: _)
1113 . CW (Num a) 1087 . Num a
1114 => Blending a -> VecScalar b Bool -> FragmentOperation (Color (VecScalar b a)) 1088 => Blending a -> VecScalar b Bool -> FragmentOperation (Color (VecScalar b a))
1115 DepthOp :: ComparisonFunction -> Bool -> FragmentOperation Depth 1089 DepthOp :: ComparisonFunction -> Bool -> FragmentOperation Depth
1116 StencilOp 1090 StencilOp
1117 :: StencilTests -> StencilOps -> StencilOps -> FragmentOperation Stencil 1091 :: StencilTests -> StencilOps -> StencilOps -> FragmentOperation Stencil
1118 1092
1119data Interpolated (_ :: Type) :: Type where 1093data Interpolated (_ :: Type) :: Type where
1120 Smooth :: forall a . CW (Floating a) => Interpolated a 1094 Smooth :: forall a . Floating a => Interpolated a
1121 NoPerspective :: forall b . CW (Floating b) => Interpolated b 1095 NoPerspective :: forall b . Floating b => Interpolated b
1122 Flat :: forall c . Interpolated c 1096 Flat :: forall c . Interpolated c
1123 1097
1124rasterizePrimitive 1098rasterizePrimitive
1125 :: forall (a :: _) (b :: _) (c :: _) (d :: _) 1099 :: forall (a :: _) (b :: _) (c :: _) (d :: _)
1126 . (CW (map Interpolated a ~ b), CW (c ~ Vec (fromInt 4) Float : a)) 1100 . (map Interpolated a ~ b, c ~ Vec (fromInt 4) Float : a)
1127 => HList b 1101 => HList b
1128 -> RasterContext (HList c) d 1102 -> RasterContext (HList c) d
1129 -> Primitive (HList c) d -> FragmentStream (fromInt 1) (HList a) 1103 -> Primitive (HList c) d -> FragmentStream (fromInt 1) (HList a)
@@ -1175,11 +1149,11 @@ imageType'
1175 1149
1176Accumulate 1150Accumulate
1177 :: forall (a :: _) (b :: Nat) (c :: [Type]) 1151 :: forall (a :: _) (b :: Nat) (c :: [Type])
1178 . CW (a ~ map FragmentOperationKind c) 1152 . (a ~ map FragmentOperationKind c)
1179 => HList c 1153 => HList c
1180 -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a 1154 -> FragmentStream b (HList (imageType' a)) -> FrameBuffer b a -> FrameBuffer b a
1181 1155
1182accumulateWith = \(a :: _) (b :: _) -> _rhs (HCons a (HCons b HNil)) 1156accumulateWith = \(a :: _) (b :: _) -> _rhs (a, b)
1183 1157
1184overlay 1158overlay
1185 = \(a :: _) (b :: _) -> hlistConsCase 1159 = \(a :: _) (b :: _) -> hlistConsCase
@@ -1198,7 +1172,7 @@ infixl 0 overlay
1198 1172
1199FrameBuffer 1173FrameBuffer
1200 :: forall (a :: [Type]) 1174 :: forall (a :: [Type])
1201 . CW (sameLayerCounts a) 1175 . sameLayerCounts a
1202 => HList a -> FrameBuffer (ImageLC (head a)) (map GetImageKind a) 1176 => HList a -> FrameBuffer (ImageLC (head a)) (map GetImageKind a)
1203 1177
1204imageFrame = _rhs FrameBuffer 1178imageFrame = _rhs FrameBuffer
@@ -1208,10 +1182,10 @@ accumulate
1208 (Accumulate a (mapFragments b c) d) 1182 (Accumulate a (mapFragments b c) d)
1209 1183
1210PrjImage 1184PrjImage
1211 :: forall (a :: _) . FrameBuffer (fromInt 1) (a : '[]) -> Image (fromInt 1) a 1185 :: forall (a :: _) . FrameBuffer (fromInt 1) ' [a] -> Image (fromInt 1) a
1212 1186
1213PrjImageColor 1187PrjImageColor
1214 :: FrameBuffer (fromInt 1) ('Depth : 'Color (Vec (fromInt 4) Float) : '[]) 1188 :: FrameBuffer (fromInt 1) ' ['Depth, 'Color (Vec (fromInt 4) Float)]
1215 -> Image (fromInt 1) (Color (Vec (fromInt 4) Float)) 1189 -> Image (fromInt 1) (Color (Vec (fromInt 4) Float))
1216 1190
1217data Output :: Type where 1191data Output :: Type where
@@ -1878,8 +1852,8 @@ match'Interpolated
1878 -> (forall b -> a (Interpolated b)) -> forall c -> a c -> a c 1852 -> (forall b -> a (Interpolated b)) -> forall c -> a c -> a c
1879rasterizePrimitive 1853rasterizePrimitive
1880 :: forall (a :: [Type]) (b :: [Type]) (c :: [Type]) (d :: PrimitiveType) 1854 :: forall (a :: [Type]) (b :: [Type]) (c :: [Type]) (d :: PrimitiveType)
1881 . (map Type Type Interpolated a ~ (b :: [Type]), c 1855 . (map Type Type Interpolated a ~ (b :: [Type])
1882 ~ (Vec 4 Float : a :: [Type])) 1856 , c ~ (Vec 4 Float : a :: [Type]))
1883 => HList b 1857 => HList b
1884 -> RasterContext (HList c) d 1858 -> RasterContext (HList c) d
1885 -> Primitive (HList c) d -> FragmentStream 1 (HList a) 1859 -> Primitive (HList c) d -> FragmentStream 1 (HList a)
@@ -1911,9 +1885,10 @@ accumulateWith :: forall a b . a -> b -> (a, b)
1911overlay 1885overlay
1912 :: forall (a :: Nat) (b :: [Type]) 1886 :: forall (a :: Nat) (b :: [Type])
1913 . FrameBuffer a (map Type ImageKind FragmentOperationKind b) 1887 . FrameBuffer a (map Type ImageKind FragmentOperationKind b)
1914 -> (HList b, [Fragment 1888 -> (HList b
1915 a 1889 , [Fragment
1916 (HList (imageType' (map Type ImageKind FragmentOperationKind b)))]) 1890 a
1891 (HList (imageType' (map Type ImageKind FragmentOperationKind b)))])
1917 -> FrameBuffer a (map Type ImageKind FragmentOperationKind b) 1892 -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
1918'GetImageKind :: Type -> ImageKind 1893'GetImageKind :: Type -> ImageKind
1919FrameBuffer 1894FrameBuffer
@@ -1933,9 +1908,9 @@ accumulate
1933 -> [Vector a (Maybe (SimpleFragment c))] 1908 -> [Vector a (Maybe (SimpleFragment c))]
1934 -> FrameBuffer a (map Type ImageKind FragmentOperationKind b) 1909 -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
1935 -> FrameBuffer a (map Type ImageKind FragmentOperationKind b) 1910 -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
1936PrjImage :: forall (a :: ImageKind) . FrameBuffer 1 (a : []) -> Image 1 a 1911PrjImage :: forall (a :: ImageKind) . FrameBuffer 1 ' [a] -> Image 1 a
1937PrjImageColor 1912PrjImageColor
1938 :: FrameBuffer 1 ('Depth : 'Color (Vec 4 Float) : []) 1913 :: FrameBuffer 1 ' ['Depth, 'Color (Vec 4 Float)]
1939 -> Image 1 ('Color (Vec 4 Float)) 1914 -> Image 1 ('Color (Vec 4 Float))
1940'Output :: Type 1915'Output :: Type
1941ScreenOut :: forall (a :: Nat) (b :: [ImageKind]) . FrameBuffer a b -> Output 1916ScreenOut :: forall (a :: Nat) (b :: [ImageKind]) . FrameBuffer a b -> Output
@@ -6625,8 +6600,8 @@ testdata/Builtins.lc 478:55-478:56
6625 Type 6600 Type
6626testdata/Builtins.lc 480:1-480:19 6601testdata/Builtins.lc 480:1-480:19
6627 forall (a :: [Type]) (b :: [Type]) (c :: [Type]) (d :: PrimitiveType) 6602 forall (a :: [Type]) (b :: [Type]) (c :: [Type]) (d :: PrimitiveType)
6628 . (map Type Type Interpolated a ~ (b :: [Type]), c 6603 . (map Type Type Interpolated a ~ (b :: [Type])
6629 ~ (Vec 4 Float : a :: [Type])) 6604 , c ~ (Vec 4 Float : a :: [Type]))
6630 => HList b 6605 => HList b
6631 -> RasterContext (HList c) d 6606 -> RasterContext (HList c) d
6632 -> Primitive (HList c) d -> FragmentStream 1 (HList a) 6607 -> Primitive (HList c) d -> FragmentStream 1 (HList a)
@@ -6750,8 +6725,8 @@ testdata/Builtins.lc 488:40-488:73
6750 [[Fragment 1 (HList _b)]] 6725 [[Fragment 1 (HList _b)]]
6751testdata/Builtins.lc 488:45-488:63 6726testdata/Builtins.lc 488:45-488:63
6752 forall (a :: [Type]) (b :: [Type]) (c :: [Type]) (d :: PrimitiveType) 6727 forall (a :: [Type]) (b :: [Type]) (c :: [Type]) (d :: PrimitiveType)
6753 . (map Type Type Interpolated a ~ (b :: [Type]), c 6728 . (map Type Type Interpolated a ~ (b :: [Type])
6754 ~ (Vec 4 Float : a :: [Type])) 6729 , c ~ (Vec 4 Float : a :: [Type]))
6755 => HList b 6730 => HList b
6756 -> RasterContext (HList c) d 6731 -> RasterContext (HList c) d
6757 -> Primitive (HList c) d -> FragmentStream 1 (HList a) 6732 -> Primitive (HList c) d -> FragmentStream 1 (HList a)
@@ -6984,9 +6959,10 @@ testdata/Builtins.lc 519:30-519:31
6984testdata/Builtins.lc 520:1-520:8 6959testdata/Builtins.lc 520:1-520:8
6985 forall (a :: Nat) (b :: [Type]) 6960 forall (a :: Nat) (b :: [Type])
6986 . FrameBuffer a (map Type ImageKind FragmentOperationKind b) 6961 . FrameBuffer a (map Type ImageKind FragmentOperationKind b)
6987 -> (HList b, [Fragment 6962 -> (HList b
6988 a 6963 , [Fragment
6989 (HList (imageType' (map Type ImageKind FragmentOperationKind b)))]) 6964 a
6965 (HList (imageType' (map Type ImageKind FragmentOperationKind b)))])
6990 -> FrameBuffer a (map Type ImageKind FragmentOperationKind b) 6966 -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
6991testdata/Builtins.lc 520:25-520:35 6967testdata/Builtins.lc 520:25-520:35
6992 forall (a :: [ImageKind]) (b :: Nat) (c :: [Type]) 6968 forall (a :: [ImageKind]) (b :: Nat) (c :: [Type])
@@ -7127,7 +7103,7 @@ testdata/Builtins.lc 534:71-534:75
7127testdata/Builtins.lc 534:77-534:79 7103testdata/Builtins.lc 534:77-534:79
7128 _e 7104 _e
7129testdata/Builtins.lc 537:1-537:9 7105testdata/Builtins.lc 537:1-537:9
7130 forall (a :: ImageKind) . FrameBuffer 1 (a : []) -> Image 1 a 7106 forall (a :: ImageKind) . FrameBuffer 1 ' [a] -> Image 1 a
7131testdata/Builtins.lc 537:24-537:35 7107testdata/Builtins.lc 537:24-537:35
7132 Nat -> [ImageKind] -> Type 7108 Nat -> [ImageKind] -> Type
7133testdata/Builtins.lc 537:24-537:37 7109testdata/Builtins.lc 537:24-537:37
@@ -7153,8 +7129,7 @@ testdata/Builtins.lc 537:52-537:53
7153testdata/Builtins.lc 537:54-537:55 7129testdata/Builtins.lc 537:54-537:55
7154 ImageKind 7130 ImageKind
7155testdata/Builtins.lc 538:1-538:14 7131testdata/Builtins.lc 538:1-538:14
7156 FrameBuffer 1 ('Depth : 'Color (Vec 4 Float) : []) 7132 FrameBuffer 1 ' ['Depth, 'Color (Vec 4 Float)] -> Image 1 ('Color (Vec 4 Float))
7157 -> Image 1 ('Color (Vec 4 Float))
7158testdata/Builtins.lc 538:24-538:35 7133testdata/Builtins.lc 538:24-538:35
7159 Nat -> [ImageKind] -> Type 7134 Nat -> [ImageKind] -> Type
7160testdata/Builtins.lc 538:24-538:37 7135testdata/Builtins.lc 538:24-538:37
diff --git a/testdata/Internals.out b/testdata/Internals.out
index 1e3dc872..eabd6286 100644
--- a/testdata/Internals.out
+++ b/testdata/Internals.out
@@ -121,7 +121,7 @@ isEQ
121 a 121 a
122 (_rhs ('CEmpty "no instance of 'Num on ???"))))) 122 (_rhs ('CEmpty "no instance of 'Num on ???")))))
123 123
124fromInt :: forall a . CW (Num a) => Int -> a 124fromInt :: forall a . Num a => Int -> a
125fromInt 125fromInt
126 = \ @a @_ -> match'Int 126 = \ @a @_ -> match'Int
127 (\_ -> _) 127 (\_ -> _)
@@ -137,7 +137,7 @@ fromInt
137 a 137 a
138 (match'Nat (\_ -> _) (_rhs let f = _rhs primIntToNat in f) a (_rhs undefined)))) 138 (match'Nat (\_ -> _) (_rhs let f = _rhs primIntToNat in f) a (_rhs undefined))))
139 139
140compare :: forall a . CW (Num a) => a -> a -> Ordering 140compare :: forall a . Num a => a -> a -> Ordering
141compare 141compare
142 = \ @a @_ -> match'Int 142 = \ @a @_ -> match'Int
143 (\_ -> _) 143 (\_ -> _)
@@ -153,7 +153,7 @@ compare
153 a 153 a
154 (match'Nat (\_ -> _) (_rhs let e = _rhs undefined in e) a (_rhs undefined)))) 154 (match'Nat (\_ -> _) (_rhs let e = _rhs undefined in e) a (_rhs undefined))))
155 155
156negate :: forall a . CW (Num a) => a -> a 156negate :: forall a . Num a => a -> a
157negate 157negate
158 = \ @a @_ -> match'Int 158 = \ @a @_ -> match'Int
159 (\_ -> _) 159 (\_ -> _)
@@ -197,7 +197,7 @@ negate
197 a 197 a
198 (_rhs ('CEmpty "no instance of 'Eq on ???"))))))) 198 (_rhs ('CEmpty "no instance of 'Eq on ???")))))))
199 199
200(==) :: forall a . CW (Eq a) => a -> a -> Bool 200(==) :: forall a . Eq a => a -> a -> Bool
201(==) 201(==)
202 = \ @a @_ -> match'String 202 = \ @a @_ -> match'String
203 (\_ -> _) 203 (\_ -> _)
@@ -218,22 +218,26 @@ negate
218 (match'Bool 218 (match'Bool
219 (\_ -> _) 219 (\_ -> _)
220 (_rhs 220 (_rhs
221 let n 221 let
222 = \(o :: _) (p :: _) -> case'Bool 222 n
223 (\_ -> _) 223 = \(o :: _) (p :: _) -> case'Bool
224 (case'Bool (\_ -> _) (_rhs True) (_rhs False) p) 224 (\_ -> _)
225 (case'Bool (\_ -> _) (_rhs False) (_rhs True) p) 225 (case'Bool (\_ -> _) (_rhs True) (_rhs False) p)
226 o in n) 226 (case'Bool (\_ -> _) (_rhs False) (_rhs True) p)
227 o
228 in n)
227 a 229 a
228 (match'Nat 230 (match'Nat
229 (\_ -> _) 231 (\_ -> _)
230 (_rhs 232 (_rhs
231 let q 233 let
232 = \(r :: _) (s :: _) -> case'Nat 234 q
233 (\_ -> _) 235 = \(r :: _) (s :: _) -> case'Nat
234 (case'Nat (\_ -> _) (_rhs True) (\_ -> _rhs False) s) 236 (\_ -> _)
235 (\(t :: _) -> case'Nat (\_ -> _) (_rhs False) (\(u :: _) -> _rhs (t == u)) s) 237 (case'Nat (\_ -> _) (_rhs True) (\_ -> _rhs False) s)
236 r in q) 238 (\(t :: _) -> case'Nat (\_ -> _) (_rhs False) (\(u :: _) -> _rhs (t == u)) s)
239 r
240 in q)
237 a 241 a
238 (_rhs undefined)))))) 242 (_rhs undefined))))))
239 243
@@ -246,10 +250,10 @@ data List (_ :: Type) :: Type where
246infixr 5 : 250infixr 5 :
247 251
248data HList :: [Type] -> Type where 252data HList :: [Type] -> Type where
249 HNil :: HList '[] 253 () :: ()
250 HCons :: forall (a :: _) (b :: _) . a -> HList b -> HList (a : b) 254 HCons :: forall (a :: _) (b :: _) . a -> HList b -> HList (a : b)
251 255
252hlistNilCase :: forall (a :: _) -> a -> HList [] -> a 256hlistNilCase :: forall (a :: _) -> a -> HList Nil -> a
253 257
254hlistConsCase 258hlistConsCase
255 :: forall a (b :: [Type]) 259 :: forall a (b :: [Type])
@@ -354,17 +358,18 @@ negate :: forall a . Num a => a -> a
354case'List 358case'List
355 :: forall a 359 :: forall a
356 . forall (b :: [a] -> Type) 360 . forall (b :: [a] -> Type)
357 -> b [] -> (forall (c :: a) (d :: [a]) -> b (c : d)) -> forall (e :: [a]) -> b e 361 -> b ' []
362 -> (forall (c :: a) (d :: [a]) -> b (c : d)) -> forall (e :: [a]) -> b e
358match'List 363match'List
359 :: forall (a :: Type -> Type) -> (forall b -> a [b]) -> forall c -> a c -> a c 364 :: forall (a :: Type -> Type) -> (forall b -> a [b]) -> forall c -> a c -> a c
360'HList :: [Type] -> Type 365'HList :: [Type] -> Type
361HNil :: () 366() :: ()
362HCons :: forall a (b :: [Type]) . a -> HList b -> HList (a : b) 367HCons :: forall a (b :: [Type]) . a -> HList b -> HList (a : b)
363case'HList 368case'HList
364 :: forall (a :: forall (b :: [Type]) -> HList b -> Type) 369 :: forall (a :: forall (b :: [Type]) -> HList b -> Type)
365 -> a [] () 370 -> a ' [] ' ()
366 -> (forall c (d :: [Type]) 371 -> (forall c (d :: [Type])
367 . forall (e :: c) (f :: HList d) -> a (c : d) ('HCons c d e f)) 372 . forall (e :: c) (f :: HList d) -> a (c : d) ('HCons e f))
368 -> forall (g :: [Type]) . forall (h :: HList g) -> a g h 373 -> forall (g :: [Type]) . forall (h :: HList g) -> a g h
369match'HList 374match'HList
370 :: forall (a :: Type -> Type) 375 :: forall (a :: Type -> Type)
diff --git a/testdata/Material.out b/testdata/Material.out
index 27c646fd..8ae91b82 100644
--- a/testdata/Material.out
+++ b/testdata/Material.out
@@ -122,7 +122,7 @@ data DepthFunction :: Type where
122 122
123data StageAttrs :: Type where 123data StageAttrs :: Type where
124 StageAttrs 124 StageAttrs
125 :: Maybe (HList (Blending' : Blending' : '[])) 125 :: Maybe (Blending', Blending')
126 -> RGBGen 126 -> RGBGen
127 -> AlphaGen 127 -> AlphaGen
128 -> TCGen 128 -> TCGen
@@ -214,8 +214,8 @@ defaultStageAttrs
214 214
215data CommonAttrs :: Type where 215data CommonAttrs :: Type where
216 CommonAttrs 216 CommonAttrs
217 :: HList '[] 217 :: ()
218 -> HList '[] 218 -> ()
219 -> Bool 219 -> Bool
220 -> Float 220 -> Float
221 -> Bool 221 -> Bool
@@ -298,8 +298,8 @@ defaultCommonAttrs :: CommonAttrs
298defaultCommonAttrs 298defaultCommonAttrs
299 = _rhs 299 = _rhs
300 (CommonAttrs 300 (CommonAttrs
301 HNil 301 ()
302 HNil 302 ()
303 False 303 False
304 (fromInt 0) 304 (fromInt 0)
305 False 305 False
diff --git a/testdata/Prelude.out b/testdata/Prelude.out
index c42c81d0..90f52a55 100644
--- a/testdata/Prelude.out
+++ b/testdata/Prelude.out
@@ -36,13 +36,13 @@ uncurry
36 _ 36 _
37 (\(d :: _) (e :: _) -> hlistConsCase 37 (\(d :: _) (e :: _) -> hlistConsCase
38 _ 38 _
39 (\(f :: _) (g :: _) -> hlistNilCase _ (_rhs (HCons (a d) (HCons (b f) HNil))) g) 39 (\(f :: _) (g :: _) -> hlistNilCase _ (_rhs (a d, b f)) g)
40 e) 40 e)
41 c 41 c
42 42
43pi = _rhs 3.141592653589793 43pi = _rhs 3.141592653589793
44 44
45zip :: forall (a :: _) (b :: _) . [a] -> [b] -> [HList (a : b : '[])] 45zip :: forall (a :: _) (b :: _) . [a] -> [b] -> [(a, b)]
46zip 46zip
47 = \(a :: _) (b :: _) -> case'List 47 = \(a :: _) (b :: _) -> case'List
48 (\_ -> _) 48 (\_ -> _)
@@ -50,16 +50,15 @@ zip
50 (\(c :: _) (d :: _) -> case'List 50 (\(c :: _) (d :: _) -> case'List
51 (\_ -> _) 51 (\_ -> _)
52 (_rhs []) 52 (_rhs [])
53 (\(e :: _) (f :: _) -> _rhs (HCons c (HCons e HNil) : zip d f)) 53 (\(e :: _) (f :: _) -> _rhs ((c, e) : zip d f))
54 b) 54 b)
55 a 55 a
56 56
57unzip 57unzip :: forall (a :: _) (b :: _) . [(a, b)] -> ([a], [b])
58 :: forall (a :: _) (b :: _) . [HList (a : b : '[])] -> HList ([a] : [b] : '[])
59unzip 58unzip
60 = \(a :: _) -> case'List 59 = \(a :: _) -> case'List
61 (\_ -> _) 60 (\_ -> _)
62 (_rhs (HCons [] (HCons [] HNil))) 61 (_rhs ([], []))
63 (\(b :: _) (c :: _) -> hlistConsCase 62 (\(b :: _) (c :: _) -> hlistConsCase
64 _ 63 _
65 (\(d :: _) (e :: _) -> hlistConsCase 64 (\(d :: _) (e :: _) -> hlistConsCase
@@ -67,19 +66,23 @@ unzip
67 (\(f :: _) (g :: _) -> hlistNilCase 66 (\(f :: _) (g :: _) -> hlistNilCase
68 _ 67 _
69 (_rhs 68 (_rhs
70 let h = _rhs (unzip c) in let i 69 let
71 = _rhs 70 h = _rhs (unzip c);
72 ((\(j :: _) -> hlistConsCase 71 i
73 _ 72 = _rhs
74 (\_ (k :: _) -> hlistConsCase _ (\(l :: _) (m :: _) -> hlistNilCase _ l m) k) 73 ((\(k :: _) -> hlistConsCase
75 j) 74 _
76 h) in let n 75 (\_ (l :: _) -> hlistConsCase _ (\(m :: _) (n :: _) -> hlistNilCase _ m n) l)
77 = _rhs 76 k)
78 ((\(o :: _) -> hlistConsCase 77 h);
79 _ 78 j
80 (\(p :: _) (q :: _) -> hlistConsCase _ (\_ (r :: _) -> hlistNilCase _ p r) q) 79 = _rhs
81 o) 80 ((\(o :: _) -> hlistConsCase
82 h) in HCons (d : n) (HCons (f : i) HNil)) 81 _
82 (\(p :: _) (q :: _) -> hlistConsCase _ (\_ (r :: _) -> hlistNilCase _ p r) q)
83 o)
84 h)
85 in (d : j, f : i))
83 g) 86 g)
84 e) 87 e)
85 b) 88 b)
@@ -97,7 +100,7 @@ tail :: forall (a :: _) . [a] -> [a]
97tail 100tail
98 = \(a :: _) -> case'List (\_ -> _) (_rhs undefined) (\_ (b :: _) -> _rhs b) a 101 = \(a :: _) -> case'List (\_ -> _) (_rhs undefined) (\_ (b :: _) -> _rhs b) a
99 102
100pairs :: forall (a :: _) . [a] -> [HList (a : a : '[])] 103pairs :: forall (a :: _) . [a] -> [(a, a)]
101pairs = \(a :: _) -> _rhs (zip a (tail a)) 104pairs = \(a :: _) -> _rhs (zip a (tail a))
102 105
103foldl' 106foldl'
@@ -117,21 +120,25 @@ foldr1
117split 120split
118 = \(a :: _) -> case'List 121 = \(a :: _) -> case'List
119 (\_ -> _) 122 (\_ -> _)
120 (_rhs (HCons [] (HCons [] HNil))) 123 (_rhs ([], []))
121 (\(b :: _) (c :: _) -> _rhs 124 (\(b :: _) (c :: _) -> _rhs
122 let d = _rhs (split c) in let e 125 let
123 = _rhs 126 d = _rhs (split c);
124 ((\(f :: _) -> hlistConsCase 127 e
125 _ 128 = _rhs
126 (\_ (g :: _) -> hlistConsCase _ (\(h :: _) (i :: _) -> hlistNilCase _ h i) g) 129 ((\(g :: _) -> hlistConsCase
127 f) 130 _
128 d) in let j 131 (\_ (h :: _) -> hlistConsCase _ (\(i :: _) (j :: _) -> hlistNilCase _ i j) h)
129 = _rhs 132 g)
130 ((\(k :: _) -> hlistConsCase 133 d);
131 _ 134 f
132 (\(l :: _) (m :: _) -> hlistConsCase _ (\_ (n :: _) -> hlistNilCase _ l n) m) 135 = _rhs
133 k) 136 ((\(k :: _) -> hlistConsCase
134 d) in HCons (b : e) (HCons j HNil)) 137 _
138 (\(l :: _) (m :: _) -> hlistConsCase _ (\_ (n :: _) -> hlistNilCase _ l n) m)
139 k)
140 d)
141 in (b : e, f))
135 a 142 a
136 143
137mergeBy 144mergeBy
@@ -158,7 +165,7 @@ sortBy
158 (_rhs []) 165 (_rhs [])
159 (\(c :: _) (d :: _) -> case'List 166 (\(c :: _) (d :: _) -> case'List
160 (\_ -> _) 167 (\_ -> _)
161 (_rhs (c : [])) 168 (_rhs [c])
162 (\_ _ -> _rhs (uncurry (mergeBy a) ((sortBy a *** sortBy a) (split b)))) 169 (\_ _ -> _rhs (uncurry (mergeBy a) ((sortBy a *** sortBy a) (split b))))
163 d) 170 d)
164 b 171 b
@@ -217,7 +224,7 @@ sndTup = _rhs (hlistConsCase (_ :: _) \_ (a :: _) -> a)
217 224
218project 225project
219 :: forall (a :: _) (b :: [RecItem]) 226 :: forall (a :: _) (b :: [RecItem])
220 . forall (c :: String) -> CW (isKeyC c a b) => RecordC b -> a 227 . forall (c :: String) -> isKeyC c a b => RecordC b -> a
221project 228project
222 = \ @(a :: _) @(b :: _) (c :: _) @_ (d :: _) -> case'List 229 = \ @(a :: _) @(b :: _) (c :: _) @_ (d :: _) -> case'List
223 (\_ -> _) 230 (\_ -> _)
@@ -543,8 +550,12 @@ perspective
543 :: Float -> Float -> Float -> Float -> Mat (fromInt 4) (fromInt 4) Float 550 :: Float -> Float -> Float -> Float -> Mat (fromInt 4) (fromInt 4) Float
544perspective 551perspective
545 = \(a :: _) (b :: _) (c :: _) (d :: _) -> _rhs 552 = \(a :: _) (b :: _) (c :: _) (d :: _) -> _rhs
546 let e = _rhs (a * tan (c / fromInt 2)) in let f = _rhs (fromInt 0 - e) in let g 553 let
547 = _rhs (d * e) in let h = _rhs (fromInt 0 - g) in M44F 554 e = _rhs (a * tan (c / fromInt 2));
555 f = _rhs (fromInt 0 - e);
556 g = _rhs (d * e);
557 h = _rhs (fromInt 0 - g)
558 in M44F
548 (V4 (fromInt 2 * a / (g - h)) (fromInt 0) (fromInt 0) (fromInt 0)) 559 (V4 (fromInt 2 * a / (g - h)) (fromInt 0) (fromInt 0) (fromInt 0))
549 (V4 (fromInt 0) (fromInt 2 * a / (e - f)) (fromInt 0) (fromInt 0)) 560 (V4 (fromInt 0) (fromInt 2 * a / (e - f)) (fromInt 0) (fromInt 0))
550 (V4 561 (V4
@@ -560,7 +571,7 @@ perspective
560 571
561rotMatrixZ 572rotMatrixZ
562 = \(a :: _) -> _rhs 573 = \(a :: _) -> _rhs
563 let b = _rhs (cos a) in let c = _rhs (sin a) in M44F 574 let b = _rhs (cos a); c = _rhs (sin a) in M44F
564 (V4 b c (fromInt 0) (fromInt 0)) 575 (V4 b c (fromInt 0) (fromInt 0))
565 (V4 (fromInt 0 - c) b (fromInt 0) (fromInt 0)) 576 (V4 (fromInt 0 - c) b (fromInt 0) (fromInt 0))
566 (V4 (fromInt 0) (fromInt 0) (fromInt 1) (fromInt 0)) 577 (V4 (fromInt 0) (fromInt 0) (fromInt 1) (fromInt 0))
@@ -568,7 +579,7 @@ rotMatrixZ
568 579
569rotMatrixY 580rotMatrixY
570 = \(a :: _) -> _rhs 581 = \(a :: _) -> _rhs
571 let b = _rhs (cos a) in let c = _rhs (sin a) in M44F 582 let b = _rhs (cos a); c = _rhs (sin a) in M44F
572 (V4 b (fromInt 0) (fromInt 0 - c) (fromInt 0)) 583 (V4 b (fromInt 0) (fromInt 0 - c) (fromInt 0))
573 (V4 (fromInt 0) (fromInt 1) (fromInt 0) (fromInt 0)) 584 (V4 (fromInt 0) (fromInt 1) (fromInt 0) (fromInt 0))
574 (V4 c (fromInt 0) b (fromInt 0)) 585 (V4 c (fromInt 0) b (fromInt 0))
@@ -576,7 +587,7 @@ rotMatrixY
576 587
577rotMatrixX 588rotMatrixX
578 = \(a :: _) -> _rhs 589 = \(a :: _) -> _rhs
579 let b = _rhs (cos a) in let c = _rhs (sin a) in M44F 590 let b = _rhs (cos a); c = _rhs (sin a) in M44F
580 (V4 (fromInt 1) (fromInt 0) (fromInt 0) (fromInt 0)) 591 (V4 (fromInt 1) (fromInt 0) (fromInt 0) (fromInt 0))
581 (V4 (fromInt 0) b c (fromInt 0)) 592 (V4 (fromInt 0) b c (fromInt 0))
582 (V4 (fromInt 0) (fromInt 0 - c) b (fromInt 0)) 593 (V4 (fromInt 0) (fromInt 0 - c) b (fromInt 0))
@@ -589,15 +600,13 @@ rotationEuler
589translateBefore4 :: Vec (fromInt 3) Float -> Mat (fromInt 4) (fromInt 4) Float 600translateBefore4 :: Vec (fromInt 3) Float -> Mat (fromInt 4) (fromInt 4) Float
590translateBefore4 601translateBefore4
591 = \(a :: _) -> _rhs 602 = \(a :: _) -> _rhs
592 let b = _rhs (V4 (fromInt 1) (fromInt 0) (fromInt 0) (fromInt 0)) in let c 603 let
593 = _rhs (V4 (fromInt 0) (fromInt 1) (fromInt 0) (fromInt 0)) in let d 604 b = _rhs (V4 (fromInt 1) (fromInt 0) (fromInt 0) (fromInt 0));
594 = _rhs (V4 (fromInt 0) (fromInt 0) (fromInt 1) (fromInt 0)) in let e 605 c = _rhs (V4 (fromInt 0) (fromInt 1) (fromInt 0) (fromInt 0));
595 = _rhs 606 d = _rhs (V4 (fromInt 0) (fromInt 0) (fromInt 1) (fromInt 0));
596 (V4 607 e
597 (swizzscalar a Sx) 608 = _rhs (V4 (swizzscalar a Sx) (swizzscalar a Sy) (swizzscalar a Sz) (fromInt 1))
598 (swizzscalar a Sy) 609 in M44F b c d e
599 (swizzscalar a Sz)
600 (fromInt 1)) in M44F b c d e
601 610
602lookat 611lookat
603 :: Vec (fromInt 3) Float 612 :: Vec (fromInt 3) Float
@@ -605,22 +614,18 @@ lookat
605 -> Vec (fromInt 3) Float -> Mat (fromInt 4) (fromInt 4) Float 614 -> Vec (fromInt 3) Float -> Mat (fromInt 4) (fromInt 4) Float
606lookat 615lookat
607 = \(a :: _) (b :: _) (c :: _) -> _rhs 616 = \(a :: _) (b :: _) (c :: _) -> _rhs
608 let d 617 let
609 = \(e :: _) -> _rhs 618 d
610 (V4 619 = \(i :: _) -> _rhs
611 (swizzscalar e Sx) 620 (V4 (swizzscalar i Sx) (swizzscalar i Sy) (swizzscalar i Sz) (fromInt 0));
612 (swizzscalar e Sy) 621 e = _rhs (normalize $ a - b);
613 (swizzscalar e Sz) 622 f = _rhs (normalize $ c `cross` e);
614 (fromInt 0)) in let f = _rhs (normalize $ a - b) in let g 623 g = _rhs (e `cross` f);
615 = _rhs (normalize $ c `cross` f) in let h = _rhs (f `cross` g) in let i 624 h
616 = _rhs 625 = _rhs
617 (transpose 626 (transpose
618 $ M44F 627 $ M44F (d f) (d g) (d e) (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1)))
619 (d g) 628 in h .*. translateBefore4 (neg a)
620 (d h)
621 (d f)
622 (V4 (fromInt 0) (fromInt 0) (fromInt 0) (fromInt 1))) in i
623 .*. translateBefore4 (neg a)
624 629
625scale = \(a :: _) (b :: _) -> _rhs (b * V4 a a a 1.0) 630scale = \(a :: _) (b :: _) -> _rhs (b * V4 a a a 1.0)
626 631
diff --git a/testdata/SampleMaterial.out b/testdata/SampleMaterial.out
index d0bc2e7d..f3c00e80 100644
--- a/testdata/SampleMaterial.out
+++ b/testdata/SampleMaterial.out
@@ -2,2081 +2,1880 @@ main is not found
2------------ desugared source code 2------------ desugared source code
3sampleMaterial 3sampleMaterial
4 = _rhs 4 = _rhs
5 (HCons 5 [("textures/gothic_block/blocks11b"
6 "textures/gothic_block/blocks11b" 6 , CommonAttrs
7 (HCons 7 ()
8 (CommonAttrs 8 ()
9 HNil 9 False
10 HNil 10 (fromInt 0)
11 False 11 False
12 (fromInt 0) 12 False
13 False 13 CT_FrontSided
14 False 14 []
15 CT_FrontSided 15 False
16 [] 16 False
17 False 17 [StageAttrs
18 False 18 Nothing
19 (StageAttrs 19 RGB_IdentityLighting
20 Nothing 20 A_Identity
21 RGB_IdentityLighting 21 TG_Base
22 A_Identity 22 []
23 TG_Base 23 (ST_Map "textures/gothic_block/blocks11b")
24 [] 24 True
25 (ST_Map "textures/gothic_block/blocks11b") 25 D_Lequal
26 True 26 Nothing
27 D_Lequal 27 False
28 Nothing 28 "Tex_4288602201"
29 False 29 , StageAttrs
30 "Tex_4288602201" 30 (Just (B_DstColor, B_Zero))
31 : StageAttrs 31 RGB_IdentityLighting
32 (Just (HCons B_DstColor (HCons B_Zero HNil))) 32 A_Identity
33 RGB_IdentityLighting 33 TG_Lightmap
34 A_Identity 34 []
35 TG_Lightmap 35 ST_Lightmap
36 [] 36 True
37 ST_Lightmap 37 D_Lequal
38 True 38 Nothing
39 D_Lequal 39 False
40 Nothing 40 "Tex_3226210144"]
41 False 41 False)
42 "Tex_3226210144" 42 , ("textures/gothic_block/blocks15"
43 : []) 43 , CommonAttrs
44 False) 44 ()
45 HNil) 45 ()
46 : HCons 46 False
47 "textures/gothic_block/blocks15" 47 (fromInt 0)
48 (HCons 48 False
49 (CommonAttrs 49 False
50 HNil 50 CT_FrontSided
51 HNil 51 []
52 False 52 False
53 (fromInt 0) 53 False
54 False 54 [StageAttrs
55 False 55 Nothing
56 CT_FrontSided 56 RGB_IdentityLighting
57 [] 57 A_Identity
58 False 58 TG_Base
59 False 59 []
60 (StageAttrs 60 (ST_Map "textures/gothic_block/blocks15")
61 Nothing 61 True
62 RGB_IdentityLighting 62 D_Lequal
63 A_Identity 63 Nothing
64 TG_Base 64 False
65 [] 65 "Tex_2523116863"
66 (ST_Map "textures/gothic_block/blocks15") 66 , StageAttrs
67 True 67 (Just (B_DstColor, B_Zero))
68 D_Lequal 68 RGB_IdentityLighting
69 Nothing 69 A_Identity
70 False 70 TG_Lightmap
71 "Tex_2523116863" 71 []
72 : StageAttrs 72 ST_Lightmap
73 (Just (HCons B_DstColor (HCons B_Zero HNil))) 73 True
74 RGB_IdentityLighting 74 D_Lequal
75 A_Identity 75 Nothing
76 TG_Lightmap 76 False
77 [] 77 "Tex_3226210144"]
78 ST_Lightmap 78 False)
79 True 79 , ("textures/gothic_block/blocks18b"
80 D_Lequal 80 , CommonAttrs
81 Nothing 81 ()
82 False 82 ()
83 "Tex_3226210144" 83 False
84 : []) 84 (fromInt 0)
85 False) 85 False
86 HNil) 86 False
87 : HCons 87 CT_FrontSided
88 "textures/gothic_block/blocks18b" 88 []
89 (HCons 89 False
90 (CommonAttrs 90 False
91 HNil 91 [StageAttrs
92 HNil 92 Nothing
93 False 93 RGB_IdentityLighting
94 (fromInt 0) 94 A_Identity
95 False 95 TG_Base
96 False 96 []
97 CT_FrontSided 97 (ST_Map "textures/gothic_block/blocks18b")
98 [] 98 True
99 False 99 D_Lequal
100 False 100 Nothing
101 (StageAttrs 101 False
102 Nothing 102 "Tex_2639119078"
103 RGB_IdentityLighting 103 , StageAttrs
104 A_Identity 104 (Just (B_DstColor, B_Zero))
105 TG_Base 105 RGB_IdentityLighting
106 [] 106 A_Identity
107 (ST_Map "textures/gothic_block/blocks18b") 107 TG_Lightmap
108 True 108 []
109 D_Lequal 109 ST_Lightmap
110 Nothing 110 True
111 False 111 D_Lequal
112 "Tex_2639119078" 112 Nothing
113 : StageAttrs 113 False
114 (Just (HCons B_DstColor (HCons B_Zero HNil))) 114 "Tex_3226210144"]
115 RGB_IdentityLighting 115 False)
116 A_Identity 116 , ("textures/gothic_block/blocks18c_3"
117 TG_Lightmap 117 , CommonAttrs
118 [] 118 ()
119 ST_Lightmap 119 ()
120 True 120 False
121 D_Lequal 121 (fromInt 0)
122 Nothing 122 False
123 False 123 False
124 "Tex_3226210144" 124 CT_FrontSided
125 : []) 125 []
126 False) 126 False
127 HNil) 127 False
128 : HCons 128 [StageAttrs
129 "textures/gothic_block/blocks18c_3" 129 Nothing
130 (HCons 130 RGB_IdentityLighting
131 (CommonAttrs 131 A_Identity
132 HNil 132 TG_Base
133 HNil 133 []
134 False 134 (ST_Map "textures/gothic_block/blocks18c_3")
135 (fromInt 0) 135 True
136 False 136 D_Lequal
137 False 137 Nothing
138 CT_FrontSided 138 False
139 [] 139 "Tex_3939430064"
140 False 140 , StageAttrs
141 False 141 (Just (B_DstColor, B_Zero))
142 (StageAttrs 142 RGB_IdentityLighting
143 Nothing 143 A_Identity
144 RGB_IdentityLighting 144 TG_Lightmap
145 A_Identity 145 []
146 TG_Base 146 ST_Lightmap
147 [] 147 True
148 (ST_Map "textures/gothic_block/blocks18c_3") 148 D_Lequal
149 True 149 Nothing
150 D_Lequal 150 False
151 Nothing 151 "Tex_3226210144"]
152 False 152 False)
153 "Tex_3939430064" 153 , ("textures/gothic_block/demon_block15fx"
154 : StageAttrs 154 , CommonAttrs
155 (Just (HCons B_DstColor (HCons B_Zero HNil))) 155 ()
156 RGB_IdentityLighting 156 ()
157 A_Identity 157 False
158 TG_Lightmap 158 (fromInt 3)
159 [] 159 False
160 ST_Lightmap 160 False
161 True 161 CT_FrontSided
162 D_Lequal 162 []
163 Nothing 163 False
164 False 164 False
165 "Tex_3226210144" 165 [StageAttrs
166 : []) 166 Nothing
167 False) 167 RGB_Identity
168 HNil) 168 A_Identity
169 : HCons 169 TG_Base
170 "textures/gothic_block/demon_block15fx" 170 [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 1.6, TM_Scale 4.0 4.0]
171 (HCons 171 (ST_Map "textures/sfx/firegorre.tga")
172 (CommonAttrs 172 True
173 HNil 173 D_Lequal
174 HNil 174 Nothing
175 False 175 False
176 (fromInt 3) 176 "Tex_47037129"
177 False 177 , StageAttrs
178 False 178 (Just (B_SrcAlpha, B_OneMinusSrcAlpha))
179 CT_FrontSided 179 RGB_Identity
180 [] 180 A_Identity
181 False 181 TG_Base
182 False 182 []
183 (StageAttrs 183 (ST_Map "textures/gothic_block/demon_block15fx.tga")
184 Nothing 184 False
185 RGB_Identity 185 D_Lequal
186 A_Identity 186 Nothing
187 TG_Base 187 False
188 (TM_Scroll 0.0 1.0 : TM_Turb 0.0 0.25 0.0 1.6 : TM_Scale 4.0 4.0 : []) 188 "Tex_3562558025"
189 (ST_Map "textures/sfx/firegorre.tga") 189 , StageAttrs
190 True 190 (Just (B_DstColor, B_OneMinusDstAlpha))
191 D_Lequal 191 RGB_Identity
192 Nothing 192 A_Identity
193 False 193 TG_Lightmap
194 "Tex_47037129" 194 []
195 : StageAttrs 195 ST_Lightmap
196 (Just (HCons B_SrcAlpha (HCons B_OneMinusSrcAlpha HNil))) 196 False
197 RGB_Identity 197 D_Lequal
198 A_Identity 198 Nothing
199 TG_Base 199 False
200 [] 200 "Tex_2065974340"]
201 (ST_Map "textures/gothic_block/demon_block15fx.tga") 201 False)
202 False 202 , ("textures/gothic_block/killblock"
203 D_Lequal 203 , CommonAttrs
204 Nothing 204 ()
205 False 205 ()
206 "Tex_3562558025" 206 False
207 : StageAttrs 207 (fromInt 0)
208 (Just (HCons B_DstColor (HCons B_OneMinusDstAlpha HNil))) 208 False
209 RGB_Identity 209 False
210 A_Identity 210 CT_FrontSided
211 TG_Lightmap 211 []
212 [] 212 False
213 ST_Lightmap 213 False
214 False 214 [StageAttrs
215 D_Lequal 215 Nothing
216 Nothing 216 RGB_IdentityLighting
217 False 217 A_Identity
218 "Tex_2065974340" 218 TG_Base
219 : []) 219 []
220 False) 220 (ST_Map "textures/gothic_block/killblock")
221 HNil) 221 True
222 : HCons 222 D_Lequal
223 "textures/gothic_block/killblock" 223 Nothing
224 (HCons 224 False
225 (CommonAttrs 225 "Tex_3647563961"
226 HNil 226 , StageAttrs
227 HNil 227 (Just (B_DstColor, B_Zero))
228 False 228 RGB_IdentityLighting
229 (fromInt 0) 229 A_Identity
230 False 230 TG_Lightmap
231 False 231 []
232 CT_FrontSided 232 ST_Lightmap
233 [] 233 True
234 False 234 D_Lequal
235 False 235 Nothing
236 (StageAttrs 236 False
237 Nothing 237 "Tex_3226210144"]
238 RGB_IdentityLighting 238 False)
239 A_Identity 239 , ("textures/gothic_block/killblock_i"
240 TG_Base 240 , CommonAttrs
241 [] 241 ()
242 (ST_Map "textures/gothic_block/killblock") 242 ()
243 True 243 False
244 D_Lequal 244 (fromInt 0)
245 Nothing 245 False
246 False 246 False
247 "Tex_3647563961" 247 CT_FrontSided
248 : StageAttrs 248 []
249 (Just (HCons B_DstColor (HCons B_Zero HNil))) 249 False
250 RGB_IdentityLighting 250 False
251 A_Identity 251 [StageAttrs
252 TG_Lightmap 252 Nothing
253 [] 253 RGB_IdentityLighting
254 ST_Lightmap 254 A_Identity
255 True 255 TG_Base
256 D_Lequal 256 []
257 Nothing 257 (ST_Map "textures/gothic_block/killblock_i")
258 False 258 True
259 "Tex_3226210144" 259 D_Lequal
260 : []) 260 Nothing
261 False) 261 False
262 HNil) 262 "Tex_209322640"
263 : HCons 263 , StageAttrs
264 "textures/gothic_block/killblock_i" 264 (Just (B_DstColor, B_Zero))
265 (HCons 265 RGB_IdentityLighting
266 (CommonAttrs 266 A_Identity
267 HNil 267 TG_Lightmap
268 HNil 268 []
269 False 269 ST_Lightmap
270 (fromInt 0) 270 True
271 False 271 D_Lequal
272 False 272 Nothing
273 CT_FrontSided 273 False
274 [] 274 "Tex_3226210144"]
275 False 275 False)
276 False 276 , ("textures/gothic_block/killblock_i4"
277 (StageAttrs 277 , CommonAttrs
278 Nothing 278 ()
279 RGB_IdentityLighting 279 ()
280 A_Identity 280 False
281 TG_Base 281 (fromInt 0)
282 [] 282 False
283 (ST_Map "textures/gothic_block/killblock_i") 283 False
284 True 284 CT_FrontSided
285 D_Lequal 285 []
286 Nothing 286 False
287 False 287 False
288 "Tex_209322640" 288 [StageAttrs
289 : StageAttrs 289 Nothing
290 (Just (HCons B_DstColor (HCons B_Zero HNil))) 290 RGB_IdentityLighting
291 RGB_IdentityLighting 291 A_Identity
292 A_Identity 292 TG_Base
293 TG_Lightmap 293 []
294 [] 294 (ST_Map "textures/gothic_block/killblock_i4")
295 ST_Lightmap 295 True
296 True 296 D_Lequal
297 D_Lequal 297 Nothing
298 Nothing 298 False
299 False 299 "Tex_3617993418"
300 "Tex_3226210144" 300 , StageAttrs
301 : []) 301 (Just (B_DstColor, B_Zero))
302 False) 302 RGB_IdentityLighting
303 HNil) 303 A_Identity
304 : HCons 304 TG_Lightmap
305 "textures/gothic_block/killblock_i4" 305 []
306 (HCons 306 ST_Lightmap
307 (CommonAttrs 307 True
308 HNil 308 D_Lequal
309 HNil 309 Nothing
310 False 310 False
311 (fromInt 0) 311 "Tex_3226210144"]
312 False 312 False)
313 False 313 , ("textures/gothic_door/km_arena1archfinalc_mid"
314 CT_FrontSided 314 , CommonAttrs
315 [] 315 ()
316 False 316 ()
317 False 317 False
318 (StageAttrs 318 (fromInt 0)
319 Nothing 319 False
320 RGB_IdentityLighting 320 False
321 A_Identity 321 CT_FrontSided
322 TG_Base 322 []
323 [] 323 False
324 (ST_Map "textures/gothic_block/killblock_i4") 324 False
325 True 325 [StageAttrs
326 D_Lequal 326 Nothing
327 Nothing 327 RGB_IdentityLighting
328 False 328 A_Identity
329 "Tex_3617993418" 329 TG_Base
330 : StageAttrs 330 []
331 (Just (HCons B_DstColor (HCons B_Zero HNil))) 331 (ST_Map "textures/gothic_door/km_arena1archfinalc_mid")
332 RGB_IdentityLighting 332 True
333 A_Identity 333 D_Lequal
334 TG_Lightmap 334 Nothing
335 [] 335 False
336 ST_Lightmap 336 "Tex_2073154888"
337 True 337 , StageAttrs
338 D_Lequal 338 (Just (B_DstColor, B_Zero))
339 Nothing 339 RGB_IdentityLighting
340 False 340 A_Identity
341 "Tex_3226210144" 341 TG_Lightmap
342 : []) 342 []
343 False) 343 ST_Lightmap
344 HNil) 344 True
345 : HCons 345 D_Lequal
346 "textures/gothic_door/km_arena1archfinalc_mid" 346 Nothing
347 (HCons 347 False
348 (CommonAttrs 348 "Tex_3226210144"]
349 HNil 349 False)
350 HNil 350 , ("textures/gothic_door/km_arena1archfinalc_top"
351 False 351 , CommonAttrs
352 (fromInt 0) 352 ()
353 False 353 ()
354 False 354 False
355 CT_FrontSided 355 (fromInt 0)
356 [] 356 False
357 False 357 False
358 False 358 CT_FrontSided
359 (StageAttrs 359 []
360 Nothing 360 False
361 RGB_IdentityLighting 361 False
362 A_Identity 362 [StageAttrs
363 TG_Base 363 Nothing
364 [] 364 RGB_IdentityLighting
365 (ST_Map "textures/gothic_door/km_arena1archfinalc_mid") 365 A_Identity
366 True 366 TG_Base
367 D_Lequal 367 []
368 Nothing 368 (ST_Map "textures/gothic_door/km_arena1archfinalc_top")
369 False 369 True
370 "Tex_2073154888" 370 D_Lequal
371 : StageAttrs 371 Nothing
372 (Just (HCons B_DstColor (HCons B_Zero HNil))) 372 False
373 RGB_IdentityLighting 373 "Tex_3071107621"
374 A_Identity 374 , StageAttrs
375 TG_Lightmap 375 (Just (B_DstColor, B_Zero))
376 [] 376 RGB_IdentityLighting
377 ST_Lightmap 377 A_Identity
378 True 378 TG_Lightmap
379 D_Lequal 379 []
380 Nothing 380 ST_Lightmap
381 False 381 True
382 "Tex_3226210144" 382 D_Lequal
383 : []) 383 Nothing
384 False) 384 False
385 HNil) 385 "Tex_3226210144"]
386 : HCons 386 False)
387 "textures/gothic_door/km_arena1archfinalc_top" 387 , ("textures/gothic_door/km_arena1archfinald_bot"
388 (HCons 388 , CommonAttrs
389 (CommonAttrs 389 ()
390 HNil 390 ()
391 HNil 391 False
392 False 392 (fromInt 0)
393 (fromInt 0) 393 False
394 False 394 False
395 False 395 CT_FrontSided
396 CT_FrontSided 396 []
397 [] 397 False
398 False 398 False
399 False 399 [StageAttrs
400 (StageAttrs 400 Nothing
401 Nothing 401 RGB_IdentityLighting
402 RGB_IdentityLighting 402 A_Identity
403 A_Identity 403 TG_Base
404 TG_Base 404 []
405 [] 405 (ST_Map "textures/gothic_door/km_arena1archfinald_bot")
406 (ST_Map "textures/gothic_door/km_arena1archfinalc_top") 406 True
407 True 407 D_Lequal
408 D_Lequal 408 Nothing
409 Nothing 409 False
410 False 410 "Tex_1201212243"
411 "Tex_3071107621" 411 , StageAttrs
412 : StageAttrs 412 (Just (B_DstColor, B_Zero))
413 (Just (HCons B_DstColor (HCons B_Zero HNil))) 413 RGB_IdentityLighting
414 RGB_IdentityLighting 414 A_Identity
415 A_Identity 415 TG_Lightmap
416 TG_Lightmap 416 []
417 [] 417 ST_Lightmap
418 ST_Lightmap 418 True
419 True 419 D_Lequal
420 D_Lequal 420 Nothing
421 Nothing 421 False
422 False 422 "Tex_3226210144"]
423 "Tex_3226210144" 423 False)
424 : []) 424 , ("textures/gothic_door/km_arena1archfinald_mid"
425 False) 425 , CommonAttrs
426 HNil) 426 ()
427 : HCons 427 ()
428 "textures/gothic_door/km_arena1archfinald_bot" 428 False
429 (HCons 429 (fromInt 0)
430 (CommonAttrs 430 False
431 HNil 431 False
432 HNil 432 CT_FrontSided
433 False 433 []
434 (fromInt 0) 434 False
435 False 435 False
436 False 436 [StageAttrs
437 CT_FrontSided 437 Nothing
438 [] 438 RGB_IdentityLighting
439 False 439 A_Identity
440 False 440 TG_Base
441 (StageAttrs 441 []
442 Nothing 442 (ST_Map "textures/gothic_door/km_arena1archfinald_mid")
443 RGB_IdentityLighting 443 True
444 A_Identity 444 D_Lequal
445 TG_Base 445 Nothing
446 [] 446 False
447 (ST_Map "textures/gothic_door/km_arena1archfinald_bot") 447 "Tex_3768122504"
448 True 448 , StageAttrs
449 D_Lequal 449 (Just (B_DstColor, B_Zero))
450 Nothing 450 RGB_IdentityLighting
451 False 451 A_Identity
452 "Tex_1201212243" 452 TG_Lightmap
453 : StageAttrs 453 []
454 (Just (HCons B_DstColor (HCons B_Zero HNil))) 454 ST_Lightmap
455 RGB_IdentityLighting 455 True
456 A_Identity 456 D_Lequal
457 TG_Lightmap 457 Nothing
458 [] 458 False
459 ST_Lightmap 459 "Tex_3226210144"]
460 True 460 False)
461 D_Lequal 461 , ("textures/gothic_door/skull_door_a"
462 Nothing 462 , CommonAttrs
463 False 463 ()
464 "Tex_3226210144" 464 ()
465 : []) 465 False
466 False) 466 (fromInt 0)
467 HNil) 467 False
468 : HCons 468 False
469 "textures/gothic_door/km_arena1archfinald_mid" 469 CT_FrontSided
470 (HCons 470 []
471 (CommonAttrs 471 False
472 HNil 472 False
473 HNil 473 [StageAttrs
474 False 474 Nothing
475 (fromInt 0) 475 RGB_IdentityLighting
476 False 476 A_Identity
477 False 477 TG_Base
478 CT_FrontSided 478 []
479 [] 479 (ST_Map "textures/gothic_door/skull_door_a")
480 False 480 True
481 False 481 D_Lequal
482 (StageAttrs 482 Nothing
483 Nothing 483 False
484 RGB_IdentityLighting 484 "Tex_1284708166"
485 A_Identity 485 , StageAttrs
486 TG_Base 486 (Just (B_DstColor, B_Zero))
487 [] 487 RGB_IdentityLighting
488 (ST_Map "textures/gothic_door/km_arena1archfinald_mid") 488 A_Identity
489 True 489 TG_Lightmap
490 D_Lequal 490 []
491 Nothing 491 ST_Lightmap
492 False 492 True
493 "Tex_3768122504" 493 D_Lequal
494 : StageAttrs 494 Nothing
495 (Just (HCons B_DstColor (HCons B_Zero HNil))) 495 False
496 RGB_IdentityLighting 496 "Tex_3226210144"]
497 A_Identity 497 False)
498 TG_Lightmap 498 , ("textures/gothic_door/skull_door_b"
499 [] 499 , CommonAttrs
500 ST_Lightmap 500 ()
501 True 501 ()
502 D_Lequal 502 False
503 Nothing 503 (fromInt 0)
504 False 504 False
505 "Tex_3226210144" 505 False
506 : []) 506 CT_FrontSided
507 False) 507 []
508 HNil) 508 False
509 : HCons 509 False
510 "textures/gothic_door/skull_door_a" 510 [StageAttrs
511 (HCons 511 Nothing
512 (CommonAttrs 512 RGB_IdentityLighting
513 HNil 513 A_Identity
514 HNil 514 TG_Base
515 False 515 []
516 (fromInt 0) 516 (ST_Map "textures/gothic_door/skull_door_b")
517 False 517 True
518 False 518 D_Lequal
519 CT_FrontSided 519 Nothing
520 [] 520 False
521 False 521 "Tex_1318715778"
522 False 522 , StageAttrs
523 (StageAttrs 523 (Just (B_DstColor, B_Zero))
524 Nothing 524 RGB_IdentityLighting
525 RGB_IdentityLighting 525 A_Identity
526 A_Identity 526 TG_Lightmap
527 TG_Base 527 []
528 [] 528 ST_Lightmap
529 (ST_Map "textures/gothic_door/skull_door_a") 529 True
530 True 530 D_Lequal
531 D_Lequal 531 Nothing
532 Nothing 532 False
533 False 533 "Tex_3226210144"]
534 "Tex_1284708166" 534 False)
535 : StageAttrs 535 , ("textures/gothic_door/skull_door_c"
536 (Just (HCons B_DstColor (HCons B_Zero HNil))) 536 , CommonAttrs
537 RGB_IdentityLighting 537 ()
538 A_Identity 538 ()
539 TG_Lightmap 539 False
540 [] 540 (fromInt 0)
541 ST_Lightmap 541 False
542 True 542 False
543 D_Lequal 543 CT_FrontSided
544 Nothing 544 []
545 False 545 False
546 "Tex_3226210144" 546 False
547 : []) 547 [StageAttrs
548 False) 548 Nothing
549 HNil) 549 RGB_IdentityLighting
550 : HCons 550 A_Identity
551 "textures/gothic_door/skull_door_b" 551 TG_Base
552 (HCons 552 []
553 (CommonAttrs 553 (ST_Map "textures/gothic_door/skull_door_c")
554 HNil 554 True
555 HNil 555 D_Lequal
556 False 556 Nothing
557 (fromInt 0) 557 False
558 False 558 "Tex_4189195777"
559 False 559 , StageAttrs
560 CT_FrontSided 560 (Just (B_DstColor, B_Zero))
561 [] 561 RGB_IdentityLighting
562 False 562 A_Identity
563 False 563 TG_Lightmap
564 (StageAttrs 564 []
565 Nothing 565 ST_Lightmap
566 RGB_IdentityLighting 566 True
567 A_Identity 567 D_Lequal
568 TG_Base 568 Nothing
569 [] 569 False
570 (ST_Map "textures/gothic_door/skull_door_b") 570 "Tex_3226210144"]
571 True 571 False)
572 D_Lequal 572 , ("textures/gothic_door/skull_door_d"
573 Nothing 573 , CommonAttrs
574 False 574 ()
575 "Tex_1318715778" 575 ()
576 : StageAttrs 576 False
577 (Just (HCons B_DstColor (HCons B_Zero HNil))) 577 (fromInt 0)
578 RGB_IdentityLighting 578 False
579 A_Identity 579 False
580 TG_Lightmap 580 CT_FrontSided
581 [] 581 []
582 ST_Lightmap 582 False
583 True 583 False
584 D_Lequal 584 [StageAttrs
585 Nothing 585 Nothing
586 False 586 RGB_IdentityLighting
587 "Tex_3226210144" 587 A_Identity
588 : []) 588 TG_Base
589 False) 589 []
590 HNil) 590 (ST_Map "textures/gothic_door/skull_door_d")
591 : HCons 591 True
592 "textures/gothic_door/skull_door_c" 592 D_Lequal
593 (HCons 593 Nothing
594 (CommonAttrs 594 False
595 HNil 595 "Tex_1250438154"
596 HNil 596 , StageAttrs
597 False 597 (Just (B_DstColor, B_Zero))
598 (fromInt 0) 598 RGB_IdentityLighting
599 False 599 A_Identity
600 False 600 TG_Lightmap
601 CT_FrontSided 601 []
602 [] 602 ST_Lightmap
603 False 603 True
604 False 604 D_Lequal
605 (StageAttrs 605 Nothing
606 Nothing 606 False
607 RGB_IdentityLighting 607 "Tex_3226210144"]
608 A_Identity 608 False)
609 TG_Base 609 , ("textures/gothic_door/skull_door_e"
610 [] 610 , CommonAttrs
611 (ST_Map "textures/gothic_door/skull_door_c") 611 ()
612 True 612 ()
613 D_Lequal 613 False
614 Nothing 614 (fromInt 0)
615 False 615 False
616 "Tex_4189195777" 616 False
617 : StageAttrs 617 CT_FrontSided
618 (Just (HCons B_DstColor (HCons B_Zero HNil))) 618 []
619 RGB_IdentityLighting 619 False
620 A_Identity 620 False
621 TG_Lightmap 621 [StageAttrs
622 [] 622 Nothing
623 ST_Lightmap 623 RGB_IdentityLighting
624 True 624 A_Identity
625 D_Lequal 625 TG_Base
626 Nothing 626 []
627 False 627 (ST_Map "textures/gothic_door/skull_door_e")
628 "Tex_3226210144" 628 True
629 : []) 629 D_Lequal
630 False) 630 Nothing
631 HNil) 631 False
632 : HCons 632 "Tex_4255130505"
633 "textures/gothic_door/skull_door_d" 633 , StageAttrs
634 (HCons 634 (Just (B_DstColor, B_Zero))
635 (CommonAttrs 635 RGB_IdentityLighting
636 HNil 636 A_Identity
637 HNil 637 TG_Lightmap
638 False 638 []
639 (fromInt 0) 639 ST_Lightmap
640 False 640 True
641 False 641 D_Lequal
642 CT_FrontSided 642 Nothing
643 [] 643 False
644 False 644 "Tex_3226210144"]
645 False 645 False)
646 (StageAttrs 646 , ("textures/gothic_door/skull_door_f"
647 Nothing 647 , CommonAttrs
648 RGB_IdentityLighting 648 ()
649 A_Identity 649 ()
650 TG_Base 650 False
651 [] 651 (fromInt 0)
652 (ST_Map "textures/gothic_door/skull_door_d") 652 False
653 True 653 False
654 D_Lequal 654 CT_FrontSided
655 Nothing 655 []
656 False 656 False
657 "Tex_1250438154" 657 False
658 : StageAttrs 658 [StageAttrs
659 (Just (HCons B_DstColor (HCons B_Zero HNil))) 659 Nothing
660 RGB_IdentityLighting 660 RGB_IdentityLighting
661 A_Identity 661 A_Identity
662 TG_Lightmap 662 TG_Base
663 [] 663 []
664 ST_Lightmap 664 (ST_Map "textures/gothic_door/skull_door_f")
665 True 665 True
666 D_Lequal 666 D_Lequal
667 Nothing 667 Nothing
668 False 668 False
669 "Tex_3226210144" 669 "Tex_4289279309"
670 : []) 670 , StageAttrs
671 False) 671 (Just (B_DstColor, B_Zero))
672 HNil) 672 RGB_IdentityLighting
673 : HCons 673 A_Identity
674 "textures/gothic_door/skull_door_e" 674 TG_Lightmap
675 (HCons 675 []
676 (CommonAttrs 676 ST_Lightmap
677 HNil 677 True
678 HNil 678 D_Lequal
679 False 679 Nothing
680 (fromInt 0) 680 False
681 False 681 "Tex_3226210144"]
682 False 682 False)
683 CT_FrontSided 683 , ("textures/gothic_door/skullarch_a"
684 [] 684 , CommonAttrs
685 False 685 ()
686 False 686 ()
687 (StageAttrs 687 False
688 Nothing 688 (fromInt 0)
689 RGB_IdentityLighting 689 False
690 A_Identity 690 False
691 TG_Base 691 CT_FrontSided
692 [] 692 []
693 (ST_Map "textures/gothic_door/skull_door_e") 693 False
694 True 694 False
695 D_Lequal 695 [StageAttrs
696 Nothing 696 Nothing
697 False 697 RGB_IdentityLighting
698 "Tex_4255130505" 698 A_Identity
699 : StageAttrs 699 TG_Base
700 (Just (HCons B_DstColor (HCons B_Zero HNil))) 700 []
701 RGB_IdentityLighting 701 (ST_Map "textures/gothic_door/skullarch_a")
702 A_Identity 702 True
703 TG_Lightmap 703 D_Lequal
704 [] 704 Nothing
705 ST_Lightmap 705 False
706 True 706 "Tex_3448884269"
707 D_Lequal 707 , StageAttrs
708 Nothing 708 (Just (B_DstColor, B_Zero))
709 False 709 RGB_IdentityLighting
710 "Tex_3226210144" 710 A_Identity
711 : []) 711 TG_Lightmap
712 False) 712 []
713 HNil) 713 ST_Lightmap
714 : HCons 714 True
715 "textures/gothic_door/skull_door_f" 715 D_Lequal
716 (HCons 716 Nothing
717 (CommonAttrs 717 False
718 HNil 718 "Tex_3226210144"]
719 HNil 719 False)
720 False 720 , ("textures/gothic_door/skullarch_b"
721 (fromInt 0) 721 , CommonAttrs
722 False 722 ()
723 False 723 ()
724 CT_FrontSided 724 False
725 [] 725 (fromInt 3)
726 False 726 False
727 False 727 False
728 (StageAttrs 728 CT_FrontSided
729 Nothing 729 []
730 RGB_IdentityLighting 730 False
731 A_Identity 731 False
732 TG_Base 732 [StageAttrs
733 [] 733 Nothing
734 (ST_Map "textures/gothic_door/skull_door_f") 734 RGB_Identity
735 True 735 A_Identity
736 D_Lequal 736 TG_Base
737 Nothing 737 [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 5.6, TM_Scale 1.5 1.5]
738 False 738 (ST_Map "textures/sfx/firegorre.tga")
739 "Tex_4289279309" 739 True
740 : StageAttrs 740 D_Lequal
741 (Just (HCons B_DstColor (HCons B_Zero HNil))) 741 Nothing
742 RGB_IdentityLighting 742 False
743 A_Identity 743 "Tex_3416962274"
744 TG_Lightmap 744 , StageAttrs
745 [] 745 (Just (B_SrcAlpha, B_OneMinusSrcAlpha))
746 ST_Lightmap 746 RGB_Identity
747 True 747 A_Identity
748 D_Lequal 748 TG_Base
749 Nothing 749 []
750 False 750 (ST_Map "textures/gothic_door/skullarch_b.tga")
751 "Tex_3226210144" 751 False
752 : []) 752 D_Lequal
753 False) 753 Nothing
754 HNil) 754 False
755 : HCons 755 "Tex_4077187607"
756 "textures/gothic_door/skullarch_a" 756 , StageAttrs
757 (HCons 757 (Just (B_DstColor, B_Zero))
758 (CommonAttrs 758 RGB_Identity
759 HNil 759 A_Identity
760 HNil 760 TG_Lightmap
761 False 761 []
762 (fromInt 0) 762 ST_Lightmap
763 False 763 False
764 False 764 D_Lequal
765 CT_FrontSided 765 Nothing
766 [] 766 False
767 False 767 "Tex_1196599720"]
768 False 768 False)
769 (StageAttrs 769 , ("textures/gothic_door/skullarch_c"
770 Nothing 770 , CommonAttrs
771 RGB_IdentityLighting 771 ()
772 A_Identity 772 ()
773 TG_Base 773 False
774 [] 774 (fromInt 0)
775 (ST_Map "textures/gothic_door/skullarch_a") 775 False
776 True 776 False
777 D_Lequal 777 CT_FrontSided
778 Nothing 778 []
779 False 779 False
780 "Tex_3448884269" 780 False
781 : StageAttrs 781 [StageAttrs
782 (Just (HCons B_DstColor (HCons B_Zero HNil))) 782 Nothing
783 RGB_IdentityLighting 783 RGB_IdentityLighting
784 A_Identity 784 A_Identity
785 TG_Lightmap 785 TG_Base
786 [] 786 []
787 ST_Lightmap 787 (ST_Map "textures/gothic_door/skullarch_c")
788 True 788 True
789 D_Lequal 789 D_Lequal
790 Nothing 790 Nothing
791 False 791 False
792 "Tex_3226210144" 792 "Tex_2024854890"
793 : []) 793 , StageAttrs
794 False) 794 (Just (B_DstColor, B_Zero))
795 HNil) 795 RGB_IdentityLighting
796 : HCons 796 A_Identity
797 "textures/gothic_door/skullarch_b" 797 TG_Lightmap
798 (HCons 798 []
799 (CommonAttrs 799 ST_Lightmap
800 HNil 800 True
801 HNil 801 D_Lequal
802 False 802 Nothing
803 (fromInt 3) 803 False
804 False 804 "Tex_3226210144"]
805 False 805 False)
806 CT_FrontSided 806 , ("textures/gothic_door/xian_tourneyarch_inside2"
807 [] 807 , CommonAttrs
808 False 808 ()
809 False 809 ()
810 (StageAttrs 810 False
811 Nothing 811 (fromInt 0)
812 RGB_Identity 812 False
813 A_Identity 813 False
814 TG_Base 814 CT_FrontSided
815 (TM_Scroll 0.0 1.0 : TM_Turb 0.0 0.25 0.0 5.6 : TM_Scale 1.5 1.5 : []) 815 []
816 (ST_Map "textures/sfx/firegorre.tga") 816 False
817 True 817 False
818 D_Lequal 818 [StageAttrs
819 Nothing 819 Nothing
820 False 820 RGB_IdentityLighting
821 "Tex_3416962274" 821 A_Identity
822 : StageAttrs 822 TG_Base
823 (Just (HCons B_SrcAlpha (HCons B_OneMinusSrcAlpha HNil))) 823 []
824 RGB_Identity 824 (ST_Map "textures/gothic_door/xian_tourneyarch_inside2")
825 A_Identity 825 True
826 TG_Base 826 D_Lequal
827 [] 827 Nothing
828 (ST_Map "textures/gothic_door/skullarch_b.tga") 828 False
829 False 829 "Tex_1435187472"
830 D_Lequal 830 , StageAttrs
831 Nothing 831 (Just (B_DstColor, B_Zero))
832 False 832 RGB_IdentityLighting
833 "Tex_4077187607" 833 A_Identity
834 : StageAttrs 834 TG_Lightmap
835 (Just (HCons B_DstColor (HCons B_Zero HNil))) 835 []
836 RGB_Identity 836 ST_Lightmap
837 A_Identity 837 True
838 TG_Lightmap 838 D_Lequal
839 [] 839 Nothing
840 ST_Lightmap 840 False
841 False 841 "Tex_3226210144"]
842 D_Lequal 842 False)
843 Nothing 843 , ("textures/gothic_floor/blocks17floor2"
844 False 844 , CommonAttrs
845 "Tex_1196599720" 845 ()
846 : []) 846 ()
847 False) 847 False
848 HNil) 848 (fromInt 0)
849 : HCons 849 False
850 "textures/gothic_door/skullarch_c" 850 False
851 (HCons 851 CT_FrontSided
852 (CommonAttrs 852 []
853 HNil 853 False
854 HNil 854 False
855 False 855 [StageAttrs
856 (fromInt 0) 856 Nothing
857 False 857 RGB_IdentityLighting
858 False 858 A_Identity
859 CT_FrontSided 859 TG_Base
860 [] 860 []
861 False 861 (ST_Map "textures/gothic_floor/blocks17floor2")
862 False 862 True
863 (StageAttrs 863 D_Lequal
864 Nothing 864 Nothing
865 RGB_IdentityLighting 865 False
866 A_Identity 866 "Tex_3814342582"
867 TG_Base 867 , StageAttrs
868 [] 868 (Just (B_DstColor, B_Zero))
869 (ST_Map "textures/gothic_door/skullarch_c") 869 RGB_IdentityLighting
870 True 870 A_Identity
871 D_Lequal 871 TG_Lightmap
872 Nothing 872 []
873 False 873 ST_Lightmap
874 "Tex_2024854890" 874 True
875 : StageAttrs 875 D_Lequal
876 (Just (HCons B_DstColor (HCons B_Zero HNil))) 876 Nothing
877 RGB_IdentityLighting 877 False
878 A_Identity 878 "Tex_3226210144"]
879 TG_Lightmap 879 False)
880 [] 880 , ("textures/gothic_floor/largerblock3b"
881 ST_Lightmap 881 , CommonAttrs
882 True 882 ()
883 D_Lequal 883 ()
884 Nothing 884 False
885 False 885 (fromInt 0)
886 "Tex_3226210144" 886 False
887 : []) 887 False
888 False) 888 CT_FrontSided
889 HNil) 889 []
890 : HCons 890 False
891 "textures/gothic_door/xian_tourneyarch_inside2" 891 False
892 (HCons 892 [StageAttrs
893 (CommonAttrs 893 Nothing
894 HNil 894 RGB_IdentityLighting
895 HNil 895 A_Identity
896 False 896 TG_Base
897 (fromInt 0) 897 []
898 False 898 (ST_Map "textures/gothic_floor/largerblock3b")
899 False 899 True
900 CT_FrontSided 900 D_Lequal
901 [] 901 Nothing
902 False 902 False
903 False 903 "Tex_2966885788"
904 (StageAttrs 904 , StageAttrs
905 Nothing 905 (Just (B_DstColor, B_Zero))
906 RGB_IdentityLighting 906 RGB_IdentityLighting
907 A_Identity 907 A_Identity
908 TG_Base 908 TG_Lightmap
909 [] 909 []
910 (ST_Map "textures/gothic_door/xian_tourneyarch_inside2") 910 ST_Lightmap
911 True 911 True
912 D_Lequal 912 D_Lequal
913 Nothing 913 Nothing
914 False 914 False
915 "Tex_1435187472" 915 "Tex_3226210144"]
916 : StageAttrs 916 False)
917 (Just (HCons B_DstColor (HCons B_Zero HNil))) 917 , ("textures/gothic_floor/metalbridge06"
918 RGB_IdentityLighting 918 , CommonAttrs
919 A_Identity 919 ()
920 TG_Lightmap 920 ()
921 [] 921 False
922 ST_Lightmap 922 (fromInt 0)
923 True 923 False
924 D_Lequal 924 False
925 Nothing 925 CT_FrontSided
926 False 926 []
927 "Tex_3226210144" 927 False
928 : []) 928 False
929 False) 929 [StageAttrs
930 HNil) 930 Nothing
931 : HCons 931 RGB_IdentityLighting
932 "textures/gothic_floor/blocks17floor2" 932 A_Identity
933 (HCons 933 TG_Base
934 (CommonAttrs 934 []
935 HNil 935 (ST_Map "textures/gothic_floor/metalbridge06")
936 HNil 936 True
937 False 937 D_Lequal
938 (fromInt 0) 938 Nothing
939 False 939 False
940 False 940 "Tex_1581337759"
941 CT_FrontSided 941 , StageAttrs
942 [] 942 (Just (B_DstColor, B_Zero))
943 False 943 RGB_IdentityLighting
944 False 944 A_Identity
945 (StageAttrs 945 TG_Lightmap
946 Nothing 946 []
947 RGB_IdentityLighting 947 ST_Lightmap
948 A_Identity 948 True
949 TG_Base 949 D_Lequal
950 [] 950 Nothing
951 (ST_Map "textures/gothic_floor/blocks17floor2") 951 False
952 True 952 "Tex_3226210144"]
953 D_Lequal 953 False)
954 Nothing 954 , ("textures/gothic_floor/metalbridge06broke"
955 False 955 , CommonAttrs
956 "Tex_3814342582" 956 ()
957 : StageAttrs 957 ()
958 (Just (HCons B_DstColor (HCons B_Zero HNil))) 958 False
959 RGB_IdentityLighting 959 (fromInt 0)
960 A_Identity 960 False
961 TG_Lightmap 961 False
962 [] 962 CT_FrontSided
963 ST_Lightmap 963 []
964 True 964 False
965 D_Lequal 965 False
966 Nothing 966 [StageAttrs
967 False 967 Nothing
968 "Tex_3226210144" 968 RGB_IdentityLighting
969 : []) 969 A_Identity
970 False) 970 TG_Base
971 HNil) 971 []
972 : HCons 972 (ST_Map "textures/gothic_floor/metalbridge06broke")
973 "textures/gothic_floor/largerblock3b" 973 True
974 (HCons 974 D_Lequal
975 (CommonAttrs 975 Nothing
976 HNil 976 False
977 HNil 977 "Tex_3921745736"
978 False 978 , StageAttrs
979 (fromInt 0) 979 (Just (B_DstColor, B_Zero))
980 False 980 RGB_IdentityLighting
981 False 981 A_Identity
982 CT_FrontSided 982 TG_Lightmap
983 [] 983 []
984 False 984 ST_Lightmap
985 False 985 True
986 (StageAttrs 986 D_Lequal
987 Nothing 987 Nothing
988 RGB_IdentityLighting 988 False
989 A_Identity 989 "Tex_3226210144"]
990 TG_Base 990 False)
991 [] 991 , ("textures/gothic_floor/xstairtop4"
992 (ST_Map "textures/gothic_floor/largerblock3b") 992 , CommonAttrs
993 True 993 ()
994 D_Lequal 994 ()
995 Nothing 995 False
996 False 996 (fromInt 0)
997 "Tex_2966885788" 997 False
998 : StageAttrs 998 False
999 (Just (HCons B_DstColor (HCons B_Zero HNil))) 999 CT_FrontSided
1000 RGB_IdentityLighting 1000 []
1001 A_Identity 1001 False
1002 TG_Lightmap 1002 False
1003 [] 1003 [StageAttrs
1004 ST_Lightmap 1004 Nothing
1005 True 1005 RGB_IdentityLighting
1006 D_Lequal 1006 A_Identity
1007 Nothing 1007 TG_Base
1008 False 1008 []
1009 "Tex_3226210144" 1009 (ST_Map "textures/gothic_floor/xstairtop4")
1010 : []) 1010 True
1011 False) 1011 D_Lequal
1012 HNil) 1012 Nothing
1013 : HCons 1013 False
1014 "textures/gothic_floor/metalbridge06" 1014 "Tex_3836020895"
1015 (HCons 1015 , StageAttrs
1016 (CommonAttrs 1016 (Just (B_DstColor, B_Zero))
1017 HNil 1017 RGB_IdentityLighting
1018 HNil 1018 A_Identity
1019 False 1019 TG_Lightmap
1020 (fromInt 0) 1020 []
1021 False 1021 ST_Lightmap
1022 False 1022 True
1023 CT_FrontSided 1023 D_Lequal
1024 [] 1024 Nothing
1025 False 1025 False
1026 False 1026 "Tex_3226210144"]
1027 (StageAttrs 1027 False)
1028 Nothing 1028 , ("textures/gothic_floor/xstepborder3"
1029 RGB_IdentityLighting 1029 , CommonAttrs
1030 A_Identity 1030 ()
1031 TG_Base 1031 ()
1032 [] 1032 False
1033 (ST_Map "textures/gothic_floor/metalbridge06") 1033 (fromInt 0)
1034 True 1034 False
1035 D_Lequal 1035 False
1036 Nothing 1036 CT_FrontSided
1037 False 1037 []
1038 "Tex_1581337759" 1038 False
1039 : StageAttrs 1039 False
1040 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1040 [StageAttrs
1041 RGB_IdentityLighting 1041 Nothing
1042 A_Identity 1042 RGB_IdentityLighting
1043 TG_Lightmap 1043 A_Identity
1044 [] 1044 TG_Base
1045 ST_Lightmap 1045 []
1046 True 1046 (ST_Map "textures/gothic_floor/xstepborder3")
1047 D_Lequal 1047 True
1048 Nothing 1048 D_Lequal
1049 False 1049 Nothing
1050 "Tex_3226210144" 1050 False
1051 : []) 1051 "Tex_3269743316"
1052 False) 1052 , StageAttrs
1053 HNil) 1053 (Just (B_DstColor, B_Zero))
1054 : HCons 1054 RGB_IdentityLighting
1055 "textures/gothic_floor/metalbridge06broke" 1055 A_Identity
1056 (HCons 1056 TG_Lightmap
1057 (CommonAttrs 1057 []
1058 HNil 1058 ST_Lightmap
1059 HNil 1059 True
1060 False 1060 D_Lequal
1061 (fromInt 0) 1061 Nothing
1062 False 1062 False
1063 False 1063 "Tex_3226210144"]
1064 CT_FrontSided 1064 False)
1065 [] 1065 , ("textures/gothic_trim/baseboard04"
1066 False 1066 , CommonAttrs
1067 False 1067 ()
1068 (StageAttrs 1068 ()
1069 Nothing 1069 False
1070 RGB_IdentityLighting 1070 (fromInt 0)
1071 A_Identity 1071 False
1072 TG_Base 1072 False
1073 [] 1073 CT_FrontSided
1074 (ST_Map "textures/gothic_floor/metalbridge06broke") 1074 []
1075 True 1075 False
1076 D_Lequal 1076 False
1077 Nothing 1077 [StageAttrs
1078 False 1078 Nothing
1079 "Tex_3921745736" 1079 RGB_IdentityLighting
1080 : StageAttrs 1080 A_Identity
1081 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1081 TG_Base
1082 RGB_IdentityLighting 1082 []
1083 A_Identity 1083 (ST_Map "textures/gothic_trim/baseboard04")
1084 TG_Lightmap 1084 True
1085 [] 1085 D_Lequal
1086 ST_Lightmap 1086 Nothing
1087 True 1087 False
1088 D_Lequal 1088 "Tex_1002517541"
1089 Nothing 1089 , StageAttrs
1090 False 1090 (Just (B_DstColor, B_Zero))
1091 "Tex_3226210144" 1091 RGB_IdentityLighting
1092 : []) 1092 A_Identity
1093 False) 1093 TG_Lightmap
1094 HNil) 1094 []
1095 : HCons 1095 ST_Lightmap
1096 "textures/gothic_floor/xstairtop4" 1096 True
1097 (HCons 1097 D_Lequal
1098 (CommonAttrs 1098 Nothing
1099 HNil 1099 False
1100 HNil 1100 "Tex_3226210144"]
1101 False 1101 False)
1102 (fromInt 0) 1102 , ("textures/gothic_trim/baseboard09_c3"
1103 False 1103 , CommonAttrs
1104 False 1104 ()
1105 CT_FrontSided 1105 ()
1106 [] 1106 False
1107 False 1107 (fromInt 0)
1108 False 1108 False
1109 (StageAttrs 1109 False
1110 Nothing 1110 CT_FrontSided
1111 RGB_IdentityLighting 1111 []
1112 A_Identity 1112 False
1113 TG_Base 1113 False
1114 [] 1114 [StageAttrs
1115 (ST_Map "textures/gothic_floor/xstairtop4") 1115 Nothing
1116 True 1116 RGB_IdentityLighting
1117 D_Lequal 1117 A_Identity
1118 Nothing 1118 TG_Base
1119 False 1119 []
1120 "Tex_3836020895" 1120 (ST_Map "textures/gothic_trim/baseboard09_c3")
1121 : StageAttrs 1121 True
1122 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1122 D_Lequal
1123 RGB_IdentityLighting 1123 Nothing
1124 A_Identity 1124 False
1125 TG_Lightmap 1125 "Tex_2289735512"
1126 [] 1126 , StageAttrs
1127 ST_Lightmap 1127 (Just (B_DstColor, B_Zero))
1128 True 1128 RGB_IdentityLighting
1129 D_Lequal 1129 A_Identity
1130 Nothing 1130 TG_Lightmap
1131 False 1131 []
1132 "Tex_3226210144" 1132 ST_Lightmap
1133 : []) 1133 True
1134 False) 1134 D_Lequal
1135 HNil) 1135 Nothing
1136 : HCons 1136 False
1137 "textures/gothic_floor/xstepborder3" 1137 "Tex_3226210144"]
1138 (HCons 1138 False)
1139 (CommonAttrs 1139 , ("textures/gothic_trim/baseboard09_e"
1140 HNil 1140 , CommonAttrs
1141 HNil 1141 ()
1142 False 1142 ()
1143 (fromInt 0) 1143 False
1144 False 1144 (fromInt 0)
1145 False 1145 False
1146 CT_FrontSided 1146 False
1147 [] 1147 CT_FrontSided
1148 False 1148 []
1149 False 1149 False
1150 (StageAttrs 1150 False
1151 Nothing 1151 [StageAttrs
1152 RGB_IdentityLighting 1152 Nothing
1153 A_Identity 1153 RGB_IdentityLighting
1154 TG_Base 1154 A_Identity
1155 [] 1155 TG_Base
1156 (ST_Map "textures/gothic_floor/xstepborder3") 1156 []
1157 True 1157 (ST_Map "textures/gothic_trim/baseboard09_e")
1158 D_Lequal 1158 True
1159 Nothing 1159 D_Lequal
1160 False 1160 Nothing
1161 "Tex_3269743316" 1161 False
1162 : StageAttrs 1162 "Tex_2367525081"
1163 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1163 , StageAttrs
1164 RGB_IdentityLighting 1164 (Just (B_DstColor, B_Zero))
1165 A_Identity 1165 RGB_IdentityLighting
1166 TG_Lightmap 1166 A_Identity
1167 [] 1167 TG_Lightmap
1168 ST_Lightmap 1168 []
1169 True 1169 ST_Lightmap
1170 D_Lequal 1170 True
1171 Nothing 1171 D_Lequal
1172 False 1172 Nothing
1173 "Tex_3226210144" 1173 False
1174 : []) 1174 "Tex_3226210144"]
1175 False) 1175 False)
1176 HNil) 1176 , ("textures/gothic_trim/baseboard09_e2"
1177 : HCons 1177 , CommonAttrs
1178 "textures/gothic_trim/baseboard04" 1178 ()
1179 (HCons 1179 ()
1180 (CommonAttrs 1180 False
1181 HNil 1181 (fromInt 0)
1182 HNil 1182 False
1183 False 1183 False
1184 (fromInt 0) 1184 CT_FrontSided
1185 False 1185 []
1186 False 1186 False
1187 CT_FrontSided 1187 False
1188 [] 1188 [StageAttrs
1189 False 1189 Nothing
1190 False 1190 RGB_IdentityLighting
1191 (StageAttrs 1191 A_Identity
1192 Nothing 1192 TG_Base
1193 RGB_IdentityLighting 1193 []
1194 A_Identity 1194 (ST_Map "textures/gothic_trim/baseboard09_e2")
1195 TG_Base 1195 True
1196 [] 1196 D_Lequal
1197 (ST_Map "textures/gothic_trim/baseboard04") 1197 Nothing
1198 True 1198 False
1199 D_Lequal 1199 "Tex_3694494180"
1200 Nothing 1200 , StageAttrs
1201 False 1201 (Just (B_DstColor, B_Zero))
1202 "Tex_1002517541" 1202 RGB_IdentityLighting
1203 : StageAttrs 1203 A_Identity
1204 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1204 TG_Lightmap
1205 RGB_IdentityLighting 1205 []
1206 A_Identity 1206 ST_Lightmap
1207 TG_Lightmap 1207 True
1208 [] 1208 D_Lequal
1209 ST_Lightmap 1209 Nothing
1210 True 1210 False
1211 D_Lequal 1211 "Tex_3226210144"]
1212 Nothing 1212 False)
1213 False 1213 , ("textures/gothic_trim/baseboard09_l2"
1214 "Tex_3226210144" 1214 , CommonAttrs
1215 : []) 1215 ()
1216 False) 1216 ()
1217 HNil) 1217 False
1218 : HCons 1218 (fromInt 0)
1219 "textures/gothic_trim/baseboard09_c3" 1219 False
1220 (HCons 1220 False
1221 (CommonAttrs 1221 CT_FrontSided
1222 HNil 1222 []
1223 HNil 1223 False
1224 False 1224 False
1225 (fromInt 0) 1225 [StageAttrs
1226 False 1226 Nothing
1227 False 1227 RGB_IdentityLighting
1228 CT_FrontSided 1228 A_Identity
1229 [] 1229 TG_Base
1230 False 1230 []
1231 False 1231 (ST_Map "textures/gothic_trim/baseboard09_l2")
1232 (StageAttrs 1232 True
1233 Nothing 1233 D_Lequal
1234 RGB_IdentityLighting 1234 Nothing
1235 A_Identity 1235 False
1236 TG_Base 1236 "Tex_3202786139"
1237 [] 1237 , StageAttrs
1238 (ST_Map "textures/gothic_trim/baseboard09_c3") 1238 (Just (B_DstColor, B_Zero))
1239 True 1239 RGB_IdentityLighting
1240 D_Lequal 1240 A_Identity
1241 Nothing 1241 TG_Lightmap
1242 False 1242 []
1243 "Tex_2289735512" 1243 ST_Lightmap
1244 : StageAttrs 1244 True
1245 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1245 D_Lequal
1246 RGB_IdentityLighting 1246 Nothing
1247 A_Identity 1247 False
1248 TG_Lightmap 1248 "Tex_3226210144"]
1249 [] 1249 False)
1250 ST_Lightmap 1250 , ("textures/gothic_trim/baseboard09_o3"
1251 True 1251 , CommonAttrs
1252 D_Lequal 1252 ()
1253 Nothing 1253 ()
1254 False 1254 False
1255 "Tex_3226210144" 1255 (fromInt 0)
1256 : []) 1256 False
1257 False) 1257 False
1258 HNil) 1258 CT_FrontSided
1259 : HCons 1259 []
1260 "textures/gothic_trim/baseboard09_e" 1260 False
1261 (HCons 1261 False
1262 (CommonAttrs 1262 [StageAttrs
1263 HNil 1263 Nothing
1264 HNil 1264 RGB_IdentityLighting
1265 False 1265 A_Identity
1266 (fromInt 0) 1266 TG_Base
1267 False 1267 []
1268 False 1268 (ST_Map "textures/gothic_trim/baseboard09_o3")
1269 CT_FrontSided 1269 True
1270 [] 1270 D_Lequal
1271 False 1271 Nothing
1272 False 1272 False
1273 (StageAttrs 1273 "Tex_2512757607"
1274 Nothing 1274 , StageAttrs
1275 RGB_IdentityLighting 1275 (Just (B_DstColor, B_Zero))
1276 A_Identity 1276 RGB_IdentityLighting
1277 TG_Base 1277 A_Identity
1278 [] 1278 TG_Lightmap
1279 (ST_Map "textures/gothic_trim/baseboard09_e") 1279 []
1280 True 1280 ST_Lightmap
1281 D_Lequal 1281 True
1282 Nothing 1282 D_Lequal
1283 False 1283 Nothing
1284 "Tex_2367525081" 1284 False
1285 : StageAttrs 1285 "Tex_3226210144"]
1286 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1286 False)
1287 RGB_IdentityLighting 1287 , ("textures/gothic_trim/km_arena1tower4"
1288 A_Identity 1288 , CommonAttrs
1289 TG_Lightmap 1289 ()
1290 [] 1290 ()
1291 ST_Lightmap 1291 False
1292 True 1292 (fromInt 0)
1293 D_Lequal 1293 False
1294 Nothing 1294 False
1295 False 1295 CT_FrontSided
1296 "Tex_3226210144" 1296 []
1297 : []) 1297 False
1298 False) 1298 False
1299 HNil) 1299 [StageAttrs
1300 : HCons 1300 Nothing
1301 "textures/gothic_trim/baseboard09_e2" 1301 RGB_IdentityLighting
1302 (HCons 1302 A_Identity
1303 (CommonAttrs 1303 TG_Base
1304 HNil 1304 []
1305 HNil 1305 (ST_Map "textures/gothic_trim/km_arena1tower4")
1306 False 1306 True
1307 (fromInt 0) 1307 D_Lequal
1308 False 1308 Nothing
1309 False 1309 False
1310 CT_FrontSided 1310 "Tex_3479185666"
1311 [] 1311 , StageAttrs
1312 False 1312 (Just (B_DstColor, B_Zero))
1313 False 1313 RGB_IdentityLighting
1314 (StageAttrs 1314 A_Identity
1315 Nothing 1315 TG_Lightmap
1316 RGB_IdentityLighting 1316 []
1317 A_Identity 1317 ST_Lightmap
1318 TG_Base 1318 True
1319 [] 1319 D_Lequal
1320 (ST_Map "textures/gothic_trim/baseboard09_e2") 1320 Nothing
1321 True 1321 False
1322 D_Lequal 1322 "Tex_3226210144"]
1323 Nothing 1323 False)
1324 False 1324 , ("textures/gothic_trim/km_arena1tower4_a"
1325 "Tex_3694494180" 1325 , CommonAttrs
1326 : StageAttrs 1326 ()
1327 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1327 ()
1328 RGB_IdentityLighting 1328 False
1329 A_Identity 1329 (fromInt 0)
1330 TG_Lightmap 1330 False
1331 [] 1331 False
1332 ST_Lightmap 1332 CT_FrontSided
1333 True 1333 []
1334 D_Lequal 1334 False
1335 Nothing 1335 False
1336 False 1336 [StageAttrs
1337 "Tex_3226210144" 1337 Nothing
1338 : []) 1338 RGB_IdentityLighting
1339 False) 1339 A_Identity
1340 HNil) 1340 TG_Base
1341 : HCons 1341 []
1342 "textures/gothic_trim/baseboard09_l2" 1342 (ST_Map "textures/gothic_trim/km_arena1tower4_a")
1343 (HCons 1343 True
1344 (CommonAttrs 1344 D_Lequal
1345 HNil 1345 Nothing
1346 HNil 1346 False
1347 False 1347 "Tex_3012001075"
1348 (fromInt 0) 1348 , StageAttrs
1349 False 1349 (Just (B_DstColor, B_Zero))
1350 False 1350 RGB_IdentityLighting
1351 CT_FrontSided 1351 A_Identity
1352 [] 1352 TG_Lightmap
1353 False 1353 []
1354 False 1354 ST_Lightmap
1355 (StageAttrs 1355 True
1356 Nothing 1356 D_Lequal
1357 RGB_IdentityLighting 1357 Nothing
1358 A_Identity 1358 False
1359 TG_Base 1359 "Tex_3226210144"]
1360 [] 1360 False)
1361 (ST_Map "textures/gothic_trim/baseboard09_l2") 1361 , ("textures/gothic_trim/metaldemonkillblock"
1362 True 1362 , CommonAttrs
1363 D_Lequal 1363 ()
1364 Nothing 1364 ()
1365 False 1365 False
1366 "Tex_3202786139" 1366 (fromInt 0)
1367 : StageAttrs 1367 False
1368 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1368 False
1369 RGB_IdentityLighting 1369 CT_FrontSided
1370 A_Identity 1370 []
1371 TG_Lightmap 1371 False
1372 [] 1372 False
1373 ST_Lightmap 1373 [StageAttrs
1374 True 1374 Nothing
1375 D_Lequal 1375 RGB_IdentityLighting
1376 Nothing 1376 A_Identity
1377 False 1377 TG_Base
1378 "Tex_3226210144" 1378 []
1379 : []) 1379 (ST_Map "textures/gothic_trim/metaldemonkillblock")
1380 False) 1380 True
1381 HNil) 1381 D_Lequal
1382 : HCons 1382 Nothing
1383 "textures/gothic_trim/baseboard09_o3" 1383 False
1384 (HCons 1384 "Tex_1062467595"
1385 (CommonAttrs 1385 , StageAttrs
1386 HNil 1386 (Just (B_DstColor, B_Zero))
1387 HNil 1387 RGB_IdentityLighting
1388 False 1388 A_Identity
1389 (fromInt 0) 1389 TG_Lightmap
1390 False 1390 []
1391 False 1391 ST_Lightmap
1392 CT_FrontSided 1392 True
1393 [] 1393 D_Lequal
1394 False 1394 Nothing
1395 False 1395 False
1396 (StageAttrs 1396 "Tex_3226210144"]
1397 Nothing 1397 False)
1398 RGB_IdentityLighting 1398 , ("textures/gothic_trim/metalsupport4b"
1399 A_Identity 1399 , CommonAttrs
1400 TG_Base 1400 ()
1401 [] 1401 ()
1402 (ST_Map "textures/gothic_trim/baseboard09_o3") 1402 False
1403 True 1403 (fromInt 0)
1404 D_Lequal 1404 False
1405 Nothing 1405 False
1406 False 1406 CT_FrontSided
1407 "Tex_2512757607" 1407 []
1408 : StageAttrs 1408 False
1409 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1409 False
1410 RGB_IdentityLighting 1410 [StageAttrs
1411 A_Identity 1411 Nothing
1412 TG_Lightmap 1412 RGB_IdentityLighting
1413 [] 1413 A_Identity
1414 ST_Lightmap 1414 TG_Base
1415 True 1415 []
1416 D_Lequal 1416 (ST_Map "textures/gothic_trim/metalsupport4b")
1417 Nothing 1417 True
1418 False 1418 D_Lequal
1419 "Tex_3226210144" 1419 Nothing
1420 : []) 1420 False
1421 False) 1421 "Tex_3593923076"
1422 HNil) 1422 , StageAttrs
1423 : HCons 1423 (Just (B_DstColor, B_Zero))
1424 "textures/gothic_trim/km_arena1tower4" 1424 RGB_IdentityLighting
1425 (HCons 1425 A_Identity
1426 (CommonAttrs 1426 TG_Lightmap
1427 HNil 1427 []
1428 HNil 1428 ST_Lightmap
1429 False 1429 True
1430 (fromInt 0) 1430 D_Lequal
1431 False 1431 Nothing
1432 False 1432 False
1433 CT_FrontSided 1433 "Tex_3226210144"]
1434 [] 1434 False)
1435 False 1435 , ("textures/gothic_trim/metalsupsolid"
1436 False 1436 , CommonAttrs
1437 (StageAttrs 1437 ()
1438 Nothing 1438 ()
1439 RGB_IdentityLighting 1439 False
1440 A_Identity 1440 (fromInt 0)
1441 TG_Base 1441 False
1442 [] 1442 False
1443 (ST_Map "textures/gothic_trim/km_arena1tower4") 1443 CT_FrontSided
1444 True 1444 []
1445 D_Lequal 1445 False
1446 Nothing 1446 False
1447 False 1447 [StageAttrs
1448 "Tex_3479185666" 1448 Nothing
1449 : StageAttrs 1449 RGB_IdentityLighting
1450 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1450 A_Identity
1451 RGB_IdentityLighting 1451 TG_Base
1452 A_Identity 1452 []
1453 TG_Lightmap 1453 (ST_Map "textures/gothic_trim/metalsupsolid")
1454 [] 1454 True
1455 ST_Lightmap 1455 D_Lequal
1456 True 1456 Nothing
1457 D_Lequal 1457 False
1458 Nothing 1458 "Tex_2893650486"
1459 False 1459 , StageAttrs
1460 "Tex_3226210144" 1460 (Just (B_DstColor, B_Zero))
1461 : []) 1461 RGB_IdentityLighting
1462 False) 1462 A_Identity
1463 HNil) 1463 TG_Lightmap
1464 : HCons 1464 []
1465 "textures/gothic_trim/km_arena1tower4_a" 1465 ST_Lightmap
1466 (HCons 1466 True
1467 (CommonAttrs 1467 D_Lequal
1468 HNil 1468 Nothing
1469 HNil 1469 False
1470 False 1470 "Tex_3226210144"]
1471 (fromInt 0) 1471 False)
1472 False 1472 , ("textures/gothic_trim/pitted_rust"
1473 False 1473 , CommonAttrs
1474 CT_FrontSided 1474 ()
1475 [] 1475 ()
1476 False 1476 False
1477 False 1477 (fromInt 0)
1478 (StageAttrs 1478 False
1479 Nothing 1479 False
1480 RGB_IdentityLighting 1480 CT_FrontSided
1481 A_Identity 1481 []
1482 TG_Base 1482 False
1483 [] 1483 False
1484 (ST_Map "textures/gothic_trim/km_arena1tower4_a") 1484 [StageAttrs
1485 True 1485 Nothing
1486 D_Lequal 1486 RGB_IdentityLighting
1487 Nothing 1487 A_Identity
1488 False 1488 TG_Base
1489 "Tex_3012001075" 1489 []
1490 : StageAttrs 1490 (ST_Map "textures/gothic_trim/pitted_rust")
1491 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1491 True
1492 RGB_IdentityLighting 1492 D_Lequal
1493 A_Identity 1493 Nothing
1494 TG_Lightmap 1494 False
1495 [] 1495 "Tex_1243894392"
1496 ST_Lightmap 1496 , StageAttrs
1497 True 1497 (Just (B_DstColor, B_Zero))
1498 D_Lequal 1498 RGB_IdentityLighting
1499 Nothing 1499 A_Identity
1500 False 1500 TG_Lightmap
1501 "Tex_3226210144" 1501 []
1502 : []) 1502 ST_Lightmap
1503 False) 1503 True
1504 HNil) 1504 D_Lequal
1505 : HCons 1505 Nothing
1506 "textures/gothic_trim/metaldemonkillblock" 1506 False
1507 (HCons 1507 "Tex_3226210144"]
1508 (CommonAttrs 1508 False)
1509 HNil 1509 , ("textures/gothic_trim/pitted_rust2"
1510 HNil 1510 , CommonAttrs
1511 False 1511 ()
1512 (fromInt 0) 1512 ()
1513 False 1513 False
1514 False 1514 (fromInt 0)
1515 CT_FrontSided 1515 False
1516 [] 1516 False
1517 False 1517 CT_FrontSided
1518 False 1518 []
1519 (StageAttrs 1519 False
1520 Nothing 1520 False
1521 RGB_IdentityLighting 1521 [StageAttrs
1522 A_Identity 1522 Nothing
1523 TG_Base 1523 RGB_IdentityLighting
1524 [] 1524 A_Identity
1525 (ST_Map "textures/gothic_trim/metaldemonkillblock") 1525 TG_Base
1526 True 1526 []
1527 D_Lequal 1527 (ST_Map "textures/gothic_trim/pitted_rust2")
1528 Nothing 1528 True
1529 False 1529 D_Lequal
1530 "Tex_1062467595" 1530 Nothing
1531 : StageAttrs 1531 False
1532 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1532 "Tex_2099456856"
1533 RGB_IdentityLighting 1533 , StageAttrs
1534 A_Identity 1534 (Just (B_DstColor, B_Zero))
1535 TG_Lightmap 1535 RGB_IdentityLighting
1536 [] 1536 A_Identity
1537 ST_Lightmap 1537 TG_Lightmap
1538 True 1538 []
1539 D_Lequal 1539 ST_Lightmap
1540 Nothing 1540 True
1541 False 1541 D_Lequal
1542 "Tex_3226210144" 1542 Nothing
1543 : []) 1543 False
1544 False) 1544 "Tex_3226210144"]
1545 HNil) 1545 False)
1546 : HCons 1546 , ("textures/gothic_trim/pitted_rust2_trans"
1547 "textures/gothic_trim/metalsupport4b" 1547 , CommonAttrs
1548 (HCons 1548 ()
1549 (CommonAttrs 1549 ()
1550 HNil 1550 False
1551 HNil 1551 (fromInt 3)
1552 False 1552 False
1553 (fromInt 0) 1553 False
1554 False 1554 CT_FrontSided
1555 False 1555 []
1556 CT_FrontSided 1556 False
1557 [] 1557 False
1558 False 1558 [StageAttrs
1559 False 1559 Nothing
1560 (StageAttrs 1560 RGB_Identity
1561 Nothing 1561 A_Identity
1562 RGB_IdentityLighting 1562 TG_Lightmap
1563 A_Identity 1563 []
1564 TG_Base 1564 ST_Lightmap
1565 [] 1565 True
1566 (ST_Map "textures/gothic_trim/metalsupport4b") 1566 D_Lequal
1567 True 1567 Nothing
1568 D_Lequal 1568 False
1569 Nothing 1569 "Tex_511571587"
1570 False 1570 , StageAttrs
1571 "Tex_3593923076" 1571 (Just (B_DstColor, B_Zero))
1572 : StageAttrs 1572 RGB_Identity
1573 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1573 A_Identity
1574 RGB_IdentityLighting 1574 TG_Base
1575 A_Identity 1575 []
1576 TG_Lightmap 1576 (ST_Map "textures/gothic_trim/pitted_rust2.tga")
1577 [] 1577 False
1578 ST_Lightmap 1578 D_Lequal
1579 True 1579 Nothing
1580 D_Lequal 1580 False
1581 Nothing 1581 "Tex_1910997598"]
1582 False 1582 False)
1583 "Tex_3226210144" 1583 , ("textures/gothic_trim/pitted_rust3"
1584 : []) 1584 , CommonAttrs
1585 False) 1585 ()
1586 HNil) 1586 ()
1587 : HCons 1587 False
1588 "textures/gothic_trim/metalsupsolid" 1588 (fromInt 0)
1589 (HCons 1589 False
1590 (CommonAttrs 1590 False
1591 HNil 1591 CT_FrontSided
1592 HNil 1592 []
1593 False 1593 False
1594 (fromInt 0) 1594 False
1595 False 1595 [StageAttrs
1596 False 1596 Nothing
1597 CT_FrontSided 1597 RGB_IdentityLighting
1598 [] 1598 A_Identity
1599 False 1599 TG_Base
1600 False 1600 []
1601 (StageAttrs 1601 (ST_Map "textures/gothic_trim/pitted_rust3")
1602 Nothing 1602 True
1603 RGB_IdentityLighting 1603 D_Lequal
1604 A_Identity 1604 Nothing
1605 TG_Base 1605 False
1606 [] 1606 "Tex_3389727963"
1607 (ST_Map "textures/gothic_trim/metalsupsolid") 1607 , StageAttrs
1608 True 1608 (Just (B_DstColor, B_Zero))
1609 D_Lequal 1609 RGB_IdentityLighting
1610 Nothing 1610 A_Identity
1611 False 1611 TG_Lightmap
1612 "Tex_2893650486" 1612 []
1613 : StageAttrs 1613 ST_Lightmap
1614 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1614 True
1615 RGB_IdentityLighting 1615 D_Lequal
1616 A_Identity 1616 Nothing
1617 TG_Lightmap 1617 False
1618 [] 1618 "Tex_3226210144"]
1619 ST_Lightmap 1619 False)
1620 True 1620 , ("textures/gothic_trim/skullsvertgray02b"
1621 D_Lequal 1621 , CommonAttrs
1622 Nothing 1622 ()
1623 False 1623 ()
1624 "Tex_3226210144" 1624 False
1625 : []) 1625 (fromInt 0)
1626 False) 1626 False
1627 HNil) 1627 False
1628 : HCons 1628 CT_FrontSided
1629 "textures/gothic_trim/pitted_rust" 1629 []
1630 (HCons 1630 False
1631 (CommonAttrs 1631 False
1632 HNil 1632 [StageAttrs
1633 HNil 1633 Nothing
1634 False 1634 RGB_IdentityLighting
1635 (fromInt 0) 1635 A_Identity
1636 False 1636 TG_Base
1637 False 1637 []
1638 CT_FrontSided 1638 (ST_Map "textures/gothic_trim/skullsvertgray02b")
1639 [] 1639 True
1640 False 1640 D_Lequal
1641 False 1641 Nothing
1642 (StageAttrs 1642 False
1643 Nothing 1643 "Tex_2634868983"
1644 RGB_IdentityLighting 1644 , StageAttrs
1645 A_Identity 1645 (Just (B_DstColor, B_Zero))
1646 TG_Base 1646 RGB_IdentityLighting
1647 [] 1647 A_Identity
1648 (ST_Map "textures/gothic_trim/pitted_rust") 1648 TG_Lightmap
1649 True 1649 []
1650 D_Lequal 1650 ST_Lightmap
1651 Nothing 1651 True
1652 False 1652 D_Lequal
1653 "Tex_1243894392" 1653 Nothing
1654 : StageAttrs 1654 False
1655 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1655 "Tex_3226210144"]
1656 RGB_IdentityLighting 1656 False)
1657 A_Identity 1657 , ("textures/gothic_wall/iron01_e"
1658 TG_Lightmap 1658 , CommonAttrs
1659 [] 1659 ()
1660 ST_Lightmap 1660 ()
1661 True 1661 False
1662 D_Lequal 1662 (fromInt 0)
1663 Nothing 1663 False
1664 False 1664 False
1665 "Tex_3226210144" 1665 CT_FrontSided
1666 : []) 1666 []
1667 False) 1667 False
1668 HNil) 1668 False
1669 : HCons 1669 [StageAttrs
1670 "textures/gothic_trim/pitted_rust2" 1670 Nothing
1671 (HCons 1671 RGB_IdentityLighting
1672 (CommonAttrs 1672 A_Identity
1673 HNil 1673 TG_Base
1674 HNil 1674 []
1675 False 1675 (ST_Map "textures/gothic_wall/iron01_e")
1676 (fromInt 0) 1676 True
1677 False 1677 D_Lequal
1678 False 1678 Nothing
1679 CT_FrontSided 1679 False
1680 [] 1680 "Tex_2432583247"
1681 False 1681 , StageAttrs
1682 False 1682 (Just (B_DstColor, B_Zero))
1683 (StageAttrs 1683 RGB_IdentityLighting
1684 Nothing 1684 A_Identity
1685 RGB_IdentityLighting 1685 TG_Lightmap
1686 A_Identity 1686 []
1687 TG_Base 1687 ST_Lightmap
1688 [] 1688 True
1689 (ST_Map "textures/gothic_trim/pitted_rust2") 1689 D_Lequal
1690 True 1690 Nothing
1691 D_Lequal 1691 False
1692 Nothing 1692 "Tex_3226210144"]
1693 False 1693 False)
1694 "Tex_2099456856" 1694 , ("textures/gothic_wall/iron01_ntech3"
1695 : StageAttrs 1695 , CommonAttrs
1696 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1696 ()
1697 RGB_IdentityLighting 1697 ()
1698 A_Identity 1698 False
1699 TG_Lightmap 1699 (fromInt 0)
1700 [] 1700 False
1701 ST_Lightmap 1701 False
1702 True 1702 CT_FrontSided
1703 D_Lequal 1703 []
1704 Nothing 1704 False
1705 False 1705 False
1706 "Tex_3226210144" 1706 [StageAttrs
1707 : []) 1707 Nothing
1708 False) 1708 RGB_IdentityLighting
1709 HNil) 1709 A_Identity
1710 : HCons 1710 TG_Base
1711 "textures/gothic_trim/pitted_rust2_trans" 1711 []
1712 (HCons 1712 (ST_Map "textures/gothic_wall/iron01_ntech3")
1713 (CommonAttrs 1713 True
1714 HNil 1714 D_Lequal
1715 HNil 1715 Nothing
1716 False 1716 False
1717 (fromInt 3) 1717 "Tex_442868841"
1718 False 1718 , StageAttrs
1719 False 1719 (Just (B_DstColor, B_Zero))
1720 CT_FrontSided 1720 RGB_IdentityLighting
1721 [] 1721 A_Identity
1722 False 1722 TG_Lightmap
1723 False 1723 []
1724 (StageAttrs 1724 ST_Lightmap
1725 Nothing 1725 True
1726 RGB_Identity 1726 D_Lequal
1727 A_Identity 1727 Nothing
1728 TG_Lightmap 1728 False
1729 [] 1729 "Tex_3226210144"]
1730 ST_Lightmap 1730 False)
1731 True 1731 , ("textures/gothic_wall/skull4"
1732 D_Lequal 1732 , CommonAttrs
1733 Nothing 1733 ()
1734 False 1734 ()
1735 "Tex_511571587" 1735 False
1736 : StageAttrs 1736 (fromInt 0)
1737 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1737 False
1738 RGB_Identity 1738 False
1739 A_Identity 1739 CT_FrontSided
1740 TG_Base 1740 []
1741 [] 1741 False
1742 (ST_Map "textures/gothic_trim/pitted_rust2.tga") 1742 False
1743 False 1743 [StageAttrs
1744 D_Lequal 1744 Nothing
1745 Nothing 1745 RGB_IdentityLighting
1746 False 1746 A_Identity
1747 "Tex_1910997598" 1747 TG_Base
1748 : []) 1748 []
1749 False) 1749 (ST_Map "textures/gothic_wall/skull4")
1750 HNil) 1750 True
1751 : HCons 1751 D_Lequal
1752 "textures/gothic_trim/pitted_rust3" 1752 Nothing
1753 (HCons 1753 False
1754 (CommonAttrs 1754 "Tex_2239853403"
1755 HNil 1755 , StageAttrs
1756 HNil 1756 (Just (B_DstColor, B_Zero))
1757 False 1757 RGB_IdentityLighting
1758 (fromInt 0) 1758 A_Identity
1759 False 1759 TG_Lightmap
1760 False 1760 []
1761 CT_FrontSided 1761 ST_Lightmap
1762 [] 1762 True
1763 False 1763 D_Lequal
1764 False 1764 Nothing
1765 (StageAttrs 1765 False
1766 Nothing 1766 "Tex_3226210144"]
1767 RGB_IdentityLighting 1767 False)
1768 A_Identity 1768 , ("textures/gothic_wall/slateroofc"
1769 TG_Base 1769 , CommonAttrs
1770 [] 1770 ()
1771 (ST_Map "textures/gothic_trim/pitted_rust3") 1771 ()
1772 True 1772 False
1773 D_Lequal 1773 (fromInt 0)
1774 Nothing 1774 False
1775 False 1775 False
1776 "Tex_3389727963" 1776 CT_FrontSided
1777 : StageAttrs 1777 []
1778 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1778 False
1779 RGB_IdentityLighting 1779 False
1780 A_Identity 1780 [StageAttrs
1781 TG_Lightmap 1781 Nothing
1782 [] 1782 RGB_IdentityLighting
1783 ST_Lightmap 1783 A_Identity
1784 True 1784 TG_Base
1785 D_Lequal 1785 []
1786 Nothing 1786 (ST_Map "textures/gothic_wall/slateroofc")
1787 False 1787 True
1788 "Tex_3226210144" 1788 D_Lequal
1789 : []) 1789 Nothing
1790 False) 1790 False
1791 HNil) 1791 "Tex_2490648334"
1792 : HCons 1792 , StageAttrs
1793 "textures/gothic_trim/skullsvertgray02b" 1793 (Just (B_DstColor, B_Zero))
1794 (HCons 1794 RGB_IdentityLighting
1795 (CommonAttrs 1795 A_Identity
1796 HNil 1796 TG_Lightmap
1797 HNil 1797 []
1798 False 1798 ST_Lightmap
1799 (fromInt 0) 1799 True
1800 False 1800 D_Lequal
1801 False 1801 Nothing
1802 CT_FrontSided 1802 False
1803 [] 1803 "Tex_3226210144"]
1804 False 1804 False)
1805 False 1805 , ("textures/gothic_wall/supportborder_blue_b"
1806 (StageAttrs 1806 , CommonAttrs
1807 Nothing 1807 ()
1808 RGB_IdentityLighting 1808 ()
1809 A_Identity 1809 False
1810 TG_Base 1810 (fromInt 0)
1811 [] 1811 False
1812 (ST_Map "textures/gothic_trim/skullsvertgray02b") 1812 False
1813 True 1813 CT_FrontSided
1814 D_Lequal 1814 []
1815 Nothing 1815 False
1816 False 1816 False
1817 "Tex_2634868983" 1817 [StageAttrs
1818 : StageAttrs 1818 Nothing
1819 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1819 RGB_IdentityLighting
1820 RGB_IdentityLighting 1820 A_Identity
1821 A_Identity 1821 TG_Base
1822 TG_Lightmap 1822 []
1823 [] 1823 (ST_Map "textures/gothic_wall/supportborder_blue_b")
1824 ST_Lightmap 1824 True
1825 True 1825 D_Lequal
1826 D_Lequal 1826 Nothing
1827 Nothing 1827 False
1828 False 1828 "Tex_564811775"
1829 "Tex_3226210144" 1829 , StageAttrs
1830 : []) 1830 (Just (B_DstColor, B_Zero))
1831 False) 1831 RGB_IdentityLighting
1832 HNil) 1832 A_Identity
1833 : HCons 1833 TG_Lightmap
1834 "textures/gothic_wall/iron01_e" 1834 []
1835 (HCons 1835 ST_Lightmap
1836 (CommonAttrs 1836 True
1837 HNil 1837 D_Lequal
1838 HNil 1838 Nothing
1839 False 1839 False
1840 (fromInt 0) 1840 "Tex_3226210144"]
1841 False 1841 False)
1842 False 1842 , ("textures/gothic_wall/supportborder_blue_c"
1843 CT_FrontSided 1843 , CommonAttrs
1844 [] 1844 ()
1845 False 1845 ()
1846 False 1846 False
1847 (StageAttrs 1847 (fromInt 0)
1848 Nothing 1848 False
1849 RGB_IdentityLighting 1849 False
1850 A_Identity 1850 CT_FrontSided
1851 TG_Base 1851 []
1852 [] 1852 False
1853 (ST_Map "textures/gothic_wall/iron01_e") 1853 False
1854 True 1854 [StageAttrs
1855 D_Lequal 1855 Nothing
1856 Nothing 1856 RGB_IdentityLighting
1857 False 1857 A_Identity
1858 "Tex_2432583247" 1858 TG_Base
1859 : StageAttrs 1859 []
1860 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1860 (ST_Map "textures/gothic_wall/supportborder_blue_c")
1861 RGB_IdentityLighting 1861 True
1862 A_Identity 1862 D_Lequal
1863 TG_Lightmap 1863 Nothing
1864 [] 1864 False
1865 ST_Lightmap 1865 "Tex_2525124732"
1866 True 1866 , StageAttrs
1867 D_Lequal 1867 (Just (B_DstColor, B_Zero))
1868 Nothing 1868 RGB_IdentityLighting
1869 False 1869 A_Identity
1870 "Tex_3226210144" 1870 TG_Lightmap
1871 : []) 1871 []
1872 False) 1872 ST_Lightmap
1873 HNil) 1873 True
1874 : HCons 1874 D_Lequal
1875 "textures/gothic_wall/iron01_ntech3" 1875 Nothing
1876 (HCons 1876 False
1877 (CommonAttrs 1877 "Tex_3226210144"]
1878 HNil 1878 False)]
1879 HNil
1880 False
1881 (fromInt 0)
1882 False
1883 False
1884 CT_FrontSided
1885 []
1886 False
1887 False
1888 (StageAttrs
1889 Nothing
1890 RGB_IdentityLighting
1891 A_Identity
1892 TG_Base
1893 []
1894 (ST_Map "textures/gothic_wall/iron01_ntech3")
1895 True
1896 D_Lequal
1897 Nothing
1898 False
1899 "Tex_442868841"
1900 : StageAttrs
1901 (Just (HCons B_DstColor (HCons B_Zero HNil)))
1902 RGB_IdentityLighting
1903 A_Identity
1904 TG_Lightmap
1905 []
1906 ST_Lightmap
1907 True
1908 D_Lequal
1909 Nothing
1910 False
1911 "Tex_3226210144"
1912 : [])
1913 False)
1914 HNil)
1915 : HCons
1916 "textures/gothic_wall/skull4"
1917 (HCons
1918 (CommonAttrs
1919 HNil
1920 HNil
1921 False
1922 (fromInt 0)
1923 False
1924 False
1925 CT_FrontSided
1926 []
1927 False
1928 False
1929 (StageAttrs
1930 Nothing
1931 RGB_IdentityLighting
1932 A_Identity
1933 TG_Base
1934 []
1935 (ST_Map "textures/gothic_wall/skull4")
1936 True
1937 D_Lequal
1938 Nothing
1939 False
1940 "Tex_2239853403"
1941 : StageAttrs
1942 (Just (HCons B_DstColor (HCons B_Zero HNil)))
1943 RGB_IdentityLighting
1944 A_Identity
1945 TG_Lightmap
1946 []
1947 ST_Lightmap
1948 True
1949 D_Lequal
1950 Nothing
1951 False
1952 "Tex_3226210144"
1953 : [])
1954 False)
1955 HNil)
1956 : HCons
1957 "textures/gothic_wall/slateroofc"
1958 (HCons
1959 (CommonAttrs
1960 HNil
1961 HNil
1962 False
1963 (fromInt 0)
1964 False
1965 False
1966 CT_FrontSided
1967 []
1968 False
1969 False
1970 (StageAttrs
1971 Nothing
1972 RGB_IdentityLighting
1973 A_Identity
1974 TG_Base
1975 []
1976 (ST_Map "textures/gothic_wall/slateroofc")
1977 True
1978 D_Lequal
1979 Nothing
1980 False
1981 "Tex_2490648334"
1982 : StageAttrs
1983 (Just (HCons B_DstColor (HCons B_Zero HNil)))
1984 RGB_IdentityLighting
1985 A_Identity
1986 TG_Lightmap
1987 []
1988 ST_Lightmap
1989 True
1990 D_Lequal
1991 Nothing
1992 False
1993 "Tex_3226210144"
1994 : [])
1995 False)
1996 HNil)
1997 : HCons
1998 "textures/gothic_wall/supportborder_blue_b"
1999 (HCons
2000 (CommonAttrs
2001 HNil
2002 HNil
2003 False
2004 (fromInt 0)
2005 False
2006 False
2007 CT_FrontSided
2008 []
2009 False
2010 False
2011 (StageAttrs
2012 Nothing
2013 RGB_IdentityLighting
2014 A_Identity
2015 TG_Base
2016 []
2017 (ST_Map "textures/gothic_wall/supportborder_blue_b")
2018 True
2019 D_Lequal
2020 Nothing
2021 False
2022 "Tex_564811775"
2023 : StageAttrs
2024 (Just (HCons B_DstColor (HCons B_Zero HNil)))
2025 RGB_IdentityLighting
2026 A_Identity
2027 TG_Lightmap
2028 []
2029 ST_Lightmap
2030 True
2031 D_Lequal
2032 Nothing
2033 False
2034 "Tex_3226210144"
2035 : [])
2036 False)
2037 HNil)
2038 : HCons
2039 "textures/gothic_wall/supportborder_blue_c"
2040 (HCons
2041 (CommonAttrs
2042 HNil
2043 HNil
2044 False
2045 (fromInt 0)
2046 False
2047 False
2048 CT_FrontSided
2049 []
2050 False
2051 False
2052 (StageAttrs
2053 Nothing
2054 RGB_IdentityLighting
2055 A_Identity
2056 TG_Base
2057 []
2058 (ST_Map "textures/gothic_wall/supportborder_blue_c")
2059 True
2060 D_Lequal
2061 Nothing
2062 False
2063 "Tex_2525124732"
2064 : StageAttrs
2065 (Just (HCons B_DstColor (HCons B_Zero HNil)))
2066 RGB_IdentityLighting
2067 A_Identity
2068 TG_Lightmap
2069 []
2070 ST_Lightmap
2071 True
2072 D_Lequal
2073 Nothing
2074 False
2075 "Tex_3226210144"
2076 : [])
2077 False)
2078 HNil)
2079 : [])
2080------------ trace 1879------------ trace
2081sampleMaterial :: [(String, CommonAttrs)] 1880sampleMaterial :: [(String, CommonAttrs)]
2082------------ tooltips 1881------------ tooltips
diff --git a/testdata/ambig.out b/testdata/ambig.out
index 91be64c6..ae29a38e 100644
--- a/testdata/ambig.out
+++ b/testdata/ambig.out
@@ -2,16 +2,18 @@ main is not found
2------------ desugared source code 2------------ desugared source code
3h 3h
4 = \(a :: _) (b :: _) _ -> _rhs 4 = \(a :: _) (b :: _) _ -> _rhs
5 let c 5 let
6 = _rhs 6 c
7 ((\(d :: _) -> hlistConsCase 7 = _rhs
8 _ 8 ((\(d :: _) -> hlistConsCase
9 (\(e :: _) (f :: _) -> hlistConsCase
10 _ 9 _
11 (\(g :: _) (h :: _) -> hlistNilCase _ (a e g) h) 10 (\(e :: _) (f :: _) -> hlistConsCase
12 f) 11 _
13 d) 12 (\(g :: _) (h :: _) -> hlistNilCase _ (a e g) h)
14 b) in c 13 f)
14 d)
15 b)
16 in c
15------------ trace 17------------ trace
16h :: forall a b c d . (b -> d -> c) -> (b, d) -> a -> c 18h :: forall a b c d . (b -> d -> c) -> (b, d) -> a -> c
17------------ tooltips 19------------ tooltips
diff --git a/testdata/framebuffer02.reject.out b/testdata/framebuffer02.reject.out
index 92a5c846..596300b8 100644
--- a/testdata/framebuffer02.reject.out
+++ b/testdata/framebuffer02.reject.out
@@ -1,8 +1,7 @@
1type error: can not unify 1type error: can not unify
20 2 0
3with 3with
41 4 1
5
6in testdata/framebuffer02.reject.lc:2:17: 5in testdata/framebuffer02.reject.lc:2:17:
7 let frame = FrameBuffer (colorImage1 (V4 0.0 0.0 0.4 1.0) 6 let frame = FrameBuffer (colorImage1 (V4 0.0 0.0 0.4 1.0)
8 ,ColorImage @2 (V4 1.0 1.0 1.0 1.0) 7 ,ColorImage @2 (V4 1.0 1.0 1.0 1.0)
@@ -10,10 +9,9 @@ in testdata/framebuffer02.reject.lc:2:17:
10 ) 9 )
11------------ trace 10------------ trace
12!type error: can not unify 11!type error: can not unify
130 12 0
14with 13with
151 14 1
16
17in testdata/framebuffer02.reject.lc:2:17: 15in testdata/framebuffer02.reject.lc:2:17:
18 let frame = FrameBuffer (colorImage1 (V4 0.0 0.0 0.4 1.0) 16 let frame = FrameBuffer (colorImage1 (V4 0.0 0.0 0.4 1.0)
19 ,ColorImage @2 (V4 1.0 1.0 1.0 1.0) 17 ,ColorImage @2 (V4 1.0 1.0 1.0 1.0)
@@ -32,13 +30,13 @@ testdata/framebuffer02.reject.lc 2:17-5:30
32 Type 30 Type
33 ImageKind 31 ImageKind
34 GetImageKind 32 GetImageKind
35 (Image 1 ('Color (VecScalar 4 Float)) 33 ' [Image 1 ('Color (VecScalar 4 Float))
36 : Image 2 ('Color (VecScalar 4 Float)) 34 , Image 2 ('Color (VecScalar 4 Float))
37 : Image 1 ('Color (VecScalar 1 Float)) : [])) 35 , Image 1 ('Color (VecScalar 1 Float))])
38testdata/framebuffer02.reject.lc 2:29-5:30 36testdata/framebuffer02.reject.lc 2:29-5:30
39 (Image 1 ('Color (VecScalar 4 Float)), Image 37 (Image 1 ('Color (VecScalar 4 Float))
40 2 38 , Image 2 ('Color (VecScalar 4 Float))
41 ('Color (VecScalar 4 Float)), Image 1 ('Color (VecScalar 1 Float))) 39 , Image 1 ('Color (VecScalar 1 Float)))
42testdata/framebuffer02.reject.lc 2:30-2:41 40testdata/framebuffer02.reject.lc 2:30-2:41
43 forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c) 41 forall (a :: Nat) b c . (Num b, c ~ VecScalar a b) => c -> Image 1 ('Color c)
44testdata/framebuffer02.reject.lc 2:30-2:62 42testdata/framebuffer02.reject.lc 2:30-2:62
diff --git a/testdata/id.out b/testdata/id.out
index 00528069..a7e45fe7 100644
--- a/testdata/id.out
+++ b/testdata/id.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3main' = _rhs let a = _rhs \(b :: _) -> b in HCons (a 4.0) (HCons (a True) HNil) 3main' = _rhs let a = _rhs \(b :: _) -> b in (a 4.0, a True)
4------------ trace 4------------ trace
5main' :: (Float, Bool) 5main' :: (Float, Bool)
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/adt/adt02.reject.out b/testdata/language-features/adt/adt02.reject.out
index 9be810e4..16f4ea5c 100644
--- a/testdata/language-features/adt/adt02.reject.out
+++ b/testdata/language-features/adt/adt02.reject.out
@@ -1,8 +1,7 @@
1type error: can not unify 1type error: can not unify
2'Bool 2 Bool
3with 3with
4'Int 4 Int
5
6in proj 5in proj
7------------ trace 6------------ trace
8'Data3 :: Type 7'Data3 :: Type
@@ -15,10 +14,9 @@ case'Data3
15 -> forall (h :: Data3) -> a h 14 -> forall (h :: Data3) -> a h
16match'Data3 :: forall (a :: Type -> Type) -> a Data3 -> forall b -> a b -> a b 15match'Data3 :: forall (a :: Type -> Type) -> a Data3 -> forall b -> a b -> a b
17!type error: can not unify 16!type error: can not unify
18'Bool 17 Bool
19with 18with
20'Int 19 Int
21
22in proj 20in proj
23------------ tooltips 21------------ tooltips
24testdata/language-features/adt/adt02.reject.lc 2:6-2:11 22testdata/language-features/adt/adt02.reject.lc 2:6-2:11
diff --git a/testdata/language-features/basic-list/dotdot01.out b/testdata/language-features/basic-list/dotdot01.out
index 4fb37291..964cde68 100644
--- a/testdata/language-features/basic-list/dotdot01.out
+++ b/testdata/language-features/basic-list/dotdot01.out
@@ -1 +1 @@
1.0 : 2.0 : 3.0 : 4.0 : 5.0 : 6.0 : 7.0 : 8.0 : 9.0 : 10.0 : [] \ No newline at end of file [1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0] \ No newline at end of file
diff --git a/testdata/language-features/basic-list/list01.out b/testdata/language-features/basic-list/list01.out
index 41b1f057..c4a54c52 100644
--- a/testdata/language-features/basic-list/list01.out
+++ b/testdata/language-features/basic-list/list01.out
@@ -2,9 +2,9 @@ main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs [] 3value1 = _rhs []
4 4
5value2 = _rhs (fromInt 1 : fromInt 2 : fromInt 3 : fromInt 4 : []) 5value2 = _rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4]
6 6
7value3 = _rhs ('h' : 'e' : 'l' : 'l' : 'o' : []) 7value3 = _rhs ['h', 'e', 'l', 'l', 'o']
8------------ trace 8------------ trace
9value1 :: forall a . [a] 9value1 :: forall a . [a]
10value2 :: forall a . Num a => [a] 10value2 :: forall a . Num a => [a]
diff --git a/testdata/language-features/basic-list/list02.out b/testdata/language-features/basic-list/list02.out
index 6101a1fa..049f23d2 100644
--- a/testdata/language-features/basic-list/list02.out
+++ b/testdata/language-features/basic-list/list02.out
@@ -2,9 +2,9 @@ main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs [] 3value1 = _rhs []
4 4
5value2 = _rhs (fromInt 1 : fromInt 2 : fromInt 3 : fromInt 4 : []) 5value2 = _rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4]
6 6
7value3 = _rhs ('h' : 'e' : 'l' : 'l' : 'o' : []) 7value3 = _rhs ['h', 'e', 'l', 'l', 'o']
8------------ trace 8------------ trace
9value1 :: forall a . [a] 9value1 :: forall a . [a]
10value2 :: forall a . Num a => [a] 10value2 :: forall a . Num a => [a]
diff --git a/testdata/language-features/basic-list/list07.reject.out b/testdata/language-features/basic-list/list07.reject.out
index 106e8c65..a2c8ba4d 100644
--- a/testdata/language-features/basic-list/list07.reject.out
+++ b/testdata/language-features/basic-list/list07.reject.out
@@ -1,15 +1,13 @@
1type error: can not unify 1type error: can not unify
2'Float 2 Float
3with 3with
4'Char 4 Char
5
6in builtin Nil 5in builtin Nil
7------------ trace 6------------ trace
8!type error: can not unify 7!type error: can not unify
9'Float 8 Float
10with 9with
11'Char 10 Char
12
13in builtin Nil 11in builtin Nil
14------------ tooltips 12------------ tooltips
15testdata/language-features/basic-list/list07.reject.lc 1:10-1:11 13testdata/language-features/basic-list/list07.reject.lc 1:10-1:11
diff --git a/testdata/language-features/basic-list/list08.out b/testdata/language-features/basic-list/list08.out
index 800c75aa..22e97544 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 = _rhs [fromInt 1, 1.2]
4------------ trace 4------------ trace
5value :: [Float] 5value :: [Float]
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-list/list09.out b/testdata/language-features/basic-list/list09.out
index 79bb9d42..1b80e97a 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 = _rhs ([fromInt 1, 1.2] :: [Float])
4------------ trace 4------------ trace
5value :: [Float] 5value :: [Float]
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-list/list10.reject.out b/testdata/language-features/basic-list/list10.reject.out
index f84914ac..7b67cc51 100644
--- a/testdata/language-features/basic-list/list10.reject.out
+++ b/testdata/language-features/basic-list/list10.reject.out
@@ -1,15 +1,13 @@
1type error: can not unify 1type error: can not unify
2'Int 2 Int
3with 3with
4'Float 4 Float
5
6in builtin Nil 5in builtin Nil
7------------ trace 6------------ trace
8!type error: can not unify 7!type error: can not unify
9'Int 8 Int
10with 9with
11'Float 10 Float
12
13in builtin Nil 11in builtin Nil
14------------ tooltips 12------------ tooltips
15testdata/language-features/basic-list/list10.reject.lc 1:10-1:11 13testdata/language-features/basic-list/list10.reject.lc 1:10-1:11
diff --git a/testdata/language-features/basic-list/list11.out b/testdata/language-features/basic-list/list11.out
index 005c6959..74537514 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 = _rhs [fromInt 1]
4------------ trace 4------------ trace
5value :: forall a . Num a => [a] 5value :: forall a . Num a => [a]
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-list/list12.out b/testdata/language-features/basic-list/list12.out
index 75cc03e1..043d44a7 100644
--- a/testdata/language-features/basic-list/list12.out
+++ b/testdata/language-features/basic-list/list12.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 : fromInt 2 : fromInt 3 : fromInt 4 : fromInt 5 : []) 3value = _rhs [fromInt 1, fromInt 2, fromInt 3, fromInt 4, fromInt 5]
4------------ trace 4------------ trace
5value :: forall a . Num a => [a] 5value :: forall a . Num a => [a]
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-list/list13.out b/testdata/language-features/basic-list/list13.out
index 9e72ee74..42a750fc 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 = _rhs ['h', 'e', 'l', 'l', 'o']
4------------ trace 4------------ trace
5value :: [Char] 5value :: [Char]
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-list/list14.reject.out b/testdata/language-features/basic-list/list14.reject.out
index 65cfb9e0..5a644bb6 100644
--- a/testdata/language-features/basic-list/list14.reject.out
+++ b/testdata/language-features/basic-list/list14.reject.out
@@ -1,17 +1,15 @@
1type error: can not unify 1type error: can not unify
2['Char] 2 [Char]
3with 3with
4() 4 ()
5
6in testdata/language-features/basic-list/list14.reject.lc:1:17: 5in testdata/language-features/basic-list/list14.reject.lc:1:17:
7value = 'h':'i':() 6value = 'h':'i':()
8 ^^ 7 ^^
9------------ trace 8------------ trace
10!type error: can not unify 9!type error: can not unify
11['Char] 10 [Char]
12with 11with
13() 12 ()
14
15in testdata/language-features/basic-list/list14.reject.lc:1:17: 13in testdata/language-features/basic-list/list14.reject.lc:1:17:
16value = 'h':'i':() 14value = 'h':'i':()
17 ^^ 15 ^^
diff --git a/testdata/language-features/basic-list/list15.reject.out b/testdata/language-features/basic-list/list15.reject.out
index c64dccf4..56999614 100644
--- a/testdata/language-features/basic-list/list15.reject.out
+++ b/testdata/language-features/basic-list/list15.reject.out
@@ -1,17 +1,15 @@
1type error: can not unify 1type error: can not unify
2'Char 2 Char
3with 3with
4() 4 ()
5
6in testdata/language-features/basic-list/list15.reject.lc:1:20: 5in testdata/language-features/basic-list/list15.reject.lc:1:20:
7value = 'h':'i':():[] 6value = 'h':'i':():[]
8 ^^ 7 ^^
9------------ trace 8------------ trace
10!type error: can not unify 9!type error: can not unify
11'Char 10 Char
12with 11with
13() 12 ()
14
15in testdata/language-features/basic-list/list15.reject.lc:1:20: 13in testdata/language-features/basic-list/list15.reject.lc:1:20:
16value = 'h':'i':():[] 14value = 'h':'i':():[]
17 ^^ 15 ^^
diff --git a/testdata/language-features/basic-list/list16.reject.out b/testdata/language-features/basic-list/list16.reject.out
index be6468cb..abb28bb5 100644
--- a/testdata/language-features/basic-list/list16.reject.out
+++ b/testdata/language-features/basic-list/list16.reject.out
@@ -1,17 +1,15 @@
1type error: can not unify 1type error: can not unify
2['Char] 2 [Char]
3with 3with
4'Char 4 Char
5
6in testdata/language-features/basic-list/list16.reject.lc:1:13: 5in testdata/language-features/basic-list/list16.reject.lc:1:13:
7value = 'h':'i' 6value = 'h':'i'
8 ^^^ 7 ^^^
9------------ trace 8------------ trace
10!type error: can not unify 9!type error: can not unify
11['Char] 10 [Char]
12with 11with
13'Char 12 Char
14
15in testdata/language-features/basic-list/list16.reject.lc:1:13: 13in testdata/language-features/basic-list/list16.reject.lc:1:13:
16value = 'h':'i' 14value = 'h':'i'
17 ^^^ 15 ^^^
diff --git a/testdata/language-features/basic-list/listcomp01.out b/testdata/language-features/basic-list/listcomp01.out
index 52af0c94..bcfa6659 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 (\_ -> HNil : []) (HNil : HNil : HNil : HNil : [])) 3value = _rhs (concatMap (\_ -> [()]) [(), (), (), ()])
4------------ trace 4------------ trace
5value :: [()] 5value :: [()]
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-list/listcomp02.out b/testdata/language-features/basic-list/listcomp02.out
index 7a2a2998..a7287a6f 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 (HNil : HNil : HNil : HNil : []) 3l = _rhs [(), (), (), ()]
4 4
5value = _rhs (concatMap (\(a :: _) -> a : []) l) 5value = _rhs (concatMap (\(a :: _) -> [a]) l)
6------------ trace 6------------ trace
7l :: [()] 7l :: [()]
8value :: [()] 8value :: [()]
diff --git a/testdata/language-features/basic-list/listcomp03.out b/testdata/language-features/basic-list/listcomp03.out
index ee6dfd4a..36571c98 100644
--- a/testdata/language-features/basic-list/listcomp03.out
+++ b/testdata/language-features/basic-list/listcomp03.out
@@ -1,10 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value = _rhs (concatMap (\_ -> primIfThenElse False [()] []) [(), (), (), ()])
4 = _rhs
5 (concatMap
6 (\_ -> primIfThenElse False (HNil : []) [])
7 (HNil : HNil : HNil : HNil : []))
8------------ trace 4------------ trace
9value :: [()] 5value :: [()]
10------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-list/listcomp04.out b/testdata/language-features/basic-list/listcomp04.out
index 1069a83b..6f615c06 100644
--- a/testdata/language-features/basic-list/listcomp04.out
+++ b/testdata/language-features/basic-list/listcomp04.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3l = _rhs (HNil : HNil : HNil : HNil : []) 3l = _rhs [(), (), (), ()]
4 4
5value = _rhs (concatMap (\_ -> concatMap (\_ -> HNil : []) l) l) 5value = _rhs (concatMap (\_ -> concatMap (\_ -> [()]) l) l)
6------------ trace 6------------ trace
7l :: [()] 7l :: [()]
8value :: [()] 8value :: [()]
diff --git a/testdata/language-features/basic-list/listcomp05.out b/testdata/language-features/basic-list/listcomp05.out
index 263ab0ac..b5790541 100644
--- a/testdata/language-features/basic-list/listcomp05.out
+++ b/testdata/language-features/basic-list/listcomp05.out
@@ -3,8 +3,8 @@ main is not found
3value 3value
4 = _rhs 4 = _rhs
5 (concatMap 5 (concatMap
6 (\_ -> let a = _rhs HNil in let b = _rhs ((\(c :: _) -> c) a) in b : []) 6 (\_ -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in [b])
7 (HNil : HNil : [])) 7 [(), ()])
8------------ trace 8------------ trace
9value :: [()] 9value :: [()]
10------------ tooltips 10------------ tooltips
diff --git a/testdata/language-features/basic-list/listcomp06.out b/testdata/language-features/basic-list/listcomp06.out
index 968d9f28..7209b42a 100644
--- a/testdata/language-features/basic-list/listcomp06.out
+++ b/testdata/language-features/basic-list/listcomp06.out
@@ -3,20 +3,20 @@ main is not found
3value1 3value1
4 = _rhs 4 = _rhs
5 (concatMap 5 (concatMap
6 (\_ -> let a = _rhs HNil in let b = _rhs ((\(c :: _) -> c) a) in primIfThenElse 6 (\_ -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse
7 True 7 True
8 (b : []) 8 [b]
9 []) 9 [])
10 (HNil : HNil : [])) 10 [(), ()])
11 11
12value2 12value2
13 = _rhs 13 = _rhs
14 (concatMap 14 (concatMap
15 (\_ -> primIfThenElse 15 (\_ -> primIfThenElse
16 True 16 True
17 (let a = _rhs HNil in let b = _rhs ((\(c :: _) -> c) a) in b : []) 17 (let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in [b])
18 []) 18 [])
19 (HNil : HNil : [])) 19 [(), ()])
20------------ trace 20------------ trace
21value1 :: [()] 21value1 :: [()]
22value2 :: [()] 22value2 :: [()]
diff --git a/testdata/language-features/basic-list/listcomp07.out b/testdata/language-features/basic-list/listcomp07.out
index 58006210..eeaa1292 100644
--- a/testdata/language-features/basic-list/listcomp07.out
+++ b/testdata/language-features/basic-list/listcomp07.out
@@ -3,29 +3,29 @@ main is not found
3value1 3value1
4 = _rhs 4 = _rhs
5 (concatMap 5 (concatMap
6 (\_ -> let a = _rhs HNil in let b = _rhs ((\(c :: _) -> c) a) in primIfThenElse 6 (\_ -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse
7 True 7 True
8 (let d = _rhs b in let e = _rhs ((\(f :: _) -> f) d) in b : []) 8 (let d = _rhs b; e = _rhs ((\(f :: _) -> f) d) in [b])
9 []) 9 [])
10 (HNil : HNil : [])) 10 [(), ()])
11 11
12value2 12value2
13 = _rhs 13 = _rhs
14 (concatMap 14 (concatMap
15 (\_ -> let a = _rhs HNil in let b = _rhs ((\(c :: _) -> c) a) in primIfThenElse 15 (\_ -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse
16 True 16 True
17 (let d = _rhs b in let e = _rhs ((\(f :: _) -> f) d) in b : []) 17 (let d = _rhs b; e = _rhs ((\(f :: _) -> f) d) in [b])
18 []) 18 [])
19 (HNil : HNil : [])) 19 [(), ()])
20 20
21value3 21value3
22 = _rhs 22 = _rhs
23 (concatMap 23 (concatMap
24 (\_ -> let a = _rhs HNil in let b = _rhs ((\(c :: _) -> c) a) in primIfThenElse 24 (\_ -> let a = _rhs (); b = _rhs ((\(c :: _) -> c) a) in primIfThenElse
25 True 25 True
26 (let d = _rhs b in let e = _rhs ((\(f :: _) -> f) d) in b : []) 26 (let d = _rhs b; e = _rhs ((\(f :: _) -> f) d) in [b])
27 []) 27 [])
28 (HNil : HNil : [])) 28 [(), ()])
29------------ trace 29------------ trace
30value1 :: [()] 30value1 :: [()]
31value2 :: [()] 31value2 :: [()]
diff --git a/testdata/language-features/basic-list/listcomp08.reject.out b/testdata/language-features/basic-list/listcomp08.reject.out
index 1313a611..ae2cebaf 100644
--- a/testdata/language-features/basic-list/listcomp08.reject.out
+++ b/testdata/language-features/basic-list/listcomp08.reject.out
@@ -1,17 +1,15 @@
1type error: can not unify 1type error: can not unify
2'Bool 2 Bool
3with 3with
4'String 4 String
5
6in testdata/language-features/basic-list/listcomp08.reject.lc:1:23: 5in testdata/language-features/basic-list/listcomp08.reject.lc:1:23:
7value = [x | x <- [], "not Bool"] 6value = [x | x <- [], "not Bool"]
8 ^^^^^^^^^^ 7 ^^^^^^^^^^
9------------ trace 8------------ trace
10!type error: can not unify 9!type error: can not unify
11'Bool 10 Bool
12with 11with
13'String 12 String
14
15in testdata/language-features/basic-list/listcomp08.reject.lc:1:23: 13in testdata/language-features/basic-list/listcomp08.reject.lc:1:23:
16value = [x | x <- [], "not Bool"] 14value = [x | x <- [], "not Bool"]
17 ^^^^^^^^^^ 15 ^^^^^^^^^^
diff --git a/testdata/language-features/basic-list/listcomp09.out b/testdata/language-features/basic-list/listcomp09.out
index 75d2dbf5..502a9258 100644
--- a/testdata/language-features/basic-list/listcomp09.out
+++ b/testdata/language-features/basic-list/listcomp09.out
@@ -1,12 +1,11 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 3value1 = _rhs (concatMap (\_ -> [\(a :: _) -> hlistNilCase _ "Hello" a]) [])
4 = _rhs (concatMap (\_ -> (\(a :: _) -> hlistNilCase _ "Hello" a) : []) [])
5------------ trace 4------------ trace
6value1 :: Type => [() -> String] 5value1 :: @Type -> [() -> String]
7------------ tooltips 6------------ tooltips
8testdata/language-features/basic-list/listcomp09.lc 1:1-1:7 7testdata/language-features/basic-list/listcomp09.lc 1:1-1:7
9 Type => [() -> String] 8 @Type -> [() -> String]
10testdata/language-features/basic-list/listcomp09.lc 1:10-1:36 9testdata/language-features/basic-list/listcomp09.lc 1:10-1:36
11 [() -> String] 10 [() -> String]
12testdata/language-features/basic-list/listcomp09.lc 1:11-1:25 11testdata/language-features/basic-list/listcomp09.lc 1:11-1:25
diff --git a/testdata/language-features/basic-values/case01.out b/testdata/language-features/basic-values/case01.out
index 7a952e7a..7d617350 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 _ HNil a) HNil) 3value1 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ())
4 4
5value2 = _rhs ((\(a :: _) -> hlistNilCase _ HNil a) HNil) 5value2 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ())
6 6
7value3 = _rhs ((\(a :: _) -> hlistNilCase _ HNil a) HNil) 7value3 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ())
8 8
9value4 = _rhs ((\(a :: _) -> hlistNilCase _ HNil a) HNil) 9value4 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ())
10 10
11value5 = _rhs ((\(a :: _) -> hlistNilCase _ HNil a) HNil) 11value5 = _rhs ((\(a :: _) -> hlistNilCase _ () a) ())
12 12
13value6 = _rhs ((\_ -> HNil) HNil) 13value6 = _rhs ((\_ -> ()) ())
14------------ trace 14------------ trace
15value1 :: () 15value1 :: ()
16value2 :: () 16value2 :: ()
diff --git a/testdata/language-features/basic-values/case02.out b/testdata/language-features/basic-values/case02.out
index 9456dae9..44fd204e 100644
--- a/testdata/language-features/basic-values/case02.out
+++ b/testdata/language-features/basic-values/case02.out
@@ -1,8 +1,7 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 3value1
4 = _rhs 4 = _rhs ((\(a :: _) -> case'Bool (\_ -> _) () () (fromInt 1 == a)) (fromInt 1))
5 ((\(a :: _) -> case'Bool (\_ -> _) HNil HNil (fromInt 1 == a)) (fromInt 1))
6 5
7value2 6value2
8 = _rhs 7 = _rhs
diff --git a/testdata/language-features/basic-values/case04.reject.out b/testdata/language-features/basic-values/case04.reject.out
index 55011f4d..aa395eab 100644
--- a/testdata/language-features/basic-values/case04.reject.out
+++ b/testdata/language-features/basic-values/case04.reject.out
@@ -1,17 +1,15 @@
1type error: can not unify 1type error: can not unify
2() 2 ()
3with 3with
4'Char 4 Char
5
6in testdata/language-features/basic-values/case04.reject.lc:2:8: 5in testdata/language-features/basic-values/case04.reject.lc:2:8:
7 1 -> '1' 6 1 -> '1'
8 ^^^ 7 ^^^
9------------ trace 8------------ trace
10!type error: can not unify 9!type error: can not unify
11() 10 ()
12with 11with
13'Char 12 Char
14
15in testdata/language-features/basic-values/case04.reject.lc:2:8: 13in testdata/language-features/basic-values/case04.reject.lc:2:8:
16 1 -> '1' 14 1 -> '1'
17 ^^^ 15 ^^^
diff --git a/testdata/language-features/basic-values/data01.out b/testdata/language-features/basic-values/data01.out
index 9efc26b6..b350dc21 100644
--- a/testdata/language-features/basic-values/data01.out
+++ b/testdata/language-features/basic-values/data01.out
@@ -7,12 +7,12 @@ data A :: Type where
7 7
8data E :: Type where 8data E :: Type where
9 F :: E 9 F :: E
10 G :: HList '[] -> E 10 G :: () -> E
11 H :: E 11 H :: E
12 12
13data D1 :: Type where 13data D1 :: Type where
14 C1 :: D1 14 C1 :: D1
15 C2 :: HList '[] -> D1 15 C2 :: () -> D1
16 C3 :: D1 16 C3 :: D1
17------------ trace 17------------ trace
18'A :: Type 18'A :: Type
diff --git a/testdata/language-features/basic-values/def01.out b/testdata/language-features/basic-values/def01.out
index 520b99c3..56283e44 100644
--- a/testdata/language-features/basic-values/def01.out
+++ b/testdata/language-features/basic-values/def01.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3unit = _rhs HNil 3unit = _rhs ()
4 4
5fun1 = \_ -> _rhs (fromInt 1) 5fun1 = \_ -> _rhs (fromInt 1)
6 6
diff --git a/testdata/language-features/basic-values/deforder03.out b/testdata/language-features/basic-values/deforder03.out
index 452fc68d..4903f7cc 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 HNil in let b = _rhs a in '1' 3value = _rhs let a = _rhs (); b = _rhs a in '1'
4------------ trace 4------------ trace
5value :: Char 5value :: Char
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-values/deforder04.out b/testdata/language-features/basic-values/deforder04.out
index 819c6e9b..ffe0fb17 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 HNil in let b = _rhs a in '1' 3value = _rhs let a = _rhs (); b = _rhs a in '1'
4------------ trace 4------------ trace
5value :: Char 5value :: Char
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-values/deforder05.out b/testdata/language-features/basic-values/deforder05.out
index 836fcaff..f07ef3ee 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 HNil in let b = _rhs a in '1' 3value = _rhs let a = _rhs (); b = _rhs a in '1'
4------------ trace 4------------ trace
5value :: Char 5value :: Char
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-values/deforder06.out b/testdata/language-features/basic-values/deforder06.out
index c3815f9a..db561937 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 HNil in let b = _rhs a in '1' 3value = _rhs let a = _rhs (); b = _rhs a in '1'
4------------ trace 4------------ trace
5value :: Char 5value :: Char
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-values/fixity02.out b/testdata/language-features/basic-values/fixity02.out
index 841eda57..973e69be 100644
--- a/testdata/language-features/basic-values/fixity02.out
+++ b/testdata/language-features/basic-values/fixity02.out
@@ -16,37 +16,37 @@ infixr 6 @>
16 16
17infixr 6 funR 17infixr 6 funR
18 18
19value1 = _rhs (HNil @> 'c' @> "hi" @> 1.2 :: Float) 19value1 = _rhs (() @> 'c' @> "hi" @> 1.2 :: Float)
20 20
21value2 = _rhs (HNil @> 'c' <@ "hi" @> 1.2 :: Float) 21value2 = _rhs (() @> 'c' <@ "hi" @> 1.2 :: Float)
22 22
23value3 = _rhs (HNil <@ 'c' @> "hi" @> 1.2 :: Float) 23value3 = _rhs (() <@ 'c' @> "hi" @> 1.2 :: Float)
24 24
25value4 = _rhs (HNil <@ 'c' <@ "hi" @> 1.2 :: Float) 25value4 = _rhs (() <@ 'c' <@ "hi" @> 1.2 :: Float)
26 26
27value5 = _rhs (HNil @> 'c' @> "hi" <@ 1.2 :: String) 27value5 = _rhs (() @> 'c' @> "hi" <@ 1.2 :: String)
28 28
29value6 = _rhs (HNil @> 'c' <@ "hi" <@ 1.2 :: Char) 29value6 = _rhs (() @> 'c' <@ "hi" <@ 1.2 :: Char)
30 30
31value7 = _rhs (HNil <@ 'c' @> "hi" <@ 1.2 :: String) 31value7 = _rhs (() <@ 'c' @> "hi" <@ 1.2 :: String)
32 32
33value8 = _rhs (HNil <@ 'c' <@ "hi" <@ 1.2 :: HList '[]) 33value8 = _rhs (() <@ 'c' <@ "hi" <@ 1.2 :: ())
34 34
35funValue1 = _rhs (HNil `funR` 'c' `funR` "hi" `funR` 1.2 :: Float) 35funValue1 = _rhs (() `funR` 'c' `funR` "hi" `funR` 1.2 :: Float)
36 36
37funValue2 = _rhs (HNil `funR` 'c' `funL` "hi" `funR` 1.2 :: Float) 37funValue2 = _rhs (() `funR` 'c' `funL` "hi" `funR` 1.2 :: Float)
38 38
39funValue3 = _rhs (HNil `funL` 'c' `funR` "hi" `funR` 1.2 :: Float) 39funValue3 = _rhs (() `funL` 'c' `funR` "hi" `funR` 1.2 :: Float)
40 40
41funValue4 = _rhs (HNil `funL` 'c' `funL` "hi" `funR` 1.2 :: Float) 41funValue4 = _rhs (() `funL` 'c' `funL` "hi" `funR` 1.2 :: Float)
42 42
43funValue5 = _rhs (HNil `funR` 'c' `funR` "hi" `funL` 1.2 :: String) 43funValue5 = _rhs (() `funR` 'c' `funR` "hi" `funL` 1.2 :: String)
44 44
45funValue6 = _rhs (HNil `funR` 'c' `funL` "hi" `funL` 1.2 :: Char) 45funValue6 = _rhs (() `funR` 'c' `funL` "hi" `funL` 1.2 :: Char)
46 46
47funValue7 = _rhs (HNil `funL` 'c' `funR` "hi" `funL` 1.2 :: String) 47funValue7 = _rhs (() `funL` 'c' `funR` "hi" `funL` 1.2 :: String)
48 48
49funValue8 = _rhs (HNil `funL` 'c' `funL` "hi" `funL` 1.2 :: HList '[]) 49funValue8 = _rhs (() `funL` 'c' `funL` "hi" `funL` 1.2 :: ())
50------------ trace 50------------ trace
51funL :: forall a b . a -> b -> a 51funL :: forall a b . a -> b -> a
52funR :: forall a b . a -> b -> b 52funR :: forall a b . a -> b -> b
diff --git a/testdata/language-features/basic-values/if01.out b/testdata/language-features/basic-values/if01.out
index fdd04aba..68ae2364 100644
--- a/testdata/language-features/basic-values/if01.out
+++ b/testdata/language-features/basic-values/if01.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs (primIfThenElse True HNil HNil) 3value1 = _rhs (primIfThenElse True () ())
4 4
5value2 = _rhs (primIfThenElse False 1.0 2.0) 5value2 = _rhs (primIfThenElse False 1.0 2.0)
6------------ trace 6------------ trace
diff --git a/testdata/language-features/basic-values/if03.reject.out b/testdata/language-features/basic-values/if03.reject.out
index d72492c4..e6a6f107 100644
--- a/testdata/language-features/basic-values/if03.reject.out
+++ b/testdata/language-features/basic-values/if03.reject.out
@@ -1,17 +1,15 @@
1type error: can not unify 1type error: can not unify
2'Bool 2 Bool
3with 3with
4() 4 ()
5
6in testdata/language-features/basic-values/if03.reject.lc:1:13: 5in testdata/language-features/basic-values/if03.reject.lc:1:13:
7value1 = if () then () else () 6value1 = if () then () else ()
8 ^^ 7 ^^
9------------ trace 8------------ trace
10!type error: can not unify 9!type error: can not unify
11'Bool 10 Bool
12with 11with
13() 12 ()
14
15in testdata/language-features/basic-values/if03.reject.lc:1:13: 13in testdata/language-features/basic-values/if03.reject.lc:1:13:
16value1 = if () then () else () 14value1 = if () then () else ()
17 ^^ 15 ^^
diff --git a/testdata/language-features/basic-values/if04.reject.out b/testdata/language-features/basic-values/if04.reject.out
index 795be098..8bfc6d13 100644
--- a/testdata/language-features/basic-values/if04.reject.out
+++ b/testdata/language-features/basic-values/if04.reject.out
@@ -1,17 +1,15 @@
1type error: can not unify 1type error: can not unify
2() 2 ()
3with 3with
4'Char 4 Char
5
6in testdata/language-features/basic-values/if04.reject.lc:1:31: 5in testdata/language-features/basic-values/if04.reject.lc:1:31:
7value1 = if True then () else '_' 6value1 = if True then () else '_'
8 ^^^ 7 ^^^
9------------ trace 8------------ trace
10!type error: can not unify 9!type error: can not unify
11() 10 ()
12with 11with
13'Char 12 Char
14
15in testdata/language-features/basic-values/if04.reject.lc:1:31: 13in testdata/language-features/basic-values/if04.reject.lc:1:31:
16value1 = if True then () else '_' 14value1 = if True then () else '_'
17 ^^^ 15 ^^^
diff --git a/testdata/language-features/basic-values/indentation01.out b/testdata/language-features/basic-values/indentation01.out
index 3c77aa23..9579e866 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 HNil 3tuple1 = _rhs ()
4 4
5tuple2 = _rhs HNil 5tuple2 = _rhs ()
6------------ trace 6------------ trace
7tuple1 :: () 7tuple1 :: ()
8tuple2 :: () 8tuple2 :: ()
diff --git a/testdata/language-features/basic-values/indentation02.out b/testdata/language-features/basic-values/indentation02.out
index 9a4cafc0..ddb90a56 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 HNil 3tuple1 = _rhs ()
4 4
5tuple2 = _rhs HNil 5tuple2 = _rhs ()
6------------ trace 6------------ trace
7tuple1 :: () 7tuple1 :: ()
8tuple2 :: () 8tuple2 :: ()
diff --git a/testdata/language-features/basic-values/infix01.out b/testdata/language-features/basic-values/infix01.out
index 3e4ec8a6..61491fb2 100644
--- a/testdata/language-features/basic-values/infix01.out
+++ b/testdata/language-features/basic-values/infix01.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun = \_ _ -> _rhs HNil 3fun = \_ _ -> _rhs ()
4 4
5value = \(a :: _) (b :: _) -> _rhs (a `fun` b) 5value = \(a :: _) (b :: _) -> _rhs (a `fun` b)
6------------ trace 6------------ trace
diff --git a/testdata/language-features/basic-values/infix02.out b/testdata/language-features/basic-values/infix02.out
index be8609ef..341b4acd 100644
--- a/testdata/language-features/basic-values/infix02.out
+++ b/testdata/language-features/basic-values/infix02.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun = \_ _ _ -> _rhs HNil 3fun = \_ _ _ -> _rhs ()
4 4
5value = \(a :: _) (b :: _) -> _rhs (a `fun` b) 5value = \(a :: _) (b :: _) -> _rhs (a `fun` b)
6------------ trace 6------------ trace
diff --git a/testdata/language-features/basic-values/infix03.out b/testdata/language-features/basic-values/infix03.out
index 3b7d6ec2..7b501216 100644
--- a/testdata/language-features/basic-values/infix03.out
+++ b/testdata/language-features/basic-values/infix03.out
@@ -1,8 +1,8 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3data D :: Type where 3data D :: Type where
4 D2 :: HList '[] -> HList '[] -> D 4 D2 :: () -> () -> D
5 D3 :: HList '[] -> HList '[] -> HList '[] -> D 5 D3 :: () -> () -> () -> D
6 6
7d2 = \(a :: _) (b :: _) -> _rhs (a `D2` b) 7d2 = \(a :: _) (b :: _) -> _rhs (a `D2` b)
8 8
diff --git a/testdata/language-features/basic-values/lambda01.out b/testdata/language-features/basic-values/lambda01.out
index 9a7c4583..678f21c0 100644
--- a/testdata/language-features/basic-values/lambda01.out
+++ b/testdata/language-features/basic-values/lambda01.out
@@ -1,12 +1,12 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun1 = _rhs \_ -> HNil 3fun1 = _rhs \_ -> ()
4 4
5fun2 = _rhs \_ -> HNil 5fun2 = _rhs \_ -> ()
6 6
7fun3 = _rhs \_ -> HNil 7fun3 = _rhs \_ -> ()
8 8
9fun4 = _rhs \_ _ _ _ _ _ _ _ _ -> HNil 9fun4 = _rhs \_ _ _ _ _ _ _ _ _ -> ()
10------------ trace 10------------ trace
11fun1 :: forall a . a -> () 11fun1 :: forall a . a -> ()
12fun2 :: forall a . a -> () 12fun2 :: forall a . a -> ()
diff --git a/testdata/language-features/basic-values/let01.out b/testdata/language-features/basic-values/let01.out
index a959e0cb..b1389aae 100644
--- a/testdata/language-features/basic-values/let01.out
+++ b/testdata/language-features/basic-values/let01.out
@@ -4,11 +4,11 @@ value1 = _rhs let a = _rhs (fromInt 1) in fromInt 1
4 4
5value2 = _rhs let a = _rhs (fromInt 1) in fromInt 1 5value2 = _rhs let a = _rhs (fromInt 1) in fromInt 1
6 6
7value3 = _rhs let a = _rhs (fromInt 1) in let b = _rhs 'c' in fromInt 1 7value3 = _rhs let a = _rhs (fromInt 1); b = _rhs 'c' in fromInt 1
8 8
9value4 = _rhs let a = _rhs (fromInt 1) in fromInt 1 9value4 = _rhs let a = _rhs (fromInt 1) in fromInt 1
10 10
11value5 = _rhs let a = _rhs (fromInt 1) in let b = _rhs (fromInt 2) in fromInt 1 11value5 = _rhs let a = _rhs (fromInt 1); b = _rhs (fromInt 2) in fromInt 1
12------------ trace 12------------ trace
13value1 :: forall a . Num a => a 13value1 :: forall a . Num a => a
14value2 :: forall a . Num a => a 14value2 :: forall a . Num a => a
diff --git a/testdata/language-features/basic-values/let02.out b/testdata/language-features/basic-values/let02.out
index e5682134..6624f824 100644
--- a/testdata/language-features/basic-values/let02.out
+++ b/testdata/language-features/basic-values/let02.out
@@ -2,10 +2,11 @@ main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = _rhs 4 = _rhs
5 let a = _rhs HNil in let b = _rhs let c = _rhs 'A' in HNil in let d 5 let
6 = _rhs 6 a = _rhs ();
7 let e = _rhs HNil in let f = _rhs (fromInt 1) in let g 7 b = _rhs let d = _rhs 'A' in ();
8 = _rhs "hello" in 'B' in HNil 8 c = _rhs let e = _rhs (); f = _rhs (fromInt 1); g = _rhs "hello" in 'B'
9 in ()
9------------ trace 10------------ trace
10value :: () 11value :: ()
11------------ tooltips 12------------ tooltips
diff --git a/testdata/language-features/basic-values/operator01.out b/testdata/language-features/basic-values/operator01.out
index df8d10ac..8596dd0d 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 HNil 3(#$#) = \_ _ -> _rhs ()
4 4
5($$#) = \_ _ -> _rhs HNil 5($$#) = \_ _ -> _rhs ()
6 6
7($$$#) = \_ _ -> _rhs HNil 7($$$#) = \_ _ -> _rhs ()
8 8
9($$$) = \_ _ -> _rhs HNil 9($$$) = \_ _ -> _rhs ()
10------------ trace 10------------ trace
11(#$#) :: forall a b . a -> b -> () 11(#$#) :: forall a b . a -> b -> ()
12($$#) :: forall a b . a -> b -> () 12($$#) :: forall a b . a -> b -> ()
diff --git a/testdata/language-features/basic-values/operator05.out b/testdata/language-features/basic-values/operator05.out
index cdc2d42f..26a9c706 100644
--- a/testdata/language-features/basic-values/operator05.out
+++ b/testdata/language-features/basic-values/operator05.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs let a = \_ _ -> _rhs HNil in a HNil HNil 3value1 = _rhs let a = \_ _ -> _rhs () in a () ()
4------------ trace 4------------ trace
5value1 :: () 5value1 :: ()
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-values/operator06.out b/testdata/language-features/basic-values/operator06.out
index 444f868a..c2aa64bd 100644
--- a/testdata/language-features/basic-values/operator06.out
+++ b/testdata/language-features/basic-values/operator06.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs let a = \_ _ -> _rhs HNil in a HNil HNil 3value1 = _rhs let a = \_ _ -> _rhs () in a () ()
4------------ trace 4------------ trace
5value1 :: () 5value1 :: ()
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-values/shadowing01.out b/testdata/language-features/basic-values/shadowing01.out
index 0837d467..a57dc95d 100644
--- a/testdata/language-features/basic-values/shadowing01.out
+++ b/testdata/language-features/basic-values/shadowing01.out
@@ -2,12 +2,17 @@ main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = _rhs 4 = _rhs
5 let a = _rhs 'A' in let b = _rhs "hello" in let c 5 let
6 = _rhs 6 a = _rhs 'A';
7 let d = _rhs (fromInt 1) in let e = _rhs 2.12 in let f 7 b = _rhs "hello";
8 = _rhs 8 c
9 let g = _rhs HNil in let h = _rhs 'C' in let i 9 = _rhs
10 = _rhs 3.12 in "world" in HNil in '7' 10 let
11 d = _rhs (fromInt 1);
12 e = _rhs 2.12;
13 f = _rhs let g = _rhs (); h = _rhs 'C'; i = _rhs 3.12 in "world"
14 in ()
15 in '7'
11------------ trace 16------------ trace
12value :: Char 17value :: Char
13------------ tooltips 18------------ tooltips
diff --git a/testdata/language-features/basic-values/shadowing02.out b/testdata/language-features/basic-values/shadowing02.out
index 4bf48590..44db12ab 100644
--- a/testdata/language-features/basic-values/shadowing02.out
+++ b/testdata/language-features/basic-values/shadowing02.out
@@ -6,12 +6,18 @@ world = _rhs "world"
6 6
7value2 7value2
8 = _rhs 8 = _rhs
9 let a = _rhs 'A' in let b = _rhs "hello" in let c = _rhs (fromInt 123) in let d 9 let
10 = _rhs 10 a = _rhs 'A';
11 let e = _rhs (fromInt 1) in let f = _rhs 2.12 in let g 11 b = _rhs "hello";
12 = _rhs 12 c = _rhs (fromInt 123);
13 let h = _rhs HNil in let i = _rhs 'C' in let j = _rhs 3.12 in let k 13 d
14 = _rhs c in world in HNil in '7' 14 = _rhs
15 let
16 e = _rhs (fromInt 1);
17 f = _rhs 2.12;
18 g = _rhs let h = _rhs (); i = _rhs 'C'; j = _rhs 3.12; k = _rhs c in world
19 in ()
20 in '7'
15------------ trace 21------------ trace
16c :: forall a . Num a => a 22c :: forall a . Num a => a
17world :: String 23world :: String
diff --git a/testdata/language-features/basic-values/shadowing03.out b/testdata/language-features/basic-values/shadowing03.out
index 00820b70..66839639 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 HNil 3x = \_ _ -> _rhs ()
4------------ trace 4------------ trace
5x :: forall a b . a -> b -> () 5x :: forall a b . a -> b -> ()
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-values/shadowing04.out b/testdata/language-features/basic-values/shadowing04.out
index 29066c7b..cd79b079 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 HNil 3__ = \_ _ -> _rhs ()
4------------ trace 4------------ trace
5__ :: forall a b . a -> b -> () 5__ :: forall a b . a -> b -> ()
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-values/tuple01.out b/testdata/language-features/basic-values/tuple01.out
index 48aa799f..c3862fc1 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 HNil 3unit = _rhs ()
4------------ trace 4------------ trace
5unit :: () 5unit :: ()
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-values/tuple02.out b/testdata/language-features/basic-values/tuple02.out
index 33a7b35c..7a8df18f 100644
--- a/testdata/language-features/basic-values/tuple02.out
+++ b/testdata/language-features/basic-values/tuple02.out
@@ -1,12 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3tuple1 3tuple1 = _rhs (fromInt 1, 2.3, 'D', "string", ())
4 = _rhs
5 (HCons (fromInt 1) (HCons 2.3 (HCons 'D' (HCons "string" (HCons HNil HNil)))))
6 4
7tuple2 = _rhs (HCons HNil (HCons HNil HNil)) 5tuple2 = _rhs ((), ())
8 6
9tuple3 = _rhs (HCons (HCons "name" (HCons 'c' HNil)) (HCons HNil HNil)) 7tuple3 = _rhs (("name", 'c'), ())
10------------ trace 8------------ trace
11tuple1 :: forall a . Num a => (a, Float, Char, String, ()) 9tuple1 :: forall a . Num a => (a, Float, Char, String, ())
12tuple2 :: ((), ()) 10tuple2 :: ((), ())
diff --git a/testdata/language-features/basic-values/typesig03.out b/testdata/language-features/basic-values/typesig03.out
index c0f5769f..dce9b02b 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 -> HList '[] 3fun1 :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> ()
4fun1 = \_ _ _ -> _rhs HNil 4fun1 = \_ _ _ -> _rhs ()
5 5
6fun2 :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> HList '[] 6fun2 :: forall (a :: _) (b :: _) (c :: _) . a -> b -> c -> ()
7fun2 = \_ _ _ -> _rhs HNil 7fun2 = \_ _ _ -> _rhs ()
8------------ trace 8------------ trace
9fun1 :: forall a b c . a -> b -> c -> () 9fun1 :: forall a b c . a -> b -> c -> ()
10fun2 :: forall a b c . a -> b -> c -> () 10fun2 :: forall a b c . a -> b -> c -> ()
diff --git a/testdata/language-features/basic-values/typesig04.out b/testdata/language-features/basic-values/typesig04.out
index b7a2c6b1..e85b6781 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) -> HList '[] 3fun1 :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> ()
4fun1 = \_ _ -> _rhs HNil 4fun1 = \_ _ -> _rhs ()
5 5
6fun2 :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> HList '[] 6fun2 :: forall (a :: _) (b :: _) (c :: _) . a -> (b -> c) -> ()
7fun2 = \_ _ -> _rhs HNil 7fun2 = \_ _ -> _rhs ()
8------------ trace 8------------ trace
9fun1 :: forall a b c . a -> (b -> c) -> () 9fun1 :: forall a b c . a -> (b -> c) -> ()
10fun2 :: forall a b c . a -> (b -> c) -> () 10fun2 :: forall a b c . a -> (b -> c) -> ()
diff --git a/testdata/language-features/basic-values/typesig07.out b/testdata/language-features/basic-values/typesig07.out
index f300eced..dfad6a8c 100644
--- a/testdata/language-features/basic-values/typesig07.out
+++ b/testdata/language-features/basic-values/typesig07.out
@@ -9,14 +9,14 @@ value2 = _rhs (fromInt 2)
9value3 :: Int 9value3 :: Int
10value3 = _rhs (fromInt 3) 10value3 = _rhs (fromInt 3)
11 11
12value4 :: HList '[] -> HList '[] -> HList '[] 12value4 :: () -> () -> ()
13value4 = \_ _ -> _rhs HNil 13value4 = \_ _ -> _rhs ()
14 14
15(@@@) :: HList '[] -> HList '[] -> HList '[] 15(@@@) :: () -> () -> ()
16(@@@) = \_ _ -> _rhs HNil 16(@@@) = \_ _ -> _rhs ()
17 17
18value6 :: HList '[] -> HList '[] -> HList '[] 18value6 :: () -> () -> ()
19value6 = \_ _ -> _rhs HNil 19value6 = \_ _ -> _rhs ()
20------------ trace 20------------ trace
21value1 :: Int 21value1 :: Int
22value2 :: Int 22value2 :: Int
diff --git a/testdata/language-features/basic-values/typesyn01.out b/testdata/language-features/basic-values/typesyn01.out
index 9481b2bf..2d858ff5 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 ('HList []) 3'MyUnit = _rhs ' ()
4------------ trace 4------------ trace
5'MyUnit :: Type 5'MyUnit :: Type
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/basic-values/typesyn02.out b/testdata/language-features/basic-values/typesyn02.out
index 74f2b730..5381b04b 100644
--- a/testdata/language-features/basic-values/typesyn02.out
+++ b/testdata/language-features/basic-values/typesyn02.out
@@ -1,12 +1,12 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3'MyUnit = _rhs ('HList []) 3'MyUnit = _rhs ' ()
4 4
5fun :: forall (a :: _) . a -> MyUnit -> MyUnit 5fun :: forall (a :: _) . a -> MyUnit -> MyUnit
6fun = \_ (a :: _) -> hlistNilCase _ (_rhs HNil) a 6fun = \_ (a :: _) -> hlistNilCase _ (_rhs ()) a
7------------ trace 7------------ trace
8'MyUnit :: Type 8'MyUnit :: Type
9fun :: forall a . a -> () -> () 9fun :: forall a . a -> MyUnit -> ()
10------------ tooltips 10------------ tooltips
11testdata/language-features/basic-values/typesyn02.lc 1:6-1:12 11testdata/language-features/basic-values/typesyn02.lc 1:6-1:12
12 Type 12 Type
@@ -23,6 +23,6 @@ testdata/language-features/basic-values/typesyn02.lc 3:13-3:29
23testdata/language-features/basic-values/typesyn02.lc 3:23-3:29 23testdata/language-features/basic-values/typesyn02.lc 3:23-3:29
24 Type | Type 24 Type | Type
25testdata/language-features/basic-values/typesyn02.lc 4:1-4:4 25testdata/language-features/basic-values/typesyn02.lc 4:1-4:4
26 forall a . a -> () -> () 26 forall a . a -> MyUnit -> ()
27testdata/language-features/basic-values/typesyn02.lc 4:12-4:14 27testdata/language-features/basic-values/typesyn02.lc 4:12-4:14
28 () | () \ No newline at end of file 28 () | () \ No newline at end of file
diff --git a/testdata/language-features/basic-values/where01.out b/testdata/language-features/basic-values/where01.out
index 55f17784..82492897 100644
--- a/testdata/language-features/basic-values/where01.out
+++ b/testdata/language-features/basic-values/where01.out
@@ -1,26 +1,26 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs let a = _rhs HNil in HNil 3value1 = _rhs let a = _rhs () in ()
4 4
5value2 = _rhs let a = _rhs HNil in a 5value2 = _rhs let a = _rhs () in a
6 6
7value3 = _rhs let a = _rhs HNil in let b = _rhs HNil in a 7value3 = _rhs let a = _rhs (); b = _rhs () in a
8 8
9value4 = _rhs let a = _rhs HNil in let b = _rhs HNil in b 9value4 = _rhs let a = _rhs (); b = _rhs () in b
10 10
11value5 = _rhs let a = _rhs HNil in let b = _rhs HNil in a 11value5 = _rhs let a = _rhs (); b = _rhs () in a
12 12
13value6 = _rhs HNil 13value6 = _rhs ()
14 14
15value7 = _rhs HNil 15value7 = _rhs ()
16 16
17value8 = _rhs HNil 17value8 = _rhs ()
18 18
19value9 = _rhs let a = _rhs HNil in let b = _rhs HNil in a 19value9 = _rhs let a = _rhs (); b = _rhs () in a
20 20
21value10 = _rhs let a = _rhs HNil in let b = _rhs HNil in a 21value10 = _rhs let a = _rhs (); b = _rhs () in a
22 22
23value11 = _rhs let a = _rhs HNil in let b = _rhs HNil in a 23value11 = _rhs let a = _rhs (); b = _rhs () in a
24------------ trace 24------------ trace
25value1 :: () 25value1 :: ()
26value2 :: () 26value2 :: ()
diff --git a/testdata/language-features/basic-values/where04.out b/testdata/language-features/basic-values/where04.out
index 795ce997..911c7e1a 100644
--- a/testdata/language-features/basic-values/where04.out
+++ b/testdata/language-features/basic-values/where04.out
@@ -1,10 +1,10 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value1 = _rhs let a = _rhs let b = _rhs HNil in b in a 3value1 = _rhs let a = _rhs let b = _rhs () in b in a
4 4
5value2 = _rhs let a = _rhs let b = _rhs HNil in b in a 5value2 = _rhs let a = _rhs let b = _rhs () in b in a
6 6
7value3 = _rhs let a = _rhs let b = _rhs HNil in b in a 7value3 = _rhs let a = _rhs let b = _rhs () in b in a
8------------ trace 8------------ trace
9value1 :: () 9value1 :: ()
10value2 :: () 10value2 :: ()
diff --git a/testdata/language-features/basic-values/where05.out b/testdata/language-features/basic-values/where05.out
index f8d61bd3..cbfce0ea 100644
--- a/testdata/language-features/basic-values/where05.out
+++ b/testdata/language-features/basic-values/where05.out
@@ -2,34 +2,22 @@ main is not found
2------------ desugared source code 2------------ desugared source code
3value1 3value1
4 = _rhs 4 = _rhs
5 ((\(a :: _) -> case'Bool 5 ((\(a :: _) -> case'Bool (\_ -> _) () (let b = _rhs () in b) (fromInt 1 == a))
6 (\_ -> _)
7 HNil
8 (let b = _rhs HNil in b)
9 (fromInt 1 == a))
10 (fromInt 1)) 6 (fromInt 1))
11 7
12value2 8value2
13 = _rhs 9 = _rhs
14 ((\(a :: _) -> case'Bool 10 ((\(a :: _) -> case'Bool (\_ -> _) () (let b = _rhs () in b) (fromInt 1 == a))
15 (\_ -> _)
16 HNil
17 (let b = _rhs HNil in b)
18 (fromInt 1 == a))
19 (fromInt 1)) 11 (fromInt 1))
20 12
21value3 13value3
22 = _rhs 14 = _rhs
23 ((\(a :: _) -> case'Bool 15 ((\(a :: _) -> case'Bool (\_ -> _) () (let b = _rhs () in b) (fromInt 1 == a))
24 (\_ -> _)
25 HNil
26 (let b = _rhs HNil in b)
27 (fromInt 1 == a))
28 (fromInt 1)) 16 (fromInt 1))
29 17
30value4 18value4
31 = _rhs 19 = _rhs
32 let a = _rhs HNil in (\(b :: _) -> case'Bool (\_ -> _) HNil a (fromInt 1 == b)) 20 let a = _rhs () in (\(b :: _) -> case'Bool (\_ -> _) () a (fromInt 1 == b))
33 (fromInt 1) 21 (fromInt 1)
34------------ trace 22------------ trace
35value1 :: forall a . (Eq a, Num a) => () 23value1 :: forall a . (Eq a, Num a) => ()
diff --git a/testdata/language-features/basic-values/wildcard01.out b/testdata/language-features/basic-values/wildcard01.out
index 49f84c4b..f13dd4d2 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 HNil 3funUnit = \_ -> _rhs ()
4------------ trace 4------------ trace
5funUnit :: forall a . a -> () 5funUnit :: forall a . a -> ()
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/guard/guard01.out b/testdata/language-features/guard/guard01.out
index 1405debb..a4d1b1be 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 HNil) True 3value = case'Bool (\_ -> _) (_rhs undefined) (_rhs ()) True
4------------ trace 4------------ trace
5value :: () 5value :: ()
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/guard/guard02.reject.out b/testdata/language-features/guard/guard02.reject.out
index 262f63a1..2b32bd9f 100644
--- a/testdata/language-features/guard/guard02.reject.out
+++ b/testdata/language-features/guard/guard02.reject.out
@@ -1,17 +1,15 @@
1type error: can not unify 1type error: can not unify
2'String 2 String
3with 3with
4() 4 ()
5
6in testdata/language-features/guard/guard02.reject.lc:2:12: 5in testdata/language-features/guard/guard02.reject.lc:2:12:
7 | True = () 6 | True = ()
8 ^^ 7 ^^
9------------ trace 8------------ trace
10!type error: can not unify 9!type error: can not unify
11'String 10 String
12with 11with
13() 12 ()
14
15in testdata/language-features/guard/guard02.reject.lc:2:12: 13in testdata/language-features/guard/guard02.reject.lc:2:12:
16 | True = () 14 | True = ()
17 ^^ 15 ^^
diff --git a/testdata/language-features/guard/guard05.reject.out b/testdata/language-features/guard/guard05.reject.out
index 07cea5f5..cde1f7a0 100644
--- a/testdata/language-features/guard/guard05.reject.out
+++ b/testdata/language-features/guard/guard05.reject.out
@@ -1,17 +1,15 @@
1type error: can not unify 1type error: can not unify
2'Bool 2 Bool
3with 3with
4() 4 ()
5
6in testdata/language-features/guard/guard05.reject.lc:1:9: 5in testdata/language-features/guard/guard05.reject.lc:1:9:
7value | () = "wrong" 6value | () = "wrong"
8 ^^ 7 ^^
9------------ trace 8------------ trace
10!type error: can not unify 9!type error: can not unify
11'Bool 10 Bool
12with 11with
13() 12 ()
14
15in testdata/language-features/guard/guard05.reject.lc:1:9: 13in testdata/language-features/guard/guard05.reject.lc:1:9:
16value | () = "wrong" 14value | () = "wrong"
17 ^^ 15 ^^
diff --git a/testdata/language-features/guard/guard06.out b/testdata/language-features/guard/guard06.out
index c568bf3c..e4a81609 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 HNil 3value = _rhs ()
4------------ trace 4------------ trace
5value :: () 5value :: ()
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/guard/guard12.reject.out b/testdata/language-features/guard/guard12.reject.out
index 1225b2b3..bae92b68 100644
--- a/testdata/language-features/guard/guard12.reject.out
+++ b/testdata/language-features/guard/guard12.reject.out
@@ -1,17 +1,15 @@
1type error: can not unify 1type error: can not unify
2'Char 2 Char
3with 3with
4() 4 ()
5
6in testdata/language-features/guard/guard12.reject.lc:1:13: 5in testdata/language-features/guard/guard12.reject.lc:1:13:
7fun x | x = () | otherwise = 'a' 6fun x | x = () | otherwise = 'a'
8 ^^ 7 ^^
9------------ trace 8------------ trace
10!type error: can not unify 9!type error: can not unify
11'Char 10 Char
12with 11with
13() 12 ()
14
15in testdata/language-features/guard/guard12.reject.lc:1:13: 13in testdata/language-features/guard/guard12.reject.lc:1:13:
16fun x | x = () | otherwise = 'a' 14fun x | x = () | otherwise = 'a'
17 ^^ 15 ^^
diff --git a/testdata/language-features/guard/guard13.out b/testdata/language-features/guard/guard13.out
index 3c1e364a..56ac235a 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 HNil) (_rhs HNil) a 3fun = \(a :: _) -> case'Bool (\_ -> _) (_rhs ()) (_rhs ()) a
4------------ trace 4------------ trace
5fun :: Bool -> () 5fun :: Bool -> ()
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/guard/guard14.out b/testdata/language-features/guard/guard14.out
index cc46a9cb..aabcc1c6 100644
--- a/testdata/language-features/guard/guard14.out
+++ b/testdata/language-features/guard/guard14.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 = case'Bool (\_ -> _) (_rhs HNil) (_rhs HNil) True in HNil 3value = _rhs let a = case'Bool (\_ -> _) (_rhs ()) (_rhs ()) True in ()
4------------ trace 4------------ trace
5value :: () 5value :: ()
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/guard/guard15.out b/testdata/language-features/guard/guard15.out
index b7ff5e41..68d58632 100644
--- a/testdata/language-features/guard/guard15.out
+++ b/testdata/language-features/guard/guard15.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 = case'Bool (\_ -> _) (_rhs HNil) (_rhs HNil) True in HNil 3value = _rhs let a = case'Bool (\_ -> _) (_rhs ()) (_rhs ()) True in ()
4------------ trace 4------------ trace
5value :: () 5value :: ()
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/guard/guard16.out b/testdata/language-features/guard/guard16.out
index 311d7db0..99d1d9b9 100644
--- a/testdata/language-features/guard/guard16.out
+++ b/testdata/language-features/guard/guard16.out
@@ -4,8 +4,8 @@ value
4 = _rhs 4 = _rhs
5 ((\(a :: _) -> case'Bool 5 ((\(a :: _) -> case'Bool
6 (\_ -> _) 6 (\_ -> _)
7 HNil 7 ()
8 (case'Bool (\_ -> _) HNil HNil True) 8 (case'Bool (\_ -> _) () () True)
9 (fromInt 1 == a)) 9 (fromInt 1 == a))
10 (fromInt 1)) 10 (fromInt 1))
11------------ trace 11------------ trace
diff --git a/testdata/language-features/module/Moduledef10.out b/testdata/language-features/module/Moduledef10.out
index 42b98df9..70a9525c 100644
--- a/testdata/language-features/module/Moduledef10.out
+++ b/testdata/language-features/module/Moduledef10.out
@@ -4,7 +4,7 @@ hello = _rhs "hello"
4 4
5world = _rhs "world" 5world = _rhs "world"
6 6
7value = _rhs HNil 7value = _rhs ()
8------------ trace 8------------ trace
9hello :: String 9hello :: String
10world :: String 10world :: String
diff --git a/testdata/language-features/module/TypeSyn01Mod.out b/testdata/language-features/module/TypeSyn01Mod.out
index 51565796..796185a0 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 ('HList []) 3'MyUnit = _rhs ' ()
4------------ trace 4------------ trace
5'MyUnit :: Type 5'MyUnit :: Type
6------------ tooltips 6------------ tooltips
diff --git a/testdata/language-features/module/import06.out b/testdata/language-features/module/import06.out
index fd792bd3..735c1544 100644
--- a/testdata/language-features/module/import06.out
+++ b/testdata/language-features/module/import06.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3hello = _rhs HNil 3hello = _rhs ()
4 4
5x = _rhs world 5x = _rhs world
6------------ trace 6------------ trace
diff --git a/testdata/language-features/module/import07.out b/testdata/language-features/module/import07.out
index 4bb045c3..bcbe4e32 100644
--- a/testdata/language-features/module/import07.out
+++ b/testdata/language-features/module/import07.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3hello = _rhs HNil 3hello = _rhs ()
4 4
5x = _rhs world 5x = _rhs world
6------------ trace 6------------ trace
diff --git a/testdata/language-features/module/import08.out b/testdata/language-features/module/import08.out
index aad9ca58..4d9e057c 100644
--- a/testdata/language-features/module/import08.out
+++ b/testdata/language-features/module/import08.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3value = _rhs HNil 3value = _rhs ()
4 4
5g :: Char 5g :: Char
6g = _rhs greeting 6g = _rhs greeting
diff --git a/testdata/language-features/module/import09.out b/testdata/language-features/module/import09.out
index 12e13325..58440063 100644
--- a/testdata/language-features/module/import09.out
+++ b/testdata/language-features/module/import09.out
@@ -1,9 +1,9 @@
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 HNil) a 4fun = \_ (a :: _) -> hlistNilCase _ (_rhs ()) a
5------------ trace 5------------ trace
6fun :: forall a . a -> () -> () 6fun :: forall a . a -> MyUnit -> ()
7------------ tooltips 7------------ tooltips
8testdata/language-features/module/import09.lc 3:8-3:9 8testdata/language-features/module/import09.lc 3:8-3:9
9 _b 9 _b
@@ -16,6 +16,6 @@ testdata/language-features/module/import09.lc 3:13-3:29
16testdata/language-features/module/import09.lc 3:23-3:29 16testdata/language-features/module/import09.lc 3:23-3:29
17 Type | Type 17 Type | Type
18testdata/language-features/module/import09.lc 4:1-4:4 18testdata/language-features/module/import09.lc 4:1-4:4
19 forall a . a -> () -> () 19 forall a . a -> MyUnit -> ()
20testdata/language-features/module/import09.lc 4:12-4:14 20testdata/language-features/module/import09.lc 4:12-4:14
21 () | () \ No newline at end of file 21 () | () \ No newline at end of file
diff --git a/testdata/language-features/pattern/uncovered.out b/testdata/language-features/pattern/uncovered.out
index 4302e4ac..ab9ba45e 100644
--- a/testdata/language-features/pattern/uncovered.out
+++ b/testdata/language-features/pattern/uncovered.out
@@ -117,8 +117,8 @@ g [True, False, True] = False
117Missing case(s): 117Missing case(s):
118 g [] 118 g []
119 g (False : _) 119 g (False : _)
120 g (True : []) 120 g [True]
121 g (True : False : []) 121 g [True, False]
122 g (True : False : False : _) 122 g (True : False : False : _)
123 g (True : False : True : _ : _) 123 g (True : False : True : _ : _)
124 g (True : True : _) 124 g (True : True : _)
@@ -129,9 +129,9 @@ Missing case(s):
129 h [] 129 h []
130 h ([] : _) 130 h ([] : _)
131 h ((False : _) : _) 131 h ((False : _) : _)
132 h ((True : []) : []) 132 h [[True]]
133 h ((True : []) : [] : _) 133 h ([True] : [] : _)
134 h ((True : []) : (False : []) : _ : _) 134 h ([True] : [False] : _ : _)
135 h ((True : []) : (False : _ : _) : _) 135 h ([True] : (False : _ : _) : _)
136 h ((True : []) : (True : _) : _) 136 h ([True] : (True : _) : _)
137 h ((True : _ : _) : _) \ No newline at end of file 137 h ((True : _ : _) : _) \ No newline at end of file
diff --git a/testdata/language-features/recursion/simplerec02.out b/testdata/language-features/recursion/simplerec02.out
index c9911c40..3155a2a2 100644
--- a/testdata/language-features/recursion/simplerec02.out
+++ b/testdata/language-features/recursion/simplerec02.out
@@ -2,13 +2,15 @@ main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = _rhs 4 = _rhs
5 let a 5 let
6 = primFix 6 a
7 \(b :: _) (c :: _) -> case'Bool 7 = primFix
8 (\_ -> _) 8 \(b :: _) (c :: _) -> case'Bool
9 (_rhs (b (fromInt 0))) 9 (\_ -> _)
10 (_rhs 'a') 10 (_rhs (b (fromInt 0)))
11 (fromInt 0 == c) in HNil 11 (_rhs 'a')
12 (fromInt 0 == c)
13 in ()
12------------ trace 14------------ trace
13value :: () 15value :: ()
14------------ tooltips 16------------ tooltips
diff --git a/testdata/language-features/recursion/simplerec03.out b/testdata/language-features/recursion/simplerec03.out
index d3751f2d..0b36d193 100644
--- a/testdata/language-features/recursion/simplerec03.out
+++ b/testdata/language-features/recursion/simplerec03.out
@@ -2,13 +2,15 @@ main is not found
2------------ desugared source code 2------------ desugared source code
3value 3value
4 = _rhs 4 = _rhs
5 let a 5 let
6 = primFix 6 a
7 \(b :: _) (c :: _) -> case'Bool 7 = primFix
8 (\_ -> _) 8 \(b :: _) (c :: _) -> case'Bool
9 (_rhs (b (fromInt 0))) 9 (\_ -> _)
10 (_rhs 'a') 10 (_rhs (b (fromInt 0)))
11 (fromInt 0 == c) in HNil 11 (_rhs 'a')
12 (fromInt 0 == c)
13 in ()
12------------ trace 14------------ trace
13value :: () 15value :: ()
14------------ tooltips 16------------ tooltips
diff --git a/testdata/language-features/section/section01.out b/testdata/language-features/section/section01.out
index a502f9f5..f8f8b791 100644
--- a/testdata/language-features/section/section01.out
+++ b/testdata/language-features/section/section01.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3(!@!) = \_ _ -> _rhs HNil 3(!@!) = \_ _ -> _rhs ()
4 4
5value1 = \(a :: _) -> _rhs \(b :: _) -> a !@! b 5value1 = \(a :: _) -> _rhs \(b :: _) -> a !@! b
6 6
diff --git a/testdata/letIndent.out b/testdata/letIndent.out
index b1f436d2..8818ab73 100644
--- a/testdata/letIndent.out
+++ b/testdata/letIndent.out
@@ -1,7 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3fun 3fun = \(a :: _) -> _rhs let b = _rhs (fromInt 1); c = _rhs (fromInt 2) in a
4 = \(a :: _) -> _rhs let b = _rhs (fromInt 1) in let c = _rhs (fromInt 2) in a
5------------ trace 4------------ trace
6fun :: forall a . a -> a 5fun :: forall a . a -> a
7------------ tooltips 6------------ tooltips
diff --git a/testdata/performance/Material.out b/testdata/performance/Material.out
index ef9a0f94..1a615e54 100644
--- a/testdata/performance/Material.out
+++ b/testdata/performance/Material.out
@@ -122,7 +122,7 @@ data DepthFunction :: Type where
122 122
123data StageAttrs :: Type where 123data StageAttrs :: Type where
124 StageAttrs 124 StageAttrs
125 :: Maybe (HList (Blending' : Blending' : '[])) 125 :: Maybe (Blending', Blending')
126 -> RGBGen 126 -> RGBGen
127 -> AlphaGen 127 -> AlphaGen
128 -> TCGen 128 -> TCGen
@@ -214,8 +214,8 @@ defaultStageAttrs
214 214
215data CommonAttrs :: Type where 215data CommonAttrs :: Type where
216 CommonAttrs 216 CommonAttrs
217 :: HList '[] 217 :: ()
218 -> HList '[] 218 -> ()
219 -> Bool 219 -> Bool
220 -> Float 220 -> Float
221 -> Bool 221 -> Bool
@@ -298,8 +298,8 @@ defaultCommonAttrs :: CommonAttrs
298defaultCommonAttrs 298defaultCommonAttrs
299 = _rhs 299 = _rhs
300 (CommonAttrs 300 (CommonAttrs
301 HNil 301 ()
302 HNil 302 ()
303 False 303 False
304 (fromInt 0) 304 (fromInt 0)
305 False 305 False
diff --git a/testdata/performance/SampleMaterial.out b/testdata/performance/SampleMaterial.out
index d48fe86c..5d70651e 100644
--- a/testdata/performance/SampleMaterial.out
+++ b/testdata/performance/SampleMaterial.out
@@ -2,2081 +2,1880 @@ main is not found
2------------ desugared source code 2------------ desugared source code
3sampleMaterial 3sampleMaterial
4 = _rhs 4 = _rhs
5 (HCons 5 [("textures/gothic_block/blocks11b"
6 "textures/gothic_block/blocks11b" 6 , CommonAttrs
7 (HCons 7 ()
8 (CommonAttrs 8 ()
9 HNil 9 False
10 HNil 10 (fromInt 0)
11 False 11 False
12 (fromInt 0) 12 False
13 False 13 CT_FrontSided
14 False 14 []
15 CT_FrontSided 15 False
16 [] 16 False
17 False 17 [StageAttrs
18 False 18 Nothing
19 (StageAttrs 19 RGB_IdentityLighting
20 Nothing 20 A_Identity
21 RGB_IdentityLighting 21 TG_Base
22 A_Identity 22 []
23 TG_Base 23 (ST_Map "textures/gothic_block/blocks11b")
24 [] 24 True
25 (ST_Map "textures/gothic_block/blocks11b") 25 D_Lequal
26 True 26 Nothing
27 D_Lequal 27 False
28 Nothing 28 "Tex_4288602201"
29 False 29 , StageAttrs
30 "Tex_4288602201" 30 (Just (B_DstColor, B_Zero))
31 : StageAttrs 31 RGB_IdentityLighting
32 (Just (HCons B_DstColor (HCons B_Zero HNil))) 32 A_Identity
33 RGB_IdentityLighting 33 TG_Lightmap
34 A_Identity 34 []
35 TG_Lightmap 35 ST_Lightmap
36 [] 36 True
37 ST_Lightmap 37 D_Lequal
38 True 38 Nothing
39 D_Lequal 39 False
40 Nothing 40 "Tex_3226210144"]
41 False 41 False)
42 "Tex_3226210144" 42 , ("textures/gothic_block/blocks15"
43 : []) 43 , CommonAttrs
44 False) 44 ()
45 HNil) 45 ()
46 : HCons 46 False
47 "textures/gothic_block/blocks15" 47 (fromInt 0)
48 (HCons 48 False
49 (CommonAttrs 49 False
50 HNil 50 CT_FrontSided
51 HNil 51 []
52 False 52 False
53 (fromInt 0) 53 False
54 False 54 [StageAttrs
55 False 55 Nothing
56 CT_FrontSided 56 RGB_IdentityLighting
57 [] 57 A_Identity
58 False 58 TG_Base
59 False 59 []
60 (StageAttrs 60 (ST_Map "textures/gothic_block/blocks15")
61 Nothing 61 True
62 RGB_IdentityLighting 62 D_Lequal
63 A_Identity 63 Nothing
64 TG_Base 64 False
65 [] 65 "Tex_2523116863"
66 (ST_Map "textures/gothic_block/blocks15") 66 , StageAttrs
67 True 67 (Just (B_DstColor, B_Zero))
68 D_Lequal 68 RGB_IdentityLighting
69 Nothing 69 A_Identity
70 False 70 TG_Lightmap
71 "Tex_2523116863" 71 []
72 : StageAttrs 72 ST_Lightmap
73 (Just (HCons B_DstColor (HCons B_Zero HNil))) 73 True
74 RGB_IdentityLighting 74 D_Lequal
75 A_Identity 75 Nothing
76 TG_Lightmap 76 False
77 [] 77 "Tex_3226210144"]
78 ST_Lightmap 78 False)
79 True 79 , ("textures/gothic_block/blocks18b"
80 D_Lequal 80 , CommonAttrs
81 Nothing 81 ()
82 False 82 ()
83 "Tex_3226210144" 83 False
84 : []) 84 (fromInt 0)
85 False) 85 False
86 HNil) 86 False
87 : HCons 87 CT_FrontSided
88 "textures/gothic_block/blocks18b" 88 []
89 (HCons 89 False
90 (CommonAttrs 90 False
91 HNil 91 [StageAttrs
92 HNil 92 Nothing
93 False 93 RGB_IdentityLighting
94 (fromInt 0) 94 A_Identity
95 False 95 TG_Base
96 False 96 []
97 CT_FrontSided 97 (ST_Map "textures/gothic_block/blocks18b")
98 [] 98 True
99 False 99 D_Lequal
100 False 100 Nothing
101 (StageAttrs 101 False
102 Nothing 102 "Tex_2639119078"
103 RGB_IdentityLighting 103 , StageAttrs
104 A_Identity 104 (Just (B_DstColor, B_Zero))
105 TG_Base 105 RGB_IdentityLighting
106 [] 106 A_Identity
107 (ST_Map "textures/gothic_block/blocks18b") 107 TG_Lightmap
108 True 108 []
109 D_Lequal 109 ST_Lightmap
110 Nothing 110 True
111 False 111 D_Lequal
112 "Tex_2639119078" 112 Nothing
113 : StageAttrs 113 False
114 (Just (HCons B_DstColor (HCons B_Zero HNil))) 114 "Tex_3226210144"]
115 RGB_IdentityLighting 115 False)
116 A_Identity 116 , ("textures/gothic_block/blocks18c_3"
117 TG_Lightmap 117 , CommonAttrs
118 [] 118 ()
119 ST_Lightmap 119 ()
120 True 120 False
121 D_Lequal 121 (fromInt 0)
122 Nothing 122 False
123 False 123 False
124 "Tex_3226210144" 124 CT_FrontSided
125 : []) 125 []
126 False) 126 False
127 HNil) 127 False
128 : HCons 128 [StageAttrs
129 "textures/gothic_block/blocks18c_3" 129 Nothing
130 (HCons 130 RGB_IdentityLighting
131 (CommonAttrs 131 A_Identity
132 HNil 132 TG_Base
133 HNil 133 []
134 False 134 (ST_Map "textures/gothic_block/blocks18c_3")
135 (fromInt 0) 135 True
136 False 136 D_Lequal
137 False 137 Nothing
138 CT_FrontSided 138 False
139 [] 139 "Tex_3939430064"
140 False 140 , StageAttrs
141 False 141 (Just (B_DstColor, B_Zero))
142 (StageAttrs 142 RGB_IdentityLighting
143 Nothing 143 A_Identity
144 RGB_IdentityLighting 144 TG_Lightmap
145 A_Identity 145 []
146 TG_Base 146 ST_Lightmap
147 [] 147 True
148 (ST_Map "textures/gothic_block/blocks18c_3") 148 D_Lequal
149 True 149 Nothing
150 D_Lequal 150 False
151 Nothing 151 "Tex_3226210144"]
152 False 152 False)
153 "Tex_3939430064" 153 , ("textures/gothic_block/demon_block15fx"
154 : StageAttrs 154 , CommonAttrs
155 (Just (HCons B_DstColor (HCons B_Zero HNil))) 155 ()
156 RGB_IdentityLighting 156 ()
157 A_Identity 157 False
158 TG_Lightmap 158 (fromInt 3)
159 [] 159 False
160 ST_Lightmap 160 False
161 True 161 CT_FrontSided
162 D_Lequal 162 []
163 Nothing 163 False
164 False 164 False
165 "Tex_3226210144" 165 [StageAttrs
166 : []) 166 Nothing
167 False) 167 RGB_Identity
168 HNil) 168 A_Identity
169 : HCons 169 TG_Base
170 "textures/gothic_block/demon_block15fx" 170 [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 1.6, TM_Scale 4.0 4.0]
171 (HCons 171 (ST_Map "textures/sfx/firegorre.tga")
172 (CommonAttrs 172 True
173 HNil 173 D_Lequal
174 HNil 174 Nothing
175 False 175 False
176 (fromInt 3) 176 "Tex_47037129"
177 False 177 , StageAttrs
178 False 178 (Just (B_SrcAlpha, B_OneMinusSrcAlpha))
179 CT_FrontSided 179 RGB_Identity
180 [] 180 A_Identity
181 False 181 TG_Base
182 False 182 []
183 (StageAttrs 183 (ST_Map "textures/gothic_block/demon_block15fx.tga")
184 Nothing 184 False
185 RGB_Identity 185 D_Lequal
186 A_Identity 186 Nothing
187 TG_Base 187 False
188 (TM_Scroll 0.0 1.0 : TM_Turb 0.0 0.25 0.0 1.6 : TM_Scale 4.0 4.0 : []) 188 "Tex_3562558025"
189 (ST_Map "textures/sfx/firegorre.tga") 189 , StageAttrs
190 True 190 (Just (B_DstColor, B_OneMinusDstAlpha))
191 D_Lequal 191 RGB_Identity
192 Nothing 192 A_Identity
193 False 193 TG_Lightmap
194 "Tex_47037129" 194 []
195 : StageAttrs 195 ST_Lightmap
196 (Just (HCons B_SrcAlpha (HCons B_OneMinusSrcAlpha HNil))) 196 False
197 RGB_Identity 197 D_Lequal
198 A_Identity 198 Nothing
199 TG_Base 199 False
200 [] 200 "Tex_2065974340"]
201 (ST_Map "textures/gothic_block/demon_block15fx.tga") 201 False)
202 False 202 , ("textures/gothic_block/killblock"
203 D_Lequal 203 , CommonAttrs
204 Nothing 204 ()
205 False 205 ()
206 "Tex_3562558025" 206 False
207 : StageAttrs 207 (fromInt 0)
208 (Just (HCons B_DstColor (HCons B_OneMinusDstAlpha HNil))) 208 False
209 RGB_Identity 209 False
210 A_Identity 210 CT_FrontSided
211 TG_Lightmap 211 []
212 [] 212 False
213 ST_Lightmap 213 False
214 False 214 [StageAttrs
215 D_Lequal 215 Nothing
216 Nothing 216 RGB_IdentityLighting
217 False 217 A_Identity
218 "Tex_2065974340" 218 TG_Base
219 : []) 219 []
220 False) 220 (ST_Map "textures/gothic_block/killblock")
221 HNil) 221 True
222 : HCons 222 D_Lequal
223 "textures/gothic_block/killblock" 223 Nothing
224 (HCons 224 False
225 (CommonAttrs 225 "Tex_3647563961"
226 HNil 226 , StageAttrs
227 HNil 227 (Just (B_DstColor, B_Zero))
228 False 228 RGB_IdentityLighting
229 (fromInt 0) 229 A_Identity
230 False 230 TG_Lightmap
231 False 231 []
232 CT_FrontSided 232 ST_Lightmap
233 [] 233 True
234 False 234 D_Lequal
235 False 235 Nothing
236 (StageAttrs 236 False
237 Nothing 237 "Tex_3226210144"]
238 RGB_IdentityLighting 238 False)
239 A_Identity 239 , ("textures/gothic_block/killblock_i"
240 TG_Base 240 , CommonAttrs
241 [] 241 ()
242 (ST_Map "textures/gothic_block/killblock") 242 ()
243 True 243 False
244 D_Lequal 244 (fromInt 0)
245 Nothing 245 False
246 False 246 False
247 "Tex_3647563961" 247 CT_FrontSided
248 : StageAttrs 248 []
249 (Just (HCons B_DstColor (HCons B_Zero HNil))) 249 False
250 RGB_IdentityLighting 250 False
251 A_Identity 251 [StageAttrs
252 TG_Lightmap 252 Nothing
253 [] 253 RGB_IdentityLighting
254 ST_Lightmap 254 A_Identity
255 True 255 TG_Base
256 D_Lequal 256 []
257 Nothing 257 (ST_Map "textures/gothic_block/killblock_i")
258 False 258 True
259 "Tex_3226210144" 259 D_Lequal
260 : []) 260 Nothing
261 False) 261 False
262 HNil) 262 "Tex_209322640"
263 : HCons 263 , StageAttrs
264 "textures/gothic_block/killblock_i" 264 (Just (B_DstColor, B_Zero))
265 (HCons 265 RGB_IdentityLighting
266 (CommonAttrs 266 A_Identity
267 HNil 267 TG_Lightmap
268 HNil 268 []
269 False 269 ST_Lightmap
270 (fromInt 0) 270 True
271 False 271 D_Lequal
272 False 272 Nothing
273 CT_FrontSided 273 False
274 [] 274 "Tex_3226210144"]
275 False 275 False)
276 False 276 , ("textures/gothic_block/killblock_i4"
277 (StageAttrs 277 , CommonAttrs
278 Nothing 278 ()
279 RGB_IdentityLighting 279 ()
280 A_Identity 280 False
281 TG_Base 281 (fromInt 0)
282 [] 282 False
283 (ST_Map "textures/gothic_block/killblock_i") 283 False
284 True 284 CT_FrontSided
285 D_Lequal 285 []
286 Nothing 286 False
287 False 287 False
288 "Tex_209322640" 288 [StageAttrs
289 : StageAttrs 289 Nothing
290 (Just (HCons B_DstColor (HCons B_Zero HNil))) 290 RGB_IdentityLighting
291 RGB_IdentityLighting 291 A_Identity
292 A_Identity 292 TG_Base
293 TG_Lightmap 293 []
294 [] 294 (ST_Map "textures/gothic_block/killblock_i4")
295 ST_Lightmap 295 True
296 True 296 D_Lequal
297 D_Lequal 297 Nothing
298 Nothing 298 False
299 False 299 "Tex_3617993418"
300 "Tex_3226210144" 300 , StageAttrs
301 : []) 301 (Just (B_DstColor, B_Zero))
302 False) 302 RGB_IdentityLighting
303 HNil) 303 A_Identity
304 : HCons 304 TG_Lightmap
305 "textures/gothic_block/killblock_i4" 305 []
306 (HCons 306 ST_Lightmap
307 (CommonAttrs 307 True
308 HNil 308 D_Lequal
309 HNil 309 Nothing
310 False 310 False
311 (fromInt 0) 311 "Tex_3226210144"]
312 False 312 False)
313 False 313 , ("textures/gothic_door/km_arena1archfinalc_mid"
314 CT_FrontSided 314 , CommonAttrs
315 [] 315 ()
316 False 316 ()
317 False 317 False
318 (StageAttrs 318 (fromInt 0)
319 Nothing 319 False
320 RGB_IdentityLighting 320 False
321 A_Identity 321 CT_FrontSided
322 TG_Base 322 []
323 [] 323 False
324 (ST_Map "textures/gothic_block/killblock_i4") 324 False
325 True 325 [StageAttrs
326 D_Lequal 326 Nothing
327 Nothing 327 RGB_IdentityLighting
328 False 328 A_Identity
329 "Tex_3617993418" 329 TG_Base
330 : StageAttrs 330 []
331 (Just (HCons B_DstColor (HCons B_Zero HNil))) 331 (ST_Map "textures/gothic_door/km_arena1archfinalc_mid")
332 RGB_IdentityLighting 332 True
333 A_Identity 333 D_Lequal
334 TG_Lightmap 334 Nothing
335 [] 335 False
336 ST_Lightmap 336 "Tex_2073154888"
337 True 337 , StageAttrs
338 D_Lequal 338 (Just (B_DstColor, B_Zero))
339 Nothing 339 RGB_IdentityLighting
340 False 340 A_Identity
341 "Tex_3226210144" 341 TG_Lightmap
342 : []) 342 []
343 False) 343 ST_Lightmap
344 HNil) 344 True
345 : HCons 345 D_Lequal
346 "textures/gothic_door/km_arena1archfinalc_mid" 346 Nothing
347 (HCons 347 False
348 (CommonAttrs 348 "Tex_3226210144"]
349 HNil 349 False)
350 HNil 350 , ("textures/gothic_door/km_arena1archfinalc_top"
351 False 351 , CommonAttrs
352 (fromInt 0) 352 ()
353 False 353 ()
354 False 354 False
355 CT_FrontSided 355 (fromInt 0)
356 [] 356 False
357 False 357 False
358 False 358 CT_FrontSided
359 (StageAttrs 359 []
360 Nothing 360 False
361 RGB_IdentityLighting 361 False
362 A_Identity 362 [StageAttrs
363 TG_Base 363 Nothing
364 [] 364 RGB_IdentityLighting
365 (ST_Map "textures/gothic_door/km_arena1archfinalc_mid") 365 A_Identity
366 True 366 TG_Base
367 D_Lequal 367 []
368 Nothing 368 (ST_Map "textures/gothic_door/km_arena1archfinalc_top")
369 False 369 True
370 "Tex_2073154888" 370 D_Lequal
371 : StageAttrs 371 Nothing
372 (Just (HCons B_DstColor (HCons B_Zero HNil))) 372 False
373 RGB_IdentityLighting 373 "Tex_3071107621"
374 A_Identity 374 , StageAttrs
375 TG_Lightmap 375 (Just (B_DstColor, B_Zero))
376 [] 376 RGB_IdentityLighting
377 ST_Lightmap 377 A_Identity
378 True 378 TG_Lightmap
379 D_Lequal 379 []
380 Nothing 380 ST_Lightmap
381 False 381 True
382 "Tex_3226210144" 382 D_Lequal
383 : []) 383 Nothing
384 False) 384 False
385 HNil) 385 "Tex_3226210144"]
386 : HCons 386 False)
387 "textures/gothic_door/km_arena1archfinalc_top" 387 , ("textures/gothic_door/km_arena1archfinald_bot"
388 (HCons 388 , CommonAttrs
389 (CommonAttrs 389 ()
390 HNil 390 ()
391 HNil 391 False
392 False 392 (fromInt 0)
393 (fromInt 0) 393 False
394 False 394 False
395 False 395 CT_FrontSided
396 CT_FrontSided 396 []
397 [] 397 False
398 False 398 False
399 False 399 [StageAttrs
400 (StageAttrs 400 Nothing
401 Nothing 401 RGB_IdentityLighting
402 RGB_IdentityLighting 402 A_Identity
403 A_Identity 403 TG_Base
404 TG_Base 404 []
405 [] 405 (ST_Map "textures/gothic_door/km_arena1archfinald_bot")
406 (ST_Map "textures/gothic_door/km_arena1archfinalc_top") 406 True
407 True 407 D_Lequal
408 D_Lequal 408 Nothing
409 Nothing 409 False
410 False 410 "Tex_1201212243"
411 "Tex_3071107621" 411 , StageAttrs
412 : StageAttrs 412 (Just (B_DstColor, B_Zero))
413 (Just (HCons B_DstColor (HCons B_Zero HNil))) 413 RGB_IdentityLighting
414 RGB_IdentityLighting 414 A_Identity
415 A_Identity 415 TG_Lightmap
416 TG_Lightmap 416 []
417 [] 417 ST_Lightmap
418 ST_Lightmap 418 True
419 True 419 D_Lequal
420 D_Lequal 420 Nothing
421 Nothing 421 False
422 False 422 "Tex_3226210144"]
423 "Tex_3226210144" 423 False)
424 : []) 424 , ("textures/gothic_door/km_arena1archfinald_mid"
425 False) 425 , CommonAttrs
426 HNil) 426 ()
427 : HCons 427 ()
428 "textures/gothic_door/km_arena1archfinald_bot" 428 False
429 (HCons 429 (fromInt 0)
430 (CommonAttrs 430 False
431 HNil 431 False
432 HNil 432 CT_FrontSided
433 False 433 []
434 (fromInt 0) 434 False
435 False 435 False
436 False 436 [StageAttrs
437 CT_FrontSided 437 Nothing
438 [] 438 RGB_IdentityLighting
439 False 439 A_Identity
440 False 440 TG_Base
441 (StageAttrs 441 []
442 Nothing 442 (ST_Map "textures/gothic_door/km_arena1archfinald_mid")
443 RGB_IdentityLighting 443 True
444 A_Identity 444 D_Lequal
445 TG_Base 445 Nothing
446 [] 446 False
447 (ST_Map "textures/gothic_door/km_arena1archfinald_bot") 447 "Tex_3768122504"
448 True 448 , StageAttrs
449 D_Lequal 449 (Just (B_DstColor, B_Zero))
450 Nothing 450 RGB_IdentityLighting
451 False 451 A_Identity
452 "Tex_1201212243" 452 TG_Lightmap
453 : StageAttrs 453 []
454 (Just (HCons B_DstColor (HCons B_Zero HNil))) 454 ST_Lightmap
455 RGB_IdentityLighting 455 True
456 A_Identity 456 D_Lequal
457 TG_Lightmap 457 Nothing
458 [] 458 False
459 ST_Lightmap 459 "Tex_3226210144"]
460 True 460 False)
461 D_Lequal 461 , ("textures/gothic_door/skull_door_a"
462 Nothing 462 , CommonAttrs
463 False 463 ()
464 "Tex_3226210144" 464 ()
465 : []) 465 False
466 False) 466 (fromInt 0)
467 HNil) 467 False
468 : HCons 468 False
469 "textures/gothic_door/km_arena1archfinald_mid" 469 CT_FrontSided
470 (HCons 470 []
471 (CommonAttrs 471 False
472 HNil 472 False
473 HNil 473 [StageAttrs
474 False 474 Nothing
475 (fromInt 0) 475 RGB_IdentityLighting
476 False 476 A_Identity
477 False 477 TG_Base
478 CT_FrontSided 478 []
479 [] 479 (ST_Map "textures/gothic_door/skull_door_a")
480 False 480 True
481 False 481 D_Lequal
482 (StageAttrs 482 Nothing
483 Nothing 483 False
484 RGB_IdentityLighting 484 "Tex_1284708166"
485 A_Identity 485 , StageAttrs
486 TG_Base 486 (Just (B_DstColor, B_Zero))
487 [] 487 RGB_IdentityLighting
488 (ST_Map "textures/gothic_door/km_arena1archfinald_mid") 488 A_Identity
489 True 489 TG_Lightmap
490 D_Lequal 490 []
491 Nothing 491 ST_Lightmap
492 False 492 True
493 "Tex_3768122504" 493 D_Lequal
494 : StageAttrs 494 Nothing
495 (Just (HCons B_DstColor (HCons B_Zero HNil))) 495 False
496 RGB_IdentityLighting 496 "Tex_3226210144"]
497 A_Identity 497 False)
498 TG_Lightmap 498 , ("textures/gothic_door/skull_door_b"
499 [] 499 , CommonAttrs
500 ST_Lightmap 500 ()
501 True 501 ()
502 D_Lequal 502 False
503 Nothing 503 (fromInt 0)
504 False 504 False
505 "Tex_3226210144" 505 False
506 : []) 506 CT_FrontSided
507 False) 507 []
508 HNil) 508 False
509 : HCons 509 False
510 "textures/gothic_door/skull_door_a" 510 [StageAttrs
511 (HCons 511 Nothing
512 (CommonAttrs 512 RGB_IdentityLighting
513 HNil 513 A_Identity
514 HNil 514 TG_Base
515 False 515 []
516 (fromInt 0) 516 (ST_Map "textures/gothic_door/skull_door_b")
517 False 517 True
518 False 518 D_Lequal
519 CT_FrontSided 519 Nothing
520 [] 520 False
521 False 521 "Tex_1318715778"
522 False 522 , StageAttrs
523 (StageAttrs 523 (Just (B_DstColor, B_Zero))
524 Nothing 524 RGB_IdentityLighting
525 RGB_IdentityLighting 525 A_Identity
526 A_Identity 526 TG_Lightmap
527 TG_Base 527 []
528 [] 528 ST_Lightmap
529 (ST_Map "textures/gothic_door/skull_door_a") 529 True
530 True 530 D_Lequal
531 D_Lequal 531 Nothing
532 Nothing 532 False
533 False 533 "Tex_3226210144"]
534 "Tex_1284708166" 534 False)
535 : StageAttrs 535 , ("textures/gothic_door/skull_door_c"
536 (Just (HCons B_DstColor (HCons B_Zero HNil))) 536 , CommonAttrs
537 RGB_IdentityLighting 537 ()
538 A_Identity 538 ()
539 TG_Lightmap 539 False
540 [] 540 (fromInt 0)
541 ST_Lightmap 541 False
542 True 542 False
543 D_Lequal 543 CT_FrontSided
544 Nothing 544 []
545 False 545 False
546 "Tex_3226210144" 546 False
547 : []) 547 [StageAttrs
548 False) 548 Nothing
549 HNil) 549 RGB_IdentityLighting
550 : HCons 550 A_Identity
551 "textures/gothic_door/skull_door_b" 551 TG_Base
552 (HCons 552 []
553 (CommonAttrs 553 (ST_Map "textures/gothic_door/skull_door_c")
554 HNil 554 True
555 HNil 555 D_Lequal
556 False 556 Nothing
557 (fromInt 0) 557 False
558 False 558 "Tex_4189195777"
559 False 559 , StageAttrs
560 CT_FrontSided 560 (Just (B_DstColor, B_Zero))
561 [] 561 RGB_IdentityLighting
562 False 562 A_Identity
563 False 563 TG_Lightmap
564 (StageAttrs 564 []
565 Nothing 565 ST_Lightmap
566 RGB_IdentityLighting 566 True
567 A_Identity 567 D_Lequal
568 TG_Base 568 Nothing
569 [] 569 False
570 (ST_Map "textures/gothic_door/skull_door_b") 570 "Tex_3226210144"]
571 True 571 False)
572 D_Lequal 572 , ("textures/gothic_door/skull_door_d"
573 Nothing 573 , CommonAttrs
574 False 574 ()
575 "Tex_1318715778" 575 ()
576 : StageAttrs 576 False
577 (Just (HCons B_DstColor (HCons B_Zero HNil))) 577 (fromInt 0)
578 RGB_IdentityLighting 578 False
579 A_Identity 579 False
580 TG_Lightmap 580 CT_FrontSided
581 [] 581 []
582 ST_Lightmap 582 False
583 True 583 False
584 D_Lequal 584 [StageAttrs
585 Nothing 585 Nothing
586 False 586 RGB_IdentityLighting
587 "Tex_3226210144" 587 A_Identity
588 : []) 588 TG_Base
589 False) 589 []
590 HNil) 590 (ST_Map "textures/gothic_door/skull_door_d")
591 : HCons 591 True
592 "textures/gothic_door/skull_door_c" 592 D_Lequal
593 (HCons 593 Nothing
594 (CommonAttrs 594 False
595 HNil 595 "Tex_1250438154"
596 HNil 596 , StageAttrs
597 False 597 (Just (B_DstColor, B_Zero))
598 (fromInt 0) 598 RGB_IdentityLighting
599 False 599 A_Identity
600 False 600 TG_Lightmap
601 CT_FrontSided 601 []
602 [] 602 ST_Lightmap
603 False 603 True
604 False 604 D_Lequal
605 (StageAttrs 605 Nothing
606 Nothing 606 False
607 RGB_IdentityLighting 607 "Tex_3226210144"]
608 A_Identity 608 False)
609 TG_Base 609 , ("textures/gothic_door/skull_door_e"
610 [] 610 , CommonAttrs
611 (ST_Map "textures/gothic_door/skull_door_c") 611 ()
612 True 612 ()
613 D_Lequal 613 False
614 Nothing 614 (fromInt 0)
615 False 615 False
616 "Tex_4189195777" 616 False
617 : StageAttrs 617 CT_FrontSided
618 (Just (HCons B_DstColor (HCons B_Zero HNil))) 618 []
619 RGB_IdentityLighting 619 False
620 A_Identity 620 False
621 TG_Lightmap 621 [StageAttrs
622 [] 622 Nothing
623 ST_Lightmap 623 RGB_IdentityLighting
624 True 624 A_Identity
625 D_Lequal 625 TG_Base
626 Nothing 626 []
627 False 627 (ST_Map "textures/gothic_door/skull_door_e")
628 "Tex_3226210144" 628 True
629 : []) 629 D_Lequal
630 False) 630 Nothing
631 HNil) 631 False
632 : HCons 632 "Tex_4255130505"
633 "textures/gothic_door/skull_door_d" 633 , StageAttrs
634 (HCons 634 (Just (B_DstColor, B_Zero))
635 (CommonAttrs 635 RGB_IdentityLighting
636 HNil 636 A_Identity
637 HNil 637 TG_Lightmap
638 False 638 []
639 (fromInt 0) 639 ST_Lightmap
640 False 640 True
641 False 641 D_Lequal
642 CT_FrontSided 642 Nothing
643 [] 643 False
644 False 644 "Tex_3226210144"]
645 False 645 False)
646 (StageAttrs 646 , ("textures/gothic_door/skull_door_f"
647 Nothing 647 , CommonAttrs
648 RGB_IdentityLighting 648 ()
649 A_Identity 649 ()
650 TG_Base 650 False
651 [] 651 (fromInt 0)
652 (ST_Map "textures/gothic_door/skull_door_d") 652 False
653 True 653 False
654 D_Lequal 654 CT_FrontSided
655 Nothing 655 []
656 False 656 False
657 "Tex_1250438154" 657 False
658 : StageAttrs 658 [StageAttrs
659 (Just (HCons B_DstColor (HCons B_Zero HNil))) 659 Nothing
660 RGB_IdentityLighting 660 RGB_IdentityLighting
661 A_Identity 661 A_Identity
662 TG_Lightmap 662 TG_Base
663 [] 663 []
664 ST_Lightmap 664 (ST_Map "textures/gothic_door/skull_door_f")
665 True 665 True
666 D_Lequal 666 D_Lequal
667 Nothing 667 Nothing
668 False 668 False
669 "Tex_3226210144" 669 "Tex_4289279309"
670 : []) 670 , StageAttrs
671 False) 671 (Just (B_DstColor, B_Zero))
672 HNil) 672 RGB_IdentityLighting
673 : HCons 673 A_Identity
674 "textures/gothic_door/skull_door_e" 674 TG_Lightmap
675 (HCons 675 []
676 (CommonAttrs 676 ST_Lightmap
677 HNil 677 True
678 HNil 678 D_Lequal
679 False 679 Nothing
680 (fromInt 0) 680 False
681 False 681 "Tex_3226210144"]
682 False 682 False)
683 CT_FrontSided 683 , ("textures/gothic_door/skullarch_a"
684 [] 684 , CommonAttrs
685 False 685 ()
686 False 686 ()
687 (StageAttrs 687 False
688 Nothing 688 (fromInt 0)
689 RGB_IdentityLighting 689 False
690 A_Identity 690 False
691 TG_Base 691 CT_FrontSided
692 [] 692 []
693 (ST_Map "textures/gothic_door/skull_door_e") 693 False
694 True 694 False
695 D_Lequal 695 [StageAttrs
696 Nothing 696 Nothing
697 False 697 RGB_IdentityLighting
698 "Tex_4255130505" 698 A_Identity
699 : StageAttrs 699 TG_Base
700 (Just (HCons B_DstColor (HCons B_Zero HNil))) 700 []
701 RGB_IdentityLighting 701 (ST_Map "textures/gothic_door/skullarch_a")
702 A_Identity 702 True
703 TG_Lightmap 703 D_Lequal
704 [] 704 Nothing
705 ST_Lightmap 705 False
706 True 706 "Tex_3448884269"
707 D_Lequal 707 , StageAttrs
708 Nothing 708 (Just (B_DstColor, B_Zero))
709 False 709 RGB_IdentityLighting
710 "Tex_3226210144" 710 A_Identity
711 : []) 711 TG_Lightmap
712 False) 712 []
713 HNil) 713 ST_Lightmap
714 : HCons 714 True
715 "textures/gothic_door/skull_door_f" 715 D_Lequal
716 (HCons 716 Nothing
717 (CommonAttrs 717 False
718 HNil 718 "Tex_3226210144"]
719 HNil 719 False)
720 False 720 , ("textures/gothic_door/skullarch_b"
721 (fromInt 0) 721 , CommonAttrs
722 False 722 ()
723 False 723 ()
724 CT_FrontSided 724 False
725 [] 725 (fromInt 3)
726 False 726 False
727 False 727 False
728 (StageAttrs 728 CT_FrontSided
729 Nothing 729 []
730 RGB_IdentityLighting 730 False
731 A_Identity 731 False
732 TG_Base 732 [StageAttrs
733 [] 733 Nothing
734 (ST_Map "textures/gothic_door/skull_door_f") 734 RGB_Identity
735 True 735 A_Identity
736 D_Lequal 736 TG_Base
737 Nothing 737 [TM_Scroll 0.0 1.0, TM_Turb 0.0 0.25 0.0 5.6, TM_Scale 1.5 1.5]
738 False 738 (ST_Map "textures/sfx/firegorre.tga")
739 "Tex_4289279309" 739 True
740 : StageAttrs 740 D_Lequal
741 (Just (HCons B_DstColor (HCons B_Zero HNil))) 741 Nothing
742 RGB_IdentityLighting 742 False
743 A_Identity 743 "Tex_3416962274"
744 TG_Lightmap 744 , StageAttrs
745 [] 745 (Just (B_SrcAlpha, B_OneMinusSrcAlpha))
746 ST_Lightmap 746 RGB_Identity
747 True 747 A_Identity
748 D_Lequal 748 TG_Base
749 Nothing 749 []
750 False 750 (ST_Map "textures/gothic_door/skullarch_b.tga")
751 "Tex_3226210144" 751 False
752 : []) 752 D_Lequal
753 False) 753 Nothing
754 HNil) 754 False
755 : HCons 755 "Tex_4077187607"
756 "textures/gothic_door/skullarch_a" 756 , StageAttrs
757 (HCons 757 (Just (B_DstColor, B_Zero))
758 (CommonAttrs 758 RGB_Identity
759 HNil 759 A_Identity
760 HNil 760 TG_Lightmap
761 False 761 []
762 (fromInt 0) 762 ST_Lightmap
763 False 763 False
764 False 764 D_Lequal
765 CT_FrontSided 765 Nothing
766 [] 766 False
767 False 767 "Tex_1196599720"]
768 False 768 False)
769 (StageAttrs 769 , ("textures/gothic_door/skullarch_c"
770 Nothing 770 , CommonAttrs
771 RGB_IdentityLighting 771 ()
772 A_Identity 772 ()
773 TG_Base 773 False
774 [] 774 (fromInt 0)
775 (ST_Map "textures/gothic_door/skullarch_a") 775 False
776 True 776 False
777 D_Lequal 777 CT_FrontSided
778 Nothing 778 []
779 False 779 False
780 "Tex_3448884269" 780 False
781 : StageAttrs 781 [StageAttrs
782 (Just (HCons B_DstColor (HCons B_Zero HNil))) 782 Nothing
783 RGB_IdentityLighting 783 RGB_IdentityLighting
784 A_Identity 784 A_Identity
785 TG_Lightmap 785 TG_Base
786 [] 786 []
787 ST_Lightmap 787 (ST_Map "textures/gothic_door/skullarch_c")
788 True 788 True
789 D_Lequal 789 D_Lequal
790 Nothing 790 Nothing
791 False 791 False
792 "Tex_3226210144" 792 "Tex_2024854890"
793 : []) 793 , StageAttrs
794 False) 794 (Just (B_DstColor, B_Zero))
795 HNil) 795 RGB_IdentityLighting
796 : HCons 796 A_Identity
797 "textures/gothic_door/skullarch_b" 797 TG_Lightmap
798 (HCons 798 []
799 (CommonAttrs 799 ST_Lightmap
800 HNil 800 True
801 HNil 801 D_Lequal
802 False 802 Nothing
803 (fromInt 3) 803 False
804 False 804 "Tex_3226210144"]
805 False 805 False)
806 CT_FrontSided 806 , ("textures/gothic_door/xian_tourneyarch_inside2"
807 [] 807 , CommonAttrs
808 False 808 ()
809 False 809 ()
810 (StageAttrs 810 False
811 Nothing 811 (fromInt 0)
812 RGB_Identity 812 False
813 A_Identity 813 False
814 TG_Base 814 CT_FrontSided
815 (TM_Scroll 0.0 1.0 : TM_Turb 0.0 0.25 0.0 5.6 : TM_Scale 1.5 1.5 : []) 815 []
816 (ST_Map "textures/sfx/firegorre.tga") 816 False
817 True 817 False
818 D_Lequal 818 [StageAttrs
819 Nothing 819 Nothing
820 False 820 RGB_IdentityLighting
821 "Tex_3416962274" 821 A_Identity
822 : StageAttrs 822 TG_Base
823 (Just (HCons B_SrcAlpha (HCons B_OneMinusSrcAlpha HNil))) 823 []
824 RGB_Identity 824 (ST_Map "textures/gothic_door/xian_tourneyarch_inside2")
825 A_Identity 825 True
826 TG_Base 826 D_Lequal
827 [] 827 Nothing
828 (ST_Map "textures/gothic_door/skullarch_b.tga") 828 False
829 False 829 "Tex_1435187472"
830 D_Lequal 830 , StageAttrs
831 Nothing 831 (Just (B_DstColor, B_Zero))
832 False 832 RGB_IdentityLighting
833 "Tex_4077187607" 833 A_Identity
834 : StageAttrs 834 TG_Lightmap
835 (Just (HCons B_DstColor (HCons B_Zero HNil))) 835 []
836 RGB_Identity 836 ST_Lightmap
837 A_Identity 837 True
838 TG_Lightmap 838 D_Lequal
839 [] 839 Nothing
840 ST_Lightmap 840 False
841 False 841 "Tex_3226210144"]
842 D_Lequal 842 False)
843 Nothing 843 , ("textures/gothic_floor/blocks17floor2"
844 False 844 , CommonAttrs
845 "Tex_1196599720" 845 ()
846 : []) 846 ()
847 False) 847 False
848 HNil) 848 (fromInt 0)
849 : HCons 849 False
850 "textures/gothic_door/skullarch_c" 850 False
851 (HCons 851 CT_FrontSided
852 (CommonAttrs 852 []
853 HNil 853 False
854 HNil 854 False
855 False 855 [StageAttrs
856 (fromInt 0) 856 Nothing
857 False 857 RGB_IdentityLighting
858 False 858 A_Identity
859 CT_FrontSided 859 TG_Base
860 [] 860 []
861 False 861 (ST_Map "textures/gothic_floor/blocks17floor2")
862 False 862 True
863 (StageAttrs 863 D_Lequal
864 Nothing 864 Nothing
865 RGB_IdentityLighting 865 False
866 A_Identity 866 "Tex_3814342582"
867 TG_Base 867 , StageAttrs
868 [] 868 (Just (B_DstColor, B_Zero))
869 (ST_Map "textures/gothic_door/skullarch_c") 869 RGB_IdentityLighting
870 True 870 A_Identity
871 D_Lequal 871 TG_Lightmap
872 Nothing 872 []
873 False 873 ST_Lightmap
874 "Tex_2024854890" 874 True
875 : StageAttrs 875 D_Lequal
876 (Just (HCons B_DstColor (HCons B_Zero HNil))) 876 Nothing
877 RGB_IdentityLighting 877 False
878 A_Identity 878 "Tex_3226210144"]
879 TG_Lightmap 879 False)
880 [] 880 , ("textures/gothic_floor/largerblock3b"
881 ST_Lightmap 881 , CommonAttrs
882 True 882 ()
883 D_Lequal 883 ()
884 Nothing 884 False
885 False 885 (fromInt 0)
886 "Tex_3226210144" 886 False
887 : []) 887 False
888 False) 888 CT_FrontSided
889 HNil) 889 []
890 : HCons 890 False
891 "textures/gothic_door/xian_tourneyarch_inside2" 891 False
892 (HCons 892 [StageAttrs
893 (CommonAttrs 893 Nothing
894 HNil 894 RGB_IdentityLighting
895 HNil 895 A_Identity
896 False 896 TG_Base
897 (fromInt 0) 897 []
898 False 898 (ST_Map "textures/gothic_floor/largerblock3b")
899 False 899 True
900 CT_FrontSided 900 D_Lequal
901 [] 901 Nothing
902 False 902 False
903 False 903 "Tex_2966885788"
904 (StageAttrs 904 , StageAttrs
905 Nothing 905 (Just (B_DstColor, B_Zero))
906 RGB_IdentityLighting 906 RGB_IdentityLighting
907 A_Identity 907 A_Identity
908 TG_Base 908 TG_Lightmap
909 [] 909 []
910 (ST_Map "textures/gothic_door/xian_tourneyarch_inside2") 910 ST_Lightmap
911 True 911 True
912 D_Lequal 912 D_Lequal
913 Nothing 913 Nothing
914 False 914 False
915 "Tex_1435187472" 915 "Tex_3226210144"]
916 : StageAttrs 916 False)
917 (Just (HCons B_DstColor (HCons B_Zero HNil))) 917 , ("textures/gothic_floor/metalbridge06"
918 RGB_IdentityLighting 918 , CommonAttrs
919 A_Identity 919 ()
920 TG_Lightmap 920 ()
921 [] 921 False
922 ST_Lightmap 922 (fromInt 0)
923 True 923 False
924 D_Lequal 924 False
925 Nothing 925 CT_FrontSided
926 False 926 []
927 "Tex_3226210144" 927 False
928 : []) 928 False
929 False) 929 [StageAttrs
930 HNil) 930 Nothing
931 : HCons 931 RGB_IdentityLighting
932 "textures/gothic_floor/blocks17floor2" 932 A_Identity
933 (HCons 933 TG_Base
934 (CommonAttrs 934 []
935 HNil 935 (ST_Map "textures/gothic_floor/metalbridge06")
936 HNil 936 True
937 False 937 D_Lequal
938 (fromInt 0) 938 Nothing
939 False 939 False
940 False 940 "Tex_1581337759"
941 CT_FrontSided 941 , StageAttrs
942 [] 942 (Just (B_DstColor, B_Zero))
943 False 943 RGB_IdentityLighting
944 False 944 A_Identity
945 (StageAttrs 945 TG_Lightmap
946 Nothing 946 []
947 RGB_IdentityLighting 947 ST_Lightmap
948 A_Identity 948 True
949 TG_Base 949 D_Lequal
950 [] 950 Nothing
951 (ST_Map "textures/gothic_floor/blocks17floor2") 951 False
952 True 952 "Tex_3226210144"]
953 D_Lequal 953 False)
954 Nothing 954 , ("textures/gothic_floor/metalbridge06broke"
955 False 955 , CommonAttrs
956 "Tex_3814342582" 956 ()
957 : StageAttrs 957 ()
958 (Just (HCons B_DstColor (HCons B_Zero HNil))) 958 False
959 RGB_IdentityLighting 959 (fromInt 0)
960 A_Identity 960 False
961 TG_Lightmap 961 False
962 [] 962 CT_FrontSided
963 ST_Lightmap 963 []
964 True 964 False
965 D_Lequal 965 False
966 Nothing 966 [StageAttrs
967 False 967 Nothing
968 "Tex_3226210144" 968 RGB_IdentityLighting
969 : []) 969 A_Identity
970 False) 970 TG_Base
971 HNil) 971 []
972 : HCons 972 (ST_Map "textures/gothic_floor/metalbridge06broke")
973 "textures/gothic_floor/largerblock3b" 973 True
974 (HCons 974 D_Lequal
975 (CommonAttrs 975 Nothing
976 HNil 976 False
977 HNil 977 "Tex_3921745736"
978 False 978 , StageAttrs
979 (fromInt 0) 979 (Just (B_DstColor, B_Zero))
980 False 980 RGB_IdentityLighting
981 False 981 A_Identity
982 CT_FrontSided 982 TG_Lightmap
983 [] 983 []
984 False 984 ST_Lightmap
985 False 985 True
986 (StageAttrs 986 D_Lequal
987 Nothing 987 Nothing
988 RGB_IdentityLighting 988 False
989 A_Identity 989 "Tex_3226210144"]
990 TG_Base 990 False)
991 [] 991 , ("textures/gothic_floor/xstairtop4"
992 (ST_Map "textures/gothic_floor/largerblock3b") 992 , CommonAttrs
993 True 993 ()
994 D_Lequal 994 ()
995 Nothing 995 False
996 False 996 (fromInt 0)
997 "Tex_2966885788" 997 False
998 : StageAttrs 998 False
999 (Just (HCons B_DstColor (HCons B_Zero HNil))) 999 CT_FrontSided
1000 RGB_IdentityLighting 1000 []
1001 A_Identity 1001 False
1002 TG_Lightmap 1002 False
1003 [] 1003 [StageAttrs
1004 ST_Lightmap 1004 Nothing
1005 True 1005 RGB_IdentityLighting
1006 D_Lequal 1006 A_Identity
1007 Nothing 1007 TG_Base
1008 False 1008 []
1009 "Tex_3226210144" 1009 (ST_Map "textures/gothic_floor/xstairtop4")
1010 : []) 1010 True
1011 False) 1011 D_Lequal
1012 HNil) 1012 Nothing
1013 : HCons 1013 False
1014 "textures/gothic_floor/metalbridge06" 1014 "Tex_3836020895"
1015 (HCons 1015 , StageAttrs
1016 (CommonAttrs 1016 (Just (B_DstColor, B_Zero))
1017 HNil 1017 RGB_IdentityLighting
1018 HNil 1018 A_Identity
1019 False 1019 TG_Lightmap
1020 (fromInt 0) 1020 []
1021 False 1021 ST_Lightmap
1022 False 1022 True
1023 CT_FrontSided 1023 D_Lequal
1024 [] 1024 Nothing
1025 False 1025 False
1026 False 1026 "Tex_3226210144"]
1027 (StageAttrs 1027 False)
1028 Nothing 1028 , ("textures/gothic_floor/xstepborder3"
1029 RGB_IdentityLighting 1029 , CommonAttrs
1030 A_Identity 1030 ()
1031 TG_Base 1031 ()
1032 [] 1032 False
1033 (ST_Map "textures/gothic_floor/metalbridge06") 1033 (fromInt 0)
1034 True 1034 False
1035 D_Lequal 1035 False
1036 Nothing 1036 CT_FrontSided
1037 False 1037 []
1038 "Tex_1581337759" 1038 False
1039 : StageAttrs 1039 False
1040 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1040 [StageAttrs
1041 RGB_IdentityLighting 1041 Nothing
1042 A_Identity 1042 RGB_IdentityLighting
1043 TG_Lightmap 1043 A_Identity
1044 [] 1044 TG_Base
1045 ST_Lightmap 1045 []
1046 True 1046 (ST_Map "textures/gothic_floor/xstepborder3")
1047 D_Lequal 1047 True
1048 Nothing 1048 D_Lequal
1049 False 1049 Nothing
1050 "Tex_3226210144" 1050 False
1051 : []) 1051 "Tex_3269743316"
1052 False) 1052 , StageAttrs
1053 HNil) 1053 (Just (B_DstColor, B_Zero))
1054 : HCons 1054 RGB_IdentityLighting
1055 "textures/gothic_floor/metalbridge06broke" 1055 A_Identity
1056 (HCons 1056 TG_Lightmap
1057 (CommonAttrs 1057 []
1058 HNil 1058 ST_Lightmap
1059 HNil 1059 True
1060 False 1060 D_Lequal
1061 (fromInt 0) 1061 Nothing
1062 False 1062 False
1063 False 1063 "Tex_3226210144"]
1064 CT_FrontSided 1064 False)
1065 [] 1065 , ("textures/gothic_trim/baseboard04"
1066 False 1066 , CommonAttrs
1067 False 1067 ()
1068 (StageAttrs 1068 ()
1069 Nothing 1069 False
1070 RGB_IdentityLighting 1070 (fromInt 0)
1071 A_Identity 1071 False
1072 TG_Base 1072 False
1073 [] 1073 CT_FrontSided
1074 (ST_Map "textures/gothic_floor/metalbridge06broke") 1074 []
1075 True 1075 False
1076 D_Lequal 1076 False
1077 Nothing 1077 [StageAttrs
1078 False 1078 Nothing
1079 "Tex_3921745736" 1079 RGB_IdentityLighting
1080 : StageAttrs 1080 A_Identity
1081 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1081 TG_Base
1082 RGB_IdentityLighting 1082 []
1083 A_Identity 1083 (ST_Map "textures/gothic_trim/baseboard04")
1084 TG_Lightmap 1084 True
1085 [] 1085 D_Lequal
1086 ST_Lightmap 1086 Nothing
1087 True 1087 False
1088 D_Lequal 1088 "Tex_1002517541"
1089 Nothing 1089 , StageAttrs
1090 False 1090 (Just (B_DstColor, B_Zero))
1091 "Tex_3226210144" 1091 RGB_IdentityLighting
1092 : []) 1092 A_Identity
1093 False) 1093 TG_Lightmap
1094 HNil) 1094 []
1095 : HCons 1095 ST_Lightmap
1096 "textures/gothic_floor/xstairtop4" 1096 True
1097 (HCons 1097 D_Lequal
1098 (CommonAttrs 1098 Nothing
1099 HNil 1099 False
1100 HNil 1100 "Tex_3226210144"]
1101 False 1101 False)
1102 (fromInt 0) 1102 , ("textures/gothic_trim/baseboard09_c3"
1103 False 1103 , CommonAttrs
1104 False 1104 ()
1105 CT_FrontSided 1105 ()
1106 [] 1106 False
1107 False 1107 (fromInt 0)
1108 False 1108 False
1109 (StageAttrs 1109 False
1110 Nothing 1110 CT_FrontSided
1111 RGB_IdentityLighting 1111 []
1112 A_Identity 1112 False
1113 TG_Base 1113 False
1114 [] 1114 [StageAttrs
1115 (ST_Map "textures/gothic_floor/xstairtop4") 1115 Nothing
1116 True 1116 RGB_IdentityLighting
1117 D_Lequal 1117 A_Identity
1118 Nothing 1118 TG_Base
1119 False 1119 []
1120 "Tex_3836020895" 1120 (ST_Map "textures/gothic_trim/baseboard09_c3")
1121 : StageAttrs 1121 True
1122 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1122 D_Lequal
1123 RGB_IdentityLighting 1123 Nothing
1124 A_Identity 1124 False
1125 TG_Lightmap 1125 "Tex_2289735512"
1126 [] 1126 , StageAttrs
1127 ST_Lightmap 1127 (Just (B_DstColor, B_Zero))
1128 True 1128 RGB_IdentityLighting
1129 D_Lequal 1129 A_Identity
1130 Nothing 1130 TG_Lightmap
1131 False 1131 []
1132 "Tex_3226210144" 1132 ST_Lightmap
1133 : []) 1133 True
1134 False) 1134 D_Lequal
1135 HNil) 1135 Nothing
1136 : HCons 1136 False
1137 "textures/gothic_floor/xstepborder3" 1137 "Tex_3226210144"]
1138 (HCons 1138 False)
1139 (CommonAttrs 1139 , ("textures/gothic_trim/baseboard09_e"
1140 HNil 1140 , CommonAttrs
1141 HNil 1141 ()
1142 False 1142 ()
1143 (fromInt 0) 1143 False
1144 False 1144 (fromInt 0)
1145 False 1145 False
1146 CT_FrontSided 1146 False
1147 [] 1147 CT_FrontSided
1148 False 1148 []
1149 False 1149 False
1150 (StageAttrs 1150 False
1151 Nothing 1151 [StageAttrs
1152 RGB_IdentityLighting 1152 Nothing
1153 A_Identity 1153 RGB_IdentityLighting
1154 TG_Base 1154 A_Identity
1155 [] 1155 TG_Base
1156 (ST_Map "textures/gothic_floor/xstepborder3") 1156 []
1157 True 1157 (ST_Map "textures/gothic_trim/baseboard09_e")
1158 D_Lequal 1158 True
1159 Nothing 1159 D_Lequal
1160 False 1160 Nothing
1161 "Tex_3269743316" 1161 False
1162 : StageAttrs 1162 "Tex_2367525081"
1163 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1163 , StageAttrs
1164 RGB_IdentityLighting 1164 (Just (B_DstColor, B_Zero))
1165 A_Identity 1165 RGB_IdentityLighting
1166 TG_Lightmap 1166 A_Identity
1167 [] 1167 TG_Lightmap
1168 ST_Lightmap 1168 []
1169 True 1169 ST_Lightmap
1170 D_Lequal 1170 True
1171 Nothing 1171 D_Lequal
1172 False 1172 Nothing
1173 "Tex_3226210144" 1173 False
1174 : []) 1174 "Tex_3226210144"]
1175 False) 1175 False)
1176 HNil) 1176 , ("textures/gothic_trim/baseboard09_e2"
1177 : HCons 1177 , CommonAttrs
1178 "textures/gothic_trim/baseboard04" 1178 ()
1179 (HCons 1179 ()
1180 (CommonAttrs 1180 False
1181 HNil 1181 (fromInt 0)
1182 HNil 1182 False
1183 False 1183 False
1184 (fromInt 0) 1184 CT_FrontSided
1185 False 1185 []
1186 False 1186 False
1187 CT_FrontSided 1187 False
1188 [] 1188 [StageAttrs
1189 False 1189 Nothing
1190 False 1190 RGB_IdentityLighting
1191 (StageAttrs 1191 A_Identity
1192 Nothing 1192 TG_Base
1193 RGB_IdentityLighting 1193 []
1194 A_Identity 1194 (ST_Map "textures/gothic_trim/baseboard09_e2")
1195 TG_Base 1195 True
1196 [] 1196 D_Lequal
1197 (ST_Map "textures/gothic_trim/baseboard04") 1197 Nothing
1198 True 1198 False
1199 D_Lequal 1199 "Tex_3694494180"
1200 Nothing 1200 , StageAttrs
1201 False 1201 (Just (B_DstColor, B_Zero))
1202 "Tex_1002517541" 1202 RGB_IdentityLighting
1203 : StageAttrs 1203 A_Identity
1204 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1204 TG_Lightmap
1205 RGB_IdentityLighting 1205 []
1206 A_Identity 1206 ST_Lightmap
1207 TG_Lightmap 1207 True
1208 [] 1208 D_Lequal
1209 ST_Lightmap 1209 Nothing
1210 True 1210 False
1211 D_Lequal 1211 "Tex_3226210144"]
1212 Nothing 1212 False)
1213 False 1213 , ("textures/gothic_trim/baseboard09_l2"
1214 "Tex_3226210144" 1214 , CommonAttrs
1215 : []) 1215 ()
1216 False) 1216 ()
1217 HNil) 1217 False
1218 : HCons 1218 (fromInt 0)
1219 "textures/gothic_trim/baseboard09_c3" 1219 False
1220 (HCons 1220 False
1221 (CommonAttrs 1221 CT_FrontSided
1222 HNil 1222 []
1223 HNil 1223 False
1224 False 1224 False
1225 (fromInt 0) 1225 [StageAttrs
1226 False 1226 Nothing
1227 False 1227 RGB_IdentityLighting
1228 CT_FrontSided 1228 A_Identity
1229 [] 1229 TG_Base
1230 False 1230 []
1231 False 1231 (ST_Map "textures/gothic_trim/baseboard09_l2")
1232 (StageAttrs 1232 True
1233 Nothing 1233 D_Lequal
1234 RGB_IdentityLighting 1234 Nothing
1235 A_Identity 1235 False
1236 TG_Base 1236 "Tex_3202786139"
1237 [] 1237 , StageAttrs
1238 (ST_Map "textures/gothic_trim/baseboard09_c3") 1238 (Just (B_DstColor, B_Zero))
1239 True 1239 RGB_IdentityLighting
1240 D_Lequal 1240 A_Identity
1241 Nothing 1241 TG_Lightmap
1242 False 1242 []
1243 "Tex_2289735512" 1243 ST_Lightmap
1244 : StageAttrs 1244 True
1245 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1245 D_Lequal
1246 RGB_IdentityLighting 1246 Nothing
1247 A_Identity 1247 False
1248 TG_Lightmap 1248 "Tex_3226210144"]
1249 [] 1249 False)
1250 ST_Lightmap 1250 , ("textures/gothic_trim/baseboard09_o3"
1251 True 1251 , CommonAttrs
1252 D_Lequal 1252 ()
1253 Nothing 1253 ()
1254 False 1254 False
1255 "Tex_3226210144" 1255 (fromInt 0)
1256 : []) 1256 False
1257 False) 1257 False
1258 HNil) 1258 CT_FrontSided
1259 : HCons 1259 []
1260 "textures/gothic_trim/baseboard09_e" 1260 False
1261 (HCons 1261 False
1262 (CommonAttrs 1262 [StageAttrs
1263 HNil 1263 Nothing
1264 HNil 1264 RGB_IdentityLighting
1265 False 1265 A_Identity
1266 (fromInt 0) 1266 TG_Base
1267 False 1267 []
1268 False 1268 (ST_Map "textures/gothic_trim/baseboard09_o3")
1269 CT_FrontSided 1269 True
1270 [] 1270 D_Lequal
1271 False 1271 Nothing
1272 False 1272 False
1273 (StageAttrs 1273 "Tex_2512757607"
1274 Nothing 1274 , StageAttrs
1275 RGB_IdentityLighting 1275 (Just (B_DstColor, B_Zero))
1276 A_Identity 1276 RGB_IdentityLighting
1277 TG_Base 1277 A_Identity
1278 [] 1278 TG_Lightmap
1279 (ST_Map "textures/gothic_trim/baseboard09_e") 1279 []
1280 True 1280 ST_Lightmap
1281 D_Lequal 1281 True
1282 Nothing 1282 D_Lequal
1283 False 1283 Nothing
1284 "Tex_2367525081" 1284 False
1285 : StageAttrs 1285 "Tex_3226210144"]
1286 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1286 False)
1287 RGB_IdentityLighting 1287 , ("textures/gothic_trim/km_arena1tower4"
1288 A_Identity 1288 , CommonAttrs
1289 TG_Lightmap 1289 ()
1290 [] 1290 ()
1291 ST_Lightmap 1291 False
1292 True 1292 (fromInt 0)
1293 D_Lequal 1293 False
1294 Nothing 1294 False
1295 False 1295 CT_FrontSided
1296 "Tex_3226210144" 1296 []
1297 : []) 1297 False
1298 False) 1298 False
1299 HNil) 1299 [StageAttrs
1300 : HCons 1300 Nothing
1301 "textures/gothic_trim/baseboard09_e2" 1301 RGB_IdentityLighting
1302 (HCons 1302 A_Identity
1303 (CommonAttrs 1303 TG_Base
1304 HNil 1304 []
1305 HNil 1305 (ST_Map "textures/gothic_trim/km_arena1tower4")
1306 False 1306 True
1307 (fromInt 0) 1307 D_Lequal
1308 False 1308 Nothing
1309 False 1309 False
1310 CT_FrontSided 1310 "Tex_3479185666"
1311 [] 1311 , StageAttrs
1312 False 1312 (Just (B_DstColor, B_Zero))
1313 False 1313 RGB_IdentityLighting
1314 (StageAttrs 1314 A_Identity
1315 Nothing 1315 TG_Lightmap
1316 RGB_IdentityLighting 1316 []
1317 A_Identity 1317 ST_Lightmap
1318 TG_Base 1318 True
1319 [] 1319 D_Lequal
1320 (ST_Map "textures/gothic_trim/baseboard09_e2") 1320 Nothing
1321 True 1321 False
1322 D_Lequal 1322 "Tex_3226210144"]
1323 Nothing 1323 False)
1324 False 1324 , ("textures/gothic_trim/km_arena1tower4_a"
1325 "Tex_3694494180" 1325 , CommonAttrs
1326 : StageAttrs 1326 ()
1327 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1327 ()
1328 RGB_IdentityLighting 1328 False
1329 A_Identity 1329 (fromInt 0)
1330 TG_Lightmap 1330 False
1331 [] 1331 False
1332 ST_Lightmap 1332 CT_FrontSided
1333 True 1333 []
1334 D_Lequal 1334 False
1335 Nothing 1335 False
1336 False 1336 [StageAttrs
1337 "Tex_3226210144" 1337 Nothing
1338 : []) 1338 RGB_IdentityLighting
1339 False) 1339 A_Identity
1340 HNil) 1340 TG_Base
1341 : HCons 1341 []
1342 "textures/gothic_trim/baseboard09_l2" 1342 (ST_Map "textures/gothic_trim/km_arena1tower4_a")
1343 (HCons 1343 True
1344 (CommonAttrs 1344 D_Lequal
1345 HNil 1345 Nothing
1346 HNil 1346 False
1347 False 1347 "Tex_3012001075"
1348 (fromInt 0) 1348 , StageAttrs
1349 False 1349 (Just (B_DstColor, B_Zero))
1350 False 1350 RGB_IdentityLighting
1351 CT_FrontSided 1351 A_Identity
1352 [] 1352 TG_Lightmap
1353 False 1353 []
1354 False 1354 ST_Lightmap
1355 (StageAttrs 1355 True
1356 Nothing 1356 D_Lequal
1357 RGB_IdentityLighting 1357 Nothing
1358 A_Identity 1358 False
1359 TG_Base 1359 "Tex_3226210144"]
1360 [] 1360 False)
1361 (ST_Map "textures/gothic_trim/baseboard09_l2") 1361 , ("textures/gothic_trim/metaldemonkillblock"
1362 True 1362 , CommonAttrs
1363 D_Lequal 1363 ()
1364 Nothing 1364 ()
1365 False 1365 False
1366 "Tex_3202786139" 1366 (fromInt 0)
1367 : StageAttrs 1367 False
1368 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1368 False
1369 RGB_IdentityLighting 1369 CT_FrontSided
1370 A_Identity 1370 []
1371 TG_Lightmap 1371 False
1372 [] 1372 False
1373 ST_Lightmap 1373 [StageAttrs
1374 True 1374 Nothing
1375 D_Lequal 1375 RGB_IdentityLighting
1376 Nothing 1376 A_Identity
1377 False 1377 TG_Base
1378 "Tex_3226210144" 1378 []
1379 : []) 1379 (ST_Map "textures/gothic_trim/metaldemonkillblock")
1380 False) 1380 True
1381 HNil) 1381 D_Lequal
1382 : HCons 1382 Nothing
1383 "textures/gothic_trim/baseboard09_o3" 1383 False
1384 (HCons 1384 "Tex_1062467595"
1385 (CommonAttrs 1385 , StageAttrs
1386 HNil 1386 (Just (B_DstColor, B_Zero))
1387 HNil 1387 RGB_IdentityLighting
1388 False 1388 A_Identity
1389 (fromInt 0) 1389 TG_Lightmap
1390 False 1390 []
1391 False 1391 ST_Lightmap
1392 CT_FrontSided 1392 True
1393 [] 1393 D_Lequal
1394 False 1394 Nothing
1395 False 1395 False
1396 (StageAttrs 1396 "Tex_3226210144"]
1397 Nothing 1397 False)
1398 RGB_IdentityLighting 1398 , ("textures/gothic_trim/metalsupport4b"
1399 A_Identity 1399 , CommonAttrs
1400 TG_Base 1400 ()
1401 [] 1401 ()
1402 (ST_Map "textures/gothic_trim/baseboard09_o3") 1402 False
1403 True 1403 (fromInt 0)
1404 D_Lequal 1404 False
1405 Nothing 1405 False
1406 False 1406 CT_FrontSided
1407 "Tex_2512757607" 1407 []
1408 : StageAttrs 1408 False
1409 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1409 False
1410 RGB_IdentityLighting 1410 [StageAttrs
1411 A_Identity 1411 Nothing
1412 TG_Lightmap 1412 RGB_IdentityLighting
1413 [] 1413 A_Identity
1414 ST_Lightmap 1414 TG_Base
1415 True 1415 []
1416 D_Lequal 1416 (ST_Map "textures/gothic_trim/metalsupport4b")
1417 Nothing 1417 True
1418 False 1418 D_Lequal
1419 "Tex_3226210144" 1419 Nothing
1420 : []) 1420 False
1421 False) 1421 "Tex_3593923076"
1422 HNil) 1422 , StageAttrs
1423 : HCons 1423 (Just (B_DstColor, B_Zero))
1424 "textures/gothic_trim/km_arena1tower4" 1424 RGB_IdentityLighting
1425 (HCons 1425 A_Identity
1426 (CommonAttrs 1426 TG_Lightmap
1427 HNil 1427 []
1428 HNil 1428 ST_Lightmap
1429 False 1429 True
1430 (fromInt 0) 1430 D_Lequal
1431 False 1431 Nothing
1432 False 1432 False
1433 CT_FrontSided 1433 "Tex_3226210144"]
1434 [] 1434 False)
1435 False 1435 , ("textures/gothic_trim/metalsupsolid"
1436 False 1436 , CommonAttrs
1437 (StageAttrs 1437 ()
1438 Nothing 1438 ()
1439 RGB_IdentityLighting 1439 False
1440 A_Identity 1440 (fromInt 0)
1441 TG_Base 1441 False
1442 [] 1442 False
1443 (ST_Map "textures/gothic_trim/km_arena1tower4") 1443 CT_FrontSided
1444 True 1444 []
1445 D_Lequal 1445 False
1446 Nothing 1446 False
1447 False 1447 [StageAttrs
1448 "Tex_3479185666" 1448 Nothing
1449 : StageAttrs 1449 RGB_IdentityLighting
1450 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1450 A_Identity
1451 RGB_IdentityLighting 1451 TG_Base
1452 A_Identity 1452 []
1453 TG_Lightmap 1453 (ST_Map "textures/gothic_trim/metalsupsolid")
1454 [] 1454 True
1455 ST_Lightmap 1455 D_Lequal
1456 True 1456 Nothing
1457 D_Lequal 1457 False
1458 Nothing 1458 "Tex_2893650486"
1459 False 1459 , StageAttrs
1460 "Tex_3226210144" 1460 (Just (B_DstColor, B_Zero))
1461 : []) 1461 RGB_IdentityLighting
1462 False) 1462 A_Identity
1463 HNil) 1463 TG_Lightmap
1464 : HCons 1464 []
1465 "textures/gothic_trim/km_arena1tower4_a" 1465 ST_Lightmap
1466 (HCons 1466 True
1467 (CommonAttrs 1467 D_Lequal
1468 HNil 1468 Nothing
1469 HNil 1469 False
1470 False 1470 "Tex_3226210144"]
1471 (fromInt 0) 1471 False)
1472 False 1472 , ("textures/gothic_trim/pitted_rust"
1473 False 1473 , CommonAttrs
1474 CT_FrontSided 1474 ()
1475 [] 1475 ()
1476 False 1476 False
1477 False 1477 (fromInt 0)
1478 (StageAttrs 1478 False
1479 Nothing 1479 False
1480 RGB_IdentityLighting 1480 CT_FrontSided
1481 A_Identity 1481 []
1482 TG_Base 1482 False
1483 [] 1483 False
1484 (ST_Map "textures/gothic_trim/km_arena1tower4_a") 1484 [StageAttrs
1485 True 1485 Nothing
1486 D_Lequal 1486 RGB_IdentityLighting
1487 Nothing 1487 A_Identity
1488 False 1488 TG_Base
1489 "Tex_3012001075" 1489 []
1490 : StageAttrs 1490 (ST_Map "textures/gothic_trim/pitted_rust")
1491 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1491 True
1492 RGB_IdentityLighting 1492 D_Lequal
1493 A_Identity 1493 Nothing
1494 TG_Lightmap 1494 False
1495 [] 1495 "Tex_1243894392"
1496 ST_Lightmap 1496 , StageAttrs
1497 True 1497 (Just (B_DstColor, B_Zero))
1498 D_Lequal 1498 RGB_IdentityLighting
1499 Nothing 1499 A_Identity
1500 False 1500 TG_Lightmap
1501 "Tex_3226210144" 1501 []
1502 : []) 1502 ST_Lightmap
1503 False) 1503 True
1504 HNil) 1504 D_Lequal
1505 : HCons 1505 Nothing
1506 "textures/gothic_trim/metaldemonkillblock" 1506 False
1507 (HCons 1507 "Tex_3226210144"]
1508 (CommonAttrs 1508 False)
1509 HNil 1509 , ("textures/gothic_trim/pitted_rust2"
1510 HNil 1510 , CommonAttrs
1511 False 1511 ()
1512 (fromInt 0) 1512 ()
1513 False 1513 False
1514 False 1514 (fromInt 0)
1515 CT_FrontSided 1515 False
1516 [] 1516 False
1517 False 1517 CT_FrontSided
1518 False 1518 []
1519 (StageAttrs 1519 False
1520 Nothing 1520 False
1521 RGB_IdentityLighting 1521 [StageAttrs
1522 A_Identity 1522 Nothing
1523 TG_Base 1523 RGB_IdentityLighting
1524 [] 1524 A_Identity
1525 (ST_Map "textures/gothic_trim/metaldemonkillblock") 1525 TG_Base
1526 True 1526 []
1527 D_Lequal 1527 (ST_Map "textures/gothic_trim/pitted_rust2")
1528 Nothing 1528 True
1529 False 1529 D_Lequal
1530 "Tex_1062467595" 1530 Nothing
1531 : StageAttrs 1531 False
1532 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1532 "Tex_2099456856"
1533 RGB_IdentityLighting 1533 , StageAttrs
1534 A_Identity 1534 (Just (B_DstColor, B_Zero))
1535 TG_Lightmap 1535 RGB_IdentityLighting
1536 [] 1536 A_Identity
1537 ST_Lightmap 1537 TG_Lightmap
1538 True 1538 []
1539 D_Lequal 1539 ST_Lightmap
1540 Nothing 1540 True
1541 False 1541 D_Lequal
1542 "Tex_3226210144" 1542 Nothing
1543 : []) 1543 False
1544 False) 1544 "Tex_3226210144"]
1545 HNil) 1545 False)
1546 : HCons 1546 , ("textures/gothic_trim/pitted_rust2_trans"
1547 "textures/gothic_trim/metalsupport4b" 1547 , CommonAttrs
1548 (HCons 1548 ()
1549 (CommonAttrs 1549 ()
1550 HNil 1550 False
1551 HNil 1551 (fromInt 3)
1552 False 1552 False
1553 (fromInt 0) 1553 False
1554 False 1554 CT_FrontSided
1555 False 1555 []
1556 CT_FrontSided 1556 False
1557 [] 1557 False
1558 False 1558 [StageAttrs
1559 False 1559 Nothing
1560 (StageAttrs 1560 RGB_Identity
1561 Nothing 1561 A_Identity
1562 RGB_IdentityLighting 1562 TG_Lightmap
1563 A_Identity 1563 []
1564 TG_Base 1564 ST_Lightmap
1565 [] 1565 True
1566 (ST_Map "textures/gothic_trim/metalsupport4b") 1566 D_Lequal
1567 True 1567 Nothing
1568 D_Lequal 1568 False
1569 Nothing 1569 "Tex_511571587"
1570 False 1570 , StageAttrs
1571 "Tex_3593923076" 1571 (Just (B_DstColor, B_Zero))
1572 : StageAttrs 1572 RGB_Identity
1573 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1573 A_Identity
1574 RGB_IdentityLighting 1574 TG_Base
1575 A_Identity 1575 []
1576 TG_Lightmap 1576 (ST_Map "textures/gothic_trim/pitted_rust2.tga")
1577 [] 1577 False
1578 ST_Lightmap 1578 D_Lequal
1579 True 1579 Nothing
1580 D_Lequal 1580 False
1581 Nothing 1581 "Tex_1910997598"]
1582 False 1582 False)
1583 "Tex_3226210144" 1583 , ("textures/gothic_trim/pitted_rust3"
1584 : []) 1584 , CommonAttrs
1585 False) 1585 ()
1586 HNil) 1586 ()
1587 : HCons 1587 False
1588 "textures/gothic_trim/metalsupsolid" 1588 (fromInt 0)
1589 (HCons 1589 False
1590 (CommonAttrs 1590 False
1591 HNil 1591 CT_FrontSided
1592 HNil 1592 []
1593 False 1593 False
1594 (fromInt 0) 1594 False
1595 False 1595 [StageAttrs
1596 False 1596 Nothing
1597 CT_FrontSided 1597 RGB_IdentityLighting
1598 [] 1598 A_Identity
1599 False 1599 TG_Base
1600 False 1600 []
1601 (StageAttrs 1601 (ST_Map "textures/gothic_trim/pitted_rust3")
1602 Nothing 1602 True
1603 RGB_IdentityLighting 1603 D_Lequal
1604 A_Identity 1604 Nothing
1605 TG_Base 1605 False
1606 [] 1606 "Tex_3389727963"
1607 (ST_Map "textures/gothic_trim/metalsupsolid") 1607 , StageAttrs
1608 True 1608 (Just (B_DstColor, B_Zero))
1609 D_Lequal 1609 RGB_IdentityLighting
1610 Nothing 1610 A_Identity
1611 False 1611 TG_Lightmap
1612 "Tex_2893650486" 1612 []
1613 : StageAttrs 1613 ST_Lightmap
1614 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1614 True
1615 RGB_IdentityLighting 1615 D_Lequal
1616 A_Identity 1616 Nothing
1617 TG_Lightmap 1617 False
1618 [] 1618 "Tex_3226210144"]
1619 ST_Lightmap 1619 False)
1620 True 1620 , ("textures/gothic_trim/skullsvertgray02b"
1621 D_Lequal 1621 , CommonAttrs
1622 Nothing 1622 ()
1623 False 1623 ()
1624 "Tex_3226210144" 1624 False
1625 : []) 1625 (fromInt 0)
1626 False) 1626 False
1627 HNil) 1627 False
1628 : HCons 1628 CT_FrontSided
1629 "textures/gothic_trim/pitted_rust" 1629 []
1630 (HCons 1630 False
1631 (CommonAttrs 1631 False
1632 HNil 1632 [StageAttrs
1633 HNil 1633 Nothing
1634 False 1634 RGB_IdentityLighting
1635 (fromInt 0) 1635 A_Identity
1636 False 1636 TG_Base
1637 False 1637 []
1638 CT_FrontSided 1638 (ST_Map "textures/gothic_trim/skullsvertgray02b")
1639 [] 1639 True
1640 False 1640 D_Lequal
1641 False 1641 Nothing
1642 (StageAttrs 1642 False
1643 Nothing 1643 "Tex_2634868983"
1644 RGB_IdentityLighting 1644 , StageAttrs
1645 A_Identity 1645 (Just (B_DstColor, B_Zero))
1646 TG_Base 1646 RGB_IdentityLighting
1647 [] 1647 A_Identity
1648 (ST_Map "textures/gothic_trim/pitted_rust") 1648 TG_Lightmap
1649 True 1649 []
1650 D_Lequal 1650 ST_Lightmap
1651 Nothing 1651 True
1652 False 1652 D_Lequal
1653 "Tex_1243894392" 1653 Nothing
1654 : StageAttrs 1654 False
1655 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1655 "Tex_3226210144"]
1656 RGB_IdentityLighting 1656 False)
1657 A_Identity 1657 , ("textures/gothic_wall/iron01_e"
1658 TG_Lightmap 1658 , CommonAttrs
1659 [] 1659 ()
1660 ST_Lightmap 1660 ()
1661 True 1661 False
1662 D_Lequal 1662 (fromInt 0)
1663 Nothing 1663 False
1664 False 1664 False
1665 "Tex_3226210144" 1665 CT_FrontSided
1666 : []) 1666 []
1667 False) 1667 False
1668 HNil) 1668 False
1669 : HCons 1669 [StageAttrs
1670 "textures/gothic_trim/pitted_rust2" 1670 Nothing
1671 (HCons 1671 RGB_IdentityLighting
1672 (CommonAttrs 1672 A_Identity
1673 HNil 1673 TG_Base
1674 HNil 1674 []
1675 False 1675 (ST_Map "textures/gothic_wall/iron01_e")
1676 (fromInt 0) 1676 True
1677 False 1677 D_Lequal
1678 False 1678 Nothing
1679 CT_FrontSided 1679 False
1680 [] 1680 "Tex_2432583247"
1681 False 1681 , StageAttrs
1682 False 1682 (Just (B_DstColor, B_Zero))
1683 (StageAttrs 1683 RGB_IdentityLighting
1684 Nothing 1684 A_Identity
1685 RGB_IdentityLighting 1685 TG_Lightmap
1686 A_Identity 1686 []
1687 TG_Base 1687 ST_Lightmap
1688 [] 1688 True
1689 (ST_Map "textures/gothic_trim/pitted_rust2") 1689 D_Lequal
1690 True 1690 Nothing
1691 D_Lequal 1691 False
1692 Nothing 1692 "Tex_3226210144"]
1693 False 1693 False)
1694 "Tex_2099456856" 1694 , ("textures/gothic_wall/iron01_ntech3"
1695 : StageAttrs 1695 , CommonAttrs
1696 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1696 ()
1697 RGB_IdentityLighting 1697 ()
1698 A_Identity 1698 False
1699 TG_Lightmap 1699 (fromInt 0)
1700 [] 1700 False
1701 ST_Lightmap 1701 False
1702 True 1702 CT_FrontSided
1703 D_Lequal 1703 []
1704 Nothing 1704 False
1705 False 1705 False
1706 "Tex_3226210144" 1706 [StageAttrs
1707 : []) 1707 Nothing
1708 False) 1708 RGB_IdentityLighting
1709 HNil) 1709 A_Identity
1710 : HCons 1710 TG_Base
1711 "textures/gothic_trim/pitted_rust2_trans" 1711 []
1712 (HCons 1712 (ST_Map "textures/gothic_wall/iron01_ntech3")
1713 (CommonAttrs 1713 True
1714 HNil 1714 D_Lequal
1715 HNil 1715 Nothing
1716 False 1716 False
1717 (fromInt 3) 1717 "Tex_442868841"
1718 False 1718 , StageAttrs
1719 False 1719 (Just (B_DstColor, B_Zero))
1720 CT_FrontSided 1720 RGB_IdentityLighting
1721 [] 1721 A_Identity
1722 False 1722 TG_Lightmap
1723 False 1723 []
1724 (StageAttrs 1724 ST_Lightmap
1725 Nothing 1725 True
1726 RGB_Identity 1726 D_Lequal
1727 A_Identity 1727 Nothing
1728 TG_Lightmap 1728 False
1729 [] 1729 "Tex_3226210144"]
1730 ST_Lightmap 1730 False)
1731 True 1731 , ("textures/gothic_wall/skull4"
1732 D_Lequal 1732 , CommonAttrs
1733 Nothing 1733 ()
1734 False 1734 ()
1735 "Tex_511571587" 1735 False
1736 : StageAttrs 1736 (fromInt 0)
1737 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1737 False
1738 RGB_Identity 1738 False
1739 A_Identity 1739 CT_FrontSided
1740 TG_Base 1740 []
1741 [] 1741 False
1742 (ST_Map "textures/gothic_trim/pitted_rust2.tga") 1742 False
1743 False 1743 [StageAttrs
1744 D_Lequal 1744 Nothing
1745 Nothing 1745 RGB_IdentityLighting
1746 False 1746 A_Identity
1747 "Tex_1910997598" 1747 TG_Base
1748 : []) 1748 []
1749 False) 1749 (ST_Map "textures/gothic_wall/skull4")
1750 HNil) 1750 True
1751 : HCons 1751 D_Lequal
1752 "textures/gothic_trim/pitted_rust3" 1752 Nothing
1753 (HCons 1753 False
1754 (CommonAttrs 1754 "Tex_2239853403"
1755 HNil 1755 , StageAttrs
1756 HNil 1756 (Just (B_DstColor, B_Zero))
1757 False 1757 RGB_IdentityLighting
1758 (fromInt 0) 1758 A_Identity
1759 False 1759 TG_Lightmap
1760 False 1760 []
1761 CT_FrontSided 1761 ST_Lightmap
1762 [] 1762 True
1763 False 1763 D_Lequal
1764 False 1764 Nothing
1765 (StageAttrs 1765 False
1766 Nothing 1766 "Tex_3226210144"]
1767 RGB_IdentityLighting 1767 False)
1768 A_Identity 1768 , ("textures/gothic_wall/slateroofc"
1769 TG_Base 1769 , CommonAttrs
1770 [] 1770 ()
1771 (ST_Map "textures/gothic_trim/pitted_rust3") 1771 ()
1772 True 1772 False
1773 D_Lequal 1773 (fromInt 0)
1774 Nothing 1774 False
1775 False 1775 False
1776 "Tex_3389727963" 1776 CT_FrontSided
1777 : StageAttrs 1777 []
1778 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1778 False
1779 RGB_IdentityLighting 1779 False
1780 A_Identity 1780 [StageAttrs
1781 TG_Lightmap 1781 Nothing
1782 [] 1782 RGB_IdentityLighting
1783 ST_Lightmap 1783 A_Identity
1784 True 1784 TG_Base
1785 D_Lequal 1785 []
1786 Nothing 1786 (ST_Map "textures/gothic_wall/slateroofc")
1787 False 1787 True
1788 "Tex_3226210144" 1788 D_Lequal
1789 : []) 1789 Nothing
1790 False) 1790 False
1791 HNil) 1791 "Tex_2490648334"
1792 : HCons 1792 , StageAttrs
1793 "textures/gothic_trim/skullsvertgray02b" 1793 (Just (B_DstColor, B_Zero))
1794 (HCons 1794 RGB_IdentityLighting
1795 (CommonAttrs 1795 A_Identity
1796 HNil 1796 TG_Lightmap
1797 HNil 1797 []
1798 False 1798 ST_Lightmap
1799 (fromInt 0) 1799 True
1800 False 1800 D_Lequal
1801 False 1801 Nothing
1802 CT_FrontSided 1802 False
1803 [] 1803 "Tex_3226210144"]
1804 False 1804 False)
1805 False 1805 , ("textures/gothic_wall/supportborder_blue_b"
1806 (StageAttrs 1806 , CommonAttrs
1807 Nothing 1807 ()
1808 RGB_IdentityLighting 1808 ()
1809 A_Identity 1809 False
1810 TG_Base 1810 (fromInt 0)
1811 [] 1811 False
1812 (ST_Map "textures/gothic_trim/skullsvertgray02b") 1812 False
1813 True 1813 CT_FrontSided
1814 D_Lequal 1814 []
1815 Nothing 1815 False
1816 False 1816 False
1817 "Tex_2634868983" 1817 [StageAttrs
1818 : StageAttrs 1818 Nothing
1819 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1819 RGB_IdentityLighting
1820 RGB_IdentityLighting 1820 A_Identity
1821 A_Identity 1821 TG_Base
1822 TG_Lightmap 1822 []
1823 [] 1823 (ST_Map "textures/gothic_wall/supportborder_blue_b")
1824 ST_Lightmap 1824 True
1825 True 1825 D_Lequal
1826 D_Lequal 1826 Nothing
1827 Nothing 1827 False
1828 False 1828 "Tex_564811775"
1829 "Tex_3226210144" 1829 , StageAttrs
1830 : []) 1830 (Just (B_DstColor, B_Zero))
1831 False) 1831 RGB_IdentityLighting
1832 HNil) 1832 A_Identity
1833 : HCons 1833 TG_Lightmap
1834 "textures/gothic_wall/iron01_e" 1834 []
1835 (HCons 1835 ST_Lightmap
1836 (CommonAttrs 1836 True
1837 HNil 1837 D_Lequal
1838 HNil 1838 Nothing
1839 False 1839 False
1840 (fromInt 0) 1840 "Tex_3226210144"]
1841 False 1841 False)
1842 False 1842 , ("textures/gothic_wall/supportborder_blue_c"
1843 CT_FrontSided 1843 , CommonAttrs
1844 [] 1844 ()
1845 False 1845 ()
1846 False 1846 False
1847 (StageAttrs 1847 (fromInt 0)
1848 Nothing 1848 False
1849 RGB_IdentityLighting 1849 False
1850 A_Identity 1850 CT_FrontSided
1851 TG_Base 1851 []
1852 [] 1852 False
1853 (ST_Map "textures/gothic_wall/iron01_e") 1853 False
1854 True 1854 [StageAttrs
1855 D_Lequal 1855 Nothing
1856 Nothing 1856 RGB_IdentityLighting
1857 False 1857 A_Identity
1858 "Tex_2432583247" 1858 TG_Base
1859 : StageAttrs 1859 []
1860 (Just (HCons B_DstColor (HCons B_Zero HNil))) 1860 (ST_Map "textures/gothic_wall/supportborder_blue_c")
1861 RGB_IdentityLighting 1861 True
1862 A_Identity 1862 D_Lequal
1863 TG_Lightmap 1863 Nothing
1864 [] 1864 False
1865 ST_Lightmap 1865 "Tex_2525124732"
1866 True 1866 , StageAttrs
1867 D_Lequal 1867 (Just (B_DstColor, B_Zero))
1868 Nothing 1868 RGB_IdentityLighting
1869 False 1869 A_Identity
1870 "Tex_3226210144" 1870 TG_Lightmap
1871 : []) 1871 []
1872 False) 1872 ST_Lightmap
1873 HNil) 1873 True
1874 : HCons 1874 D_Lequal
1875 "textures/gothic_wall/iron01_ntech3" 1875 Nothing
1876 (HCons 1876 False
1877 (CommonAttrs 1877 "Tex_3226210144"]
1878 HNil 1878 False)]
1879 HNil
1880 False
1881 (fromInt 0)
1882 False
1883 False
1884 CT_FrontSided
1885 []
1886 False
1887 False
1888 (StageAttrs
1889 Nothing
1890 RGB_IdentityLighting
1891 A_Identity
1892 TG_Base
1893 []
1894 (ST_Map "textures/gothic_wall/iron01_ntech3")
1895 True
1896 D_Lequal
1897 Nothing
1898 False
1899 "Tex_442868841"
1900 : StageAttrs
1901 (Just (HCons B_DstColor (HCons B_Zero HNil)))
1902 RGB_IdentityLighting
1903 A_Identity
1904 TG_Lightmap
1905 []
1906 ST_Lightmap
1907 True
1908 D_Lequal
1909 Nothing
1910 False
1911 "Tex_3226210144"
1912 : [])
1913 False)
1914 HNil)
1915 : HCons
1916 "textures/gothic_wall/skull4"
1917 (HCons
1918 (CommonAttrs
1919 HNil
1920 HNil
1921 False
1922 (fromInt 0)
1923 False
1924 False
1925 CT_FrontSided
1926 []
1927 False
1928 False
1929 (StageAttrs
1930 Nothing
1931 RGB_IdentityLighting
1932 A_Identity
1933 TG_Base
1934 []
1935 (ST_Map "textures/gothic_wall/skull4")
1936 True
1937 D_Lequal
1938 Nothing
1939 False
1940 "Tex_2239853403"
1941 : StageAttrs
1942 (Just (HCons B_DstColor (HCons B_Zero HNil)))
1943 RGB_IdentityLighting
1944 A_Identity
1945 TG_Lightmap
1946 []
1947 ST_Lightmap
1948 True
1949 D_Lequal
1950 Nothing
1951 False
1952 "Tex_3226210144"
1953 : [])
1954 False)
1955 HNil)
1956 : HCons
1957 "textures/gothic_wall/slateroofc"
1958 (HCons
1959 (CommonAttrs
1960 HNil
1961 HNil
1962 False
1963 (fromInt 0)
1964 False
1965 False
1966 CT_FrontSided
1967 []
1968 False
1969 False
1970 (StageAttrs
1971 Nothing
1972 RGB_IdentityLighting
1973 A_Identity
1974 TG_Base
1975 []
1976 (ST_Map "textures/gothic_wall/slateroofc")
1977 True
1978 D_Lequal
1979 Nothing
1980 False
1981 "Tex_2490648334"
1982 : StageAttrs
1983 (Just (HCons B_DstColor (HCons B_Zero HNil)))
1984 RGB_IdentityLighting
1985 A_Identity
1986 TG_Lightmap
1987 []
1988 ST_Lightmap
1989 True
1990 D_Lequal
1991 Nothing
1992 False
1993 "Tex_3226210144"
1994 : [])
1995 False)
1996 HNil)
1997 : HCons
1998 "textures/gothic_wall/supportborder_blue_b"
1999 (HCons
2000 (CommonAttrs
2001 HNil
2002 HNil
2003 False
2004 (fromInt 0)
2005 False
2006 False
2007 CT_FrontSided
2008 []
2009 False
2010 False
2011 (StageAttrs
2012 Nothing
2013 RGB_IdentityLighting
2014 A_Identity
2015 TG_Base
2016 []
2017 (ST_Map "textures/gothic_wall/supportborder_blue_b")
2018 True
2019 D_Lequal
2020 Nothing
2021 False
2022 "Tex_564811775"
2023 : StageAttrs
2024 (Just (HCons B_DstColor (HCons B_Zero HNil)))
2025 RGB_IdentityLighting
2026 A_Identity
2027 TG_Lightmap
2028 []
2029 ST_Lightmap
2030 True
2031 D_Lequal
2032 Nothing
2033 False
2034 "Tex_3226210144"
2035 : [])
2036 False)
2037 HNil)
2038 : HCons
2039 "textures/gothic_wall/supportborder_blue_c"
2040 (HCons
2041 (CommonAttrs
2042 HNil
2043 HNil
2044 False
2045 (fromInt 0)
2046 False
2047 False
2048 CT_FrontSided
2049 []
2050 False
2051 False
2052 (StageAttrs
2053 Nothing
2054 RGB_IdentityLighting
2055 A_Identity
2056 TG_Base
2057 []
2058 (ST_Map "textures/gothic_wall/supportborder_blue_c")
2059 True
2060 D_Lequal
2061 Nothing
2062 False
2063 "Tex_2525124732"
2064 : StageAttrs
2065 (Just (HCons B_DstColor (HCons B_Zero HNil)))
2066 RGB_IdentityLighting
2067 A_Identity
2068 TG_Lightmap
2069 []
2070 ST_Lightmap
2071 True
2072 D_Lequal
2073 Nothing
2074 False
2075 "Tex_3226210144"
2076 : [])
2077 False)
2078 HNil)
2079 : [])
2080------------ trace 1879------------ trace
2081sampleMaterial :: [(String, CommonAttrs)] 1880sampleMaterial :: [(String, CommonAttrs)]
2082------------ tooltips 1881------------ tooltips
diff --git a/testdata/record01.reject.out b/testdata/record01.reject.out
index 2f8fb3af..2eb0b0eb 100644
--- a/testdata/record01.reject.out
+++ b/testdata/record01.reject.out
@@ -1,17 +1,15 @@
1type error: can not unify 1type error: can not unify
2'FrameBuffer _b _a 2 FrameBuffer _b _a
3with 3with
4'Float 4 Float
5
6in testdata/record01.reject.lc:26:15: 5in testdata/record01.reject.lc:26:15:
7 in ScreenOut record.fieldA 6 in ScreenOut record.fieldA
8 ^^^^^^ 7 ^^^^^^
9------------ trace 8------------ trace
10!type error: can not unify 9!type error: can not unify
11'FrameBuffer _b _a 10 FrameBuffer _b _a
12with 11with
13'Float 12 Float
14
15in testdata/record01.reject.lc:26:15: 13in testdata/record01.reject.lc:26:15:
16 in ScreenOut record.fieldA 14 in ScreenOut record.fieldA
17 ^^^^^^ 15 ^^^^^^
@@ -170,7 +168,7 @@ testdata/record01.reject.lc 8:23-8:75
170 Type 168 Type
171 ImageKind 169 ImageKind
172 GetImageKind 170 GetImageKind
173 (Image 1 'Depth : Image 1 ('Color (VecScalar 4 Float)) : [])) 171 ' [Image 1 'Depth, Image 1 ('Color (VecScalar 4 Float))])
174testdata/record01.reject.lc 8:35-8:75 172testdata/record01.reject.lc 8:35-8:75
175 (Image 1 'Depth, Image 1 ('Color (VecScalar 4 Float))) 173 (Image 1 'Depth, Image 1 ('Color (VecScalar 4 Float)))
176testdata/record01.reject.lc 8:36-8:47 174testdata/record01.reject.lc 8:36-8:47
@@ -426,8 +424,13 @@ testdata/record01.reject.lc 23:23-23:33
426 -> FrameBuffer a (map Type ImageKind FragmentOperationKind b) 424 -> FrameBuffer a (map Type ImageKind FragmentOperationKind b)
427testdata/record01.reject.lc 23:23-23:45 425testdata/record01.reject.lc 23:23-23:45
428 (_a 426 (_a
429 -> ((imageType 427 -> HList
430 (FragmentOperationKind (FragmentOperation ('Color (VecScalar 4 Float))))))) 428 (imageType'
429 (map
430 Type
431 ImageKind
432 FragmentOperationKind
433 ' [FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))])))
431 -> [Vector _b (Maybe (SimpleFragment _a))] 434 -> [Vector _b (Maybe (SimpleFragment _a))]
432 -> FrameBuffer 435 -> FrameBuffer
433 _b 436 _b
@@ -435,16 +438,14 @@ testdata/record01.reject.lc 23:23-23:45
435 Type 438 Type
436 ImageKind 439 ImageKind
437 FragmentOperationKind 440 FragmentOperationKind
438 (FragmentOperation 'Depth 441 ' [FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))])
439 : FragmentOperation ('Color (VecScalar 4 Float)) : []))
440 -> FrameBuffer 442 -> FrameBuffer
441 _b 443 _b
442 (map 444 (map
443 Type 445 Type
444 ImageKind 446 ImageKind
445 FragmentOperationKind 447 FragmentOperationKind
446 (FragmentOperation 'Depth 448 ' [FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))])
447 : FragmentOperation ('Color (VecScalar 4 Float)) : []))
448testdata/record01.reject.lc 23:23-23:60 449testdata/record01.reject.lc 23:23-23:60
449 [Vector _a (Maybe (SimpleFragment ((VecS Float 4))))] 450 [Vector _a (Maybe (SimpleFragment ((VecS Float 4))))]
450 -> FrameBuffer 451 -> FrameBuffer
@@ -453,16 +454,14 @@ testdata/record01.reject.lc 23:23-23:60
453 Type 454 Type
454 ImageKind 455 ImageKind
455 FragmentOperationKind 456 FragmentOperationKind
456 (FragmentOperation 'Depth 457 ' [FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))])
457 : FragmentOperation ('Color (VecScalar 4 Float)) : []))
458 -> FrameBuffer 458 -> FrameBuffer
459 _a 459 _a
460 (map 460 (map
461 Type 461 Type
462 ImageKind 462 ImageKind
463 FragmentOperationKind 463 FragmentOperationKind
464 (FragmentOperation 'Depth 464 ' [FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))])
465 : FragmentOperation ('Color (VecScalar 4 Float)) : []))
466testdata/record01.reject.lc 23:23-23:75 465testdata/record01.reject.lc 23:23-23:75
467 FrameBuffer 466 FrameBuffer
468 1 467 1
@@ -470,16 +469,14 @@ testdata/record01.reject.lc 23:23-23:75
470 Type 469 Type
471 ImageKind 470 ImageKind
472 FragmentOperationKind 471 FragmentOperationKind
473 (FragmentOperation 'Depth 472 ' [FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))])
474 : FragmentOperation ('Color (VecScalar 4 Float)) : []))
475 -> FrameBuffer 473 -> FrameBuffer
476 1 474 1
477 (map 475 (map
478 Type 476 Type
479 ImageKind 477 ImageKind
480 FragmentOperationKind 478 FragmentOperationKind
481 (FragmentOperation 'Depth 479 ' [FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))])
482 : FragmentOperation ('Color (VecScalar 4 Float)) : []))
483testdata/record01.reject.lc 23:23-23:83 480testdata/record01.reject.lc 23:23-23:83
484 FrameBuffer 481 FrameBuffer
485 1 482 1
@@ -487,8 +484,7 @@ testdata/record01.reject.lc 23:23-23:83
487 Type 484 Type
488 ImageKind 485 ImageKind
489 FragmentOperationKind 486 FragmentOperationKind
490 (FragmentOperation 'Depth 487 ' [FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))])
491 : FragmentOperation ('Color (VecScalar 4 Float)) : []))
492testdata/record01.reject.lc 23:34-23:45 488testdata/record01.reject.lc 23:34-23:45
493 (FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))) 489 (FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float)))
494testdata/record01.reject.lc 23:46-23:60 490testdata/record01.reject.lc 23:46-23:60
@@ -502,21 +498,20 @@ testdata/record01.reject.lc 23:76-23:83
502 Type 498 Type
503 ImageKind 499 ImageKind
504 GetImageKind 500 GetImageKind
505 (Image 1 'Depth : Image 1 ('Color (VecScalar 4 Float)) : [])) 501 ' [Image 1 'Depth, Image 1 ('Color (VecScalar 4 Float))])
506testdata/record01.reject.lc 24:12-24:58 502testdata/record01.reject.lc 24:12-24:58
507 RecordC 503 RecordC
508 ('RecItem "fieldA" Float 504 ' ['RecItem "fieldA" Float
509 : 'RecItem 505 , 'RecItem
510 "fieldB" 506 "fieldB"
511 (FrameBuffer 507 (FrameBuffer
512 1 508 1
513 (map 509 (map
514 Type 510 Type
515 ImageKind 511 ImageKind
516 FragmentOperationKind 512 FragmentOperationKind
517 (FragmentOperation 'Depth 513 ' [FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))]))
518 : FragmentOperation ('Color (VecScalar 4 Float)) : []))) 514 , 'RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float)]
519 : 'RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float) : [])
520testdata/record01.reject.lc 24:13-24:19 515testdata/record01.reject.lc 24:13-24:19
521 String | RecItem 516 String | RecItem
522testdata/record01.reject.lc 24:13-24:47 517testdata/record01.reject.lc 24:13-24:47
@@ -524,18 +519,23 @@ testdata/record01.reject.lc 24:13-24:47
524testdata/record01.reject.lc 24:21-24:24 519testdata/record01.reject.lc 24:21-24:24
525 Float 520 Float
526testdata/record01.reject.lc 24:21-24:57 521testdata/record01.reject.lc 24:21-24:57
527 (Float, recItemType 522 HList
528 ('RecItem 523 (Float
529 "fieldB" 524 : recItemType
530 (FrameBuffer 525 ('RecItem
531 1 526 "fieldB"
532 (map 527 (FrameBuffer
533 Type 528 1
534 ImageKind 529 (map
535 FragmentOperationKind 530 Type
536 (FragmentOperation 'Depth 531 ImageKind
537 : FragmentOperation ('Color (VecScalar 4 Float)) : [])))), recItemType 532 FragmentOperationKind
538 ('RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float))) 533 ' [FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))])))
534 : map
535 RecItem
536 Type
537 recItemType
538 ' ['RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float)])
539testdata/record01.reject.lc 24:26-24:32 539testdata/record01.reject.lc 24:26-24:32
540 String | RecItem 540 String | RecItem
541testdata/record01.reject.lc 24:26-24:47 541testdata/record01.reject.lc 24:26-24:47
@@ -547,37 +547,38 @@ testdata/record01.reject.lc 24:34-24:39
547 Type 547 Type
548 ImageKind 548 ImageKind
549 FragmentOperationKind 549 FragmentOperationKind
550 (FragmentOperation 'Depth 550 ' [FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))])
551 : FragmentOperation ('Color (VecScalar 4 Float)) : []))
552testdata/record01.reject.lc 24:34-24:57 551testdata/record01.reject.lc 24:34-24:57
553 (FrameBuffer 552 HList
554 1 553 (FrameBuffer
555 (map 554 1
556 Type 555 (map
557 ImageKind 556 Type
558 FragmentOperationKind 557 ImageKind
559 (FragmentOperation 'Depth 558 FragmentOperationKind
560 : FragmentOperation ('Color (VecScalar 4 Float)) : [])), recItemType 559 ' [FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))])
561 ('RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float))) 560 : recItemType
561 ('RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float))
562 : map RecItem Type recItemType ' [])
562testdata/record01.reject.lc 24:41-24:47 563testdata/record01.reject.lc 24:41-24:47
563 String | RecItem | [RecItem] 564 String | RecItem | [RecItem]
564testdata/record01.reject.lc 24:49-24:57 565testdata/record01.reject.lc 24:49-24:57
565 (BlendEquation, BlendEquation) 566 (BlendEquation, BlendEquation) -> Blending Float | (((BlendEquation
566 -> Blending Float | (((BlendEquation, BlendEquation) -> Blending Float)) 567 , BlendEquation)
568 -> Blending Float))
567testdata/record01.reject.lc 25:11-25:17 569testdata/record01.reject.lc 25:11-25:17
568 RecordC 570 RecordC
569 ('RecItem "fieldA" Float 571 ' ['RecItem "fieldA" Float
570 : 'RecItem 572 , 'RecItem
571 "fieldB" 573 "fieldB"
572 (FrameBuffer 574 (FrameBuffer
573 1 575 1
574 (map 576 (map
575 Type 577 Type
576 ImageKind 578 ImageKind
577 FragmentOperationKind 579 FragmentOperationKind
578 (FragmentOperation 'Depth 580 ' [FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))]))
579 : FragmentOperation ('Color (VecScalar 4 Float)) : []))) 581 , 'RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float)]
580 : 'RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float) : [])
581testdata/record01.reject.lc 25:11-25:24 582testdata/record01.reject.lc 25:11-25:24
582 _b 583 _b
583testdata/record01.reject.lc 25:18-25:24 584testdata/record01.reject.lc 25:18-25:24
@@ -586,18 +587,17 @@ testdata/record01.reject.lc 26:5-26:14
586 forall (a :: Nat) (b :: [ImageKind]) . FrameBuffer a b -> Output 587 forall (a :: Nat) (b :: [ImageKind]) . FrameBuffer a b -> Output
587testdata/record01.reject.lc 26:15-26:21 588testdata/record01.reject.lc 26:15-26:21
588 RecordC 589 RecordC
589 ('RecItem "fieldA" Float 590 ' ['RecItem "fieldA" Float
590 : 'RecItem 591 , 'RecItem
591 "fieldB" 592 "fieldB"
592 (FrameBuffer 593 (FrameBuffer
593 1 594 1
594 (map 595 (map
595 Type 596 Type
596 ImageKind 597 ImageKind
597 FragmentOperationKind 598 FragmentOperationKind
598 (FragmentOperation 'Depth 599 ' [FragmentOperation 'Depth, FragmentOperation ('Color (VecScalar 4 Float))]))
599 : FragmentOperation ('Color (VecScalar 4 Float)) : []))) 600 , 'RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float)]
600 : 'RecItem "fieldC" ((BlendEquation, BlendEquation) -> Blending Float) : [])
601testdata/record01.reject.lc 26:15-26:28 601testdata/record01.reject.lc 26:15-26:28
602 _b 602 _b
603testdata/record01.reject.lc 26:22-26:28 603testdata/record01.reject.lc 26:22-26:28
diff --git a/testdata/traceTest.out b/testdata/traceTest.out
index 41e16221..ff73ee7b 100644
--- a/testdata/traceTest.out
+++ b/testdata/traceTest.out
@@ -5,7 +5,7 @@ id = \(a :: _) -> _rhs a
5data X (_ :: Type) (_ :: _a) :: Type where 5data X (_ :: Type) (_ :: _a) :: Type where
6 6
7 7
8x :: X \(a :: _) (b :: _) -> HList (a : b : '[]) 8x :: X \(a :: _) (b :: _) -> (a, b)
9x = _rhs undefined 9x = _rhs undefined
10------------ trace 10------------ trace
11id :: forall a . a -> a 11id :: forall a . a -> a
diff --git a/testdata/typeclass.out b/testdata/typeclass.out
index 3b2170e0..36287148 100644
--- a/testdata/typeclass.out
+++ b/testdata/typeclass.out
@@ -24,13 +24,14 @@ not = \(a :: _) -> case'Bool (\_ -> _) (_rhs True) (_rhs False) a
24 a 24 a
25 (_rhs ('CEmpty "no instance of 'Eq on ???")) 25 (_rhs ('CEmpty "no instance of 'Eq on ???"))
26 26
27(==) :: forall a . CW (Eq a) => a -> a -> Bool 27(==) :: forall a . Eq a => a -> a -> Bool
28(==) 28(==)
29 = \ @a @_ -> match'Bool 29 = \ @a @_ -> match'Bool
30 (\_ -> _) 30 (\_ -> _)
31 (_rhs 31 (_rhs
32 let b 32 let
33 = \(c :: _) (d :: _) -> case'Bool (\_ -> _) (_rhs (not d)) (_rhs d) c in b) 33 b = \(c :: _) (d :: _) -> case'Bool (\_ -> _) (_rhs (not d)) (_rhs d) c
34 in b)
34 a 35 a
35 (_rhs undefined) 36 (_rhs undefined)
36 37
diff --git a/testdata/typesigctx.reject.out b/testdata/typesigctx.reject.out
index 5be24987..48fb11a5 100644
--- a/testdata/typesigctx.reject.out
+++ b/testdata/typesigctx.reject.out
@@ -6,7 +6,7 @@ X :: X
6case'X :: forall (a :: X -> Type) -> a 'X -> forall (b :: X) -> a b 6case'X :: forall (a :: X -> Type) -> a 'X -> forall (b :: X) -> a b
7match'X :: forall (a :: Type -> Type) -> a X -> forall b -> a b -> a b 7match'X :: forall (a :: Type -> Type) -> a X -> forall b -> a b -> a b
8'Show' :: Type -> Constraint 8'Show' :: Type -> Constraint
9show' :: forall a . Empty "no instance of 'Show' on ???" => a -> X 9show' :: forall a . @(Empty "no instance of 'Show' on ???") -> a -> X
10!type error: no instance of 'Show' on ??? 10!type error: no instance of 'Show' on ???
11in Wildcard2 builtin 'Type 11in Wildcard2 builtin 'Type
12------------ tooltips 12------------ tooltips
@@ -21,7 +21,7 @@ testdata/typesigctx.reject.lc 3:7-3:12
21testdata/typesigctx.reject.lc 3:7-3:36 21testdata/typesigctx.reject.lc 3:7-3:36
22 Type 22 Type
23testdata/typesigctx.reject.lc 3:21-3:26 23testdata/typesigctx.reject.lc 3:21-3:26
24 forall a . Empty "no instance of 'Show' on ???" => a -> X 24 forall a . @(Empty "no instance of 'Show' on ???") -> a -> X
25testdata/typesigctx.reject.lc 3:30-3:31 25testdata/typesigctx.reject.lc 3:30-3:31
26 Type 26 Type
27testdata/typesigctx.reject.lc 3:30-3:36 27testdata/typesigctx.reject.lc 3:30-3:36
@@ -31,4 +31,4 @@ testdata/typesigctx.reject.lc 3:35-3:36
31testdata/typesigctx.reject.lc 5:11-5:12 31testdata/typesigctx.reject.lc 5:11-5:12
32 Type 32 Type
33testdata/typesigctx.reject.lc 6:10-6:15 33testdata/typesigctx.reject.lc 6:10-6:15
34 forall a . Empty "no instance of 'Show' on ???" => a -> X \ No newline at end of file 34 forall a . @(Empty "no instance of 'Show' on ???") -> a -> X \ No newline at end of file
diff --git a/testdata/where.out b/testdata/where.out
index aaa87900..35e08403 100644
--- a/testdata/where.out
+++ b/testdata/where.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3f = _rhs let a = _rhs let b = _rhs 1.0 in b in let c = _rhs 1.0 in c 3f = _rhs let a = _rhs let c = _rhs 1.0 in c; b = _rhs 1.0 in b
4------------ trace 4------------ trace
5f :: Float 5f :: Float
6------------ tooltips 6------------ tooltips
diff --git a/testdata/zip01.out b/testdata/zip01.out
index 650f67b5..06e95e78 100644
--- a/testdata/zip01.out
+++ b/testdata/zip01.out
@@ -1,6 +1,6 @@
1main is not found 1main is not found
2------------ desugared source code 2------------ desugared source code
3zip2 :: forall (a :: _) (b :: _) . [a] -> [b] -> [HList (a : b : '[])] 3zip2 :: forall (a :: _) (b :: _) . [a] -> [b] -> [(a, b)]
4zip2 4zip2
5 = \(a :: _) (b :: _) -> case'List 5 = \(a :: _) (b :: _) -> case'List
6 (\_ -> _) 6 (\_ -> _)
@@ -8,7 +8,7 @@ zip2
8 (\(c :: _) (d :: _) -> case'List 8 (\(c :: _) (d :: _) -> case'List
9 (\_ -> _) 9 (\_ -> _)
10 (_rhs []) 10 (_rhs [])
11 (\(e :: _) (f :: _) -> _rhs (HCons c (HCons e HNil) : zip2 d f)) 11 (\(e :: _) (f :: _) -> _rhs ((c, e) : zip2 d f))
12 b) 12 b)
13 a 13 a
14------------ trace 14------------ trace
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-02 12:00:49 +0000