From a12162eaea28f3f617c578a7fa61f184050a4859 Mon Sep 17 00:00:00 2001 From: simonm Date: Wed, 24 Sep 1997 11:11:27 +0000 Subject: [PATCH] [project @ 1997-09-24 11:08:42 by simonm] test updates --- ghc/tests/Makefile | 13 +- ghc/tests/ccall/should_compile/Makefile | 14 +- ghc/tests/ccall/should_compile/cc001.stderr | 262 ---- ghc/tests/ccall/should_compile/cc003.stderr | 96 -- ghc/tests/ccall/should_compile/cc005.stderr | 859 ------------ ghc/tests/ccall/should_compile/cc006.stderr | 430 ------ ghc/tests/ccall/should_fail/cc002.stderr | 1 - ghc/tests/ccall/should_fail/cc004.stderr | 5 +- ghc/tests/codeGen/Makefile | 2 +- ghc/tests/codeGen/should_run/Makefile | 14 +- ghc/tests/codeGen/should_run/cg025.stderr | 2 +- ghc/tests/codeGen/should_run/cg026.hs | 4 + ghc/tests/deSugar/should_compile/Makefile | 4 +- .../deSugar/should_compile/ds-wildcard.stderr | 16 - ghc/tests/deSugar/should_compile/ds001.stderr | 119 -- ghc/tests/deSugar/should_compile/ds002.stderr | 65 - ghc/tests/deSugar/should_compile/ds003.stderr | 58 - ghc/tests/deSugar/should_compile/ds004.stderr | 75 - ghc/tests/deSugar/should_compile/ds005.stderr | 148 -- ghc/tests/deSugar/should_compile/ds006.stderr | 28 - ghc/tests/deSugar/should_compile/ds007.stderr | 26 - ghc/tests/deSugar/should_compile/ds008.stderr | 95 -- ghc/tests/deSugar/should_compile/ds009.stderr | 350 ----- ghc/tests/deSugar/should_compile/ds010.stderr | 282 ---- ghc/tests/deSugar/should_compile/ds011.stderr | 72 - ghc/tests/deSugar/should_compile/ds012.stderr | 211 --- ghc/tests/deSugar/should_compile/ds013.stderr | 293 ---- ghc/tests/deSugar/should_compile/ds014.stderr | Bin 9761 -> 0 bytes ghc/tests/deSugar/should_compile/ds015.stderr | 85 -- ghc/tests/deSugar/should_compile/ds016.stderr | 148 -- ghc/tests/deSugar/should_compile/ds017.stderr | 66 - ghc/tests/deSugar/should_compile/ds018.stderr | 669 --------- ghc/tests/deSugar/should_compile/ds019.stderr | 27 - ghc/tests/deSugar/should_compile/ds020.stderr | 1446 +------------------- ghc/tests/deSugar/should_compile/ds021.stderr | 54 - ghc/tests/deSugar/should_compile/ds022.stderr | 657 --------- ghc/tests/deSugar/should_compile/ds023.stderr | 100 -- ghc/tests/deSugar/should_compile/ds024.stderr | 72 - ghc/tests/deSugar/should_compile/ds025.stderr | 341 ----- ghc/tests/deSugar/should_compile/ds026.stderr | 144 -- ghc/tests/deSugar/should_compile/ds027.stderr | 88 -- ghc/tests/deSugar/should_compile/ds028.stderr | 63 - ghc/tests/deSugar/should_compile/ds029.stderr | 132 -- ghc/tests/deSugar/should_compile/ds030.stderr | 41 - ghc/tests/deSugar/should_compile/ds031.stderr | 100 -- ghc/tests/deSugar/should_compile/ds032.stderr | 161 --- ghc/tests/deSugar/should_compile/ds033.stderr | 138 -- ghc/tests/deSugar/should_compile/ds034.stderr | 78 -- ghc/tests/deSugar/should_compile/ds035.stderr | 112 -- ghc/tests/deSugar/should_compile/ds036.stderr | 376 ----- ghc/tests/deSugar/should_compile/ds037.stderr | 130 -- ghc/tests/deSugar/should_compile/ds038.stderr | 128 -- ghc/tests/deSugar/should_compile/ds039.stderr | 16 - ghc/tests/deSugar/should_compile/ds040.stderr | 391 ------ ghc/tests/deSugar/should_run/Makefile | 16 +- ghc/tests/deriving/should_compile/Makefile | 2 +- ghc/tests/deriving/should_compile/drv001.stderr | 258 ---- ghc/tests/deriving/should_compile/drv002.stderr | 149 -- ghc/tests/deriving/should_compile/drv003.stderr | 92 -- ghc/tests/deriving/should_compile/drv004.stderr | 185 --- ghc/tests/deriving/should_compile/drv005.stderr | 83 -- ghc/tests/deriving/should_compile/drv006.stderr | 196 --- ghc/tests/deriving/should_compile/drv008.stderr | 167 --- ghc/tests/deriving/should_compile/drv009.stderr | 224 --- ghc/tests/deriving/should_compile/drv010.stderr | 71 - ghc/tests/deriving/should_fail/drvfail004.stderr | 3 +- ghc/tests/deriving/should_fail/drvfail007.stderr | 10 +- ghc/tests/deriving/should_run/Makefile | 14 +- ghc/tests/printing/should_compile/Makefile | 4 +- ghc/tests/reader/should_compile/Makefile | 2 +- ghc/tests/reader/should_compile/read002.stderr | 14 - ghc/tests/reader/should_compile/read005.stderr | 7 - ghc/tests/reader/should_fail/expr001.stderr | 7 +- ghc/tests/reader/should_fail/read001.stderr | 7 +- ghc/tests/reader/should_fail/read003.stderr | 13 +- ghc/tests/rename/should_fail/rnfail001.stderr | 1 - ghc/tests/rename/should_fail/rnfail002.stderr | 1 - ghc/tests/rename/should_fail/rnfail003.stderr | 1 - ghc/tests/rename/should_fail/rnfail004.stderr | 1 - ghc/tests/rename/should_fail/rnfail007.stderr | 1 - ghc/tests/rename/should_fail/rnfail008.stderr | 4 +- ghc/tests/rename/should_fail/rnfail009.stderr | 1 - ghc/tests/rename/should_fail/rnfail010.stderr | 1 - ghc/tests/rename/should_fail/rnfail011.stderr | 1 - ghc/tests/rename/should_fail/rnfail012.stderr | 1 - ghc/tests/rename/should_fail/rnfail013.stderr | 1 - ghc/tests/rename/should_fail/rnfail014.stderr | 1 - ghc/tests/simplCore/should_compile/Makefile | 2 +- ghc/tests/simplCore/should_compile/simpl001.stderr | 98 -- ghc/tests/simplCore/should_compile/simpl002.stderr | 90 -- ghc/tests/simplCore/should_compile/simpl003.stderr | 193 --- ghc/tests/stranal/should_compile/Makefile | 2 +- ghc/tests/stranal/should_compile/fun.stderr | 29 - ghc/tests/stranal/should_compile/goo.stderr | 36 - ghc/tests/stranal/should_compile/ins.stderr | 121 -- ghc/tests/stranal/should_compile/map.stderr | 89 -- ghc/tests/stranal/should_compile/sim.stderr | 83 -- ghc/tests/stranal/should_compile/syn.stderr | 62 - ghc/tests/stranal/should_compile/test.stderr | 33 - ghc/tests/stranal/should_compile/tst.stderr | 13 - ghc/tests/stranal/should_compile/unu.stderr | 96 -- ghc/tests/typecheck/should_compile/Makefile | 2 +- ghc/tests/typecheck/should_run/Makefile | 14 +- 103 files changed, 59 insertions(+), 11750 deletions(-) diff --git a/ghc/tests/Makefile b/ghc/tests/Makefile index 249c6c5..1220e7e 100644 --- a/ghc/tests/Makefile +++ b/ghc/tests/Makefile @@ -1,7 +1,18 @@ TOP = . include $(TOP)/mk/boilerplate.mk -SUBDIRS = ccall deriving deSugar printing reader rename simplCore typecheck +SUBDIRS = + ccall \ + codeGen \ + deSugar \ + deriving \ + io \ + printing \ + reader \ + rename \ + simplCore \ + stranal \ + typecheck #programs diff --git a/ghc/tests/ccall/should_compile/Makefile b/ghc/tests/ccall/should_compile/Makefile index 14dc492..10cee83 100644 --- a/ghc/tests/ccall/should_compile/Makefile +++ b/ghc/tests/ccall/should_compile/Makefile @@ -7,12 +7,12 @@ HC_OPTS += -dcore-lint -fglasgow-exts # Note that these tests are still in a state of flux... don't believe errors # they report. In fact, these aren't really very good tests at all... -cc001_HC_OPTS = -noC -ddump-tc -ddump-ds -cc002_HC_OPTS = -noC -ddump-tc -ddump-ds -cc003_HC_OPTS = -noC -ddump-tc -ddump-ds -cc004_HC_OPTS = -noC -ddump-tc -ddump-ds -cc005_HC_OPTS = -fvia-C -ddump-stg -ddump-flatC -cc006_HC_OPTS = -fvia-C -ddump-stg -ddump-flatC -cc007_HC_OPTS = -fvia-C -ddump-stg -ddump-flatC +cc001_HC_OPTS = -noC +cc002_HC_OPTS = -noC +cc003_HC_OPTS = -noC +cc004_HC_OPTS = -noC +cc005_HC_OPTS = -fvia-C +cc006_HC_OPTS = -fvia-C +cc007_HC_OPTS = -fvia-C include $(TOP)/mk/target.mk diff --git a/ghc/tests/ccall/should_compile/cc001.stderr b/ghc/tests/ccall/should_compile/cc001.stderr index 4556d5d..e69de29 100644 --- a/ghc/tests/ccall/should_compile/cc001.stderr +++ b/ghc/tests/ccall/should_compile/cc001.stderr @@ -1,262 +0,0 @@ - - -================================================================================ -Typechecked: -AbsBinds [] [] [([], c{-r5,x-}, c_aZc)] - c_aZc x1_r4l x2_r4m x3_r4n x4_r4o - = STBase.ST{-5G,w-}{i} - [GHC.RealWorld{-3s,W-}, PrelBase.Float{-3c,W-}] _ccall_ c - x1_r4l x2_r4m x3_r4n x4_r4o -AbsBinds [] [] [([], b{-r3,x-}, b_aZE)] - b_aZE x_r4j - = STBase.ST{-5G,w-}{i} - [GHC.RealWorld{-3s,W-}, PrelBase.Int{-3g,W-}] _ccall_ b x_r4j -AbsBinds [] [] [([], a{-r1,x-}, a_aZR)] - a_aZR - = STBase.ST{-5G,w-}{i} - [GHC.RealWorld{-3s,W-}, PrelBase.Int{-3g,W-}] _ccall_ a -AbsBinds [] [] [([], d{-r7,x-}, d_aZY)] - d_aZY - = STBase.thenPrimIO{-r4t,p-} - [PrelBase.Int{-3g,W-}, PrelBase.Float{-3c,W-}] - a{-r1,x-} - (\ x_r4q - -> STBase.thenPrimIO{-r4t,p-} - [PrelBase.Int{-3g,W-}, PrelBase.Float{-3c,W-}] - (b{-r3,x-} x_r4q) - (\ y_r4s -> c{-r5,x-} y_r4s 'f' lit_a10r lit_a10t)) -d.Fractional_a10l = PrelNum.$d23{-rsg,p-} -fromRational_a10q = - PrelNum.fromRational{-8T,p-} PrelBase.Float{-3c,W-} - d.Fractional_a10l -lit_a10r = fromRational_a10q 1.0000000000000000 -d.Fractional_a10p = PrelNum.$d14{-rs6,p-} -fromRational_a10s = - PrelNum.fromRational{-8T,p-} PrelBase.Double{-3a,W-} - d.Fractional_a10p -lit_a10t = fromRational_a10s 2.0000000000000000 - - -================================================================================ -Desugared: -Rec { -c_aZc :: PrelBase.Int{-3g,W-} - -> PrelBase.Char{-38,W-} - -> PrelBase.Float{-3c,W-} - -> PrelBase.Double{-3a,W-} - -> STBase.PrimIO{-3P,W-} PrelBase.Float{-3c,W-} -{-# L #-} -c_aZc = - \ x1_r4l :: PrelBase.Int{-3g,W-} - {-# L #-} - x1_r4l x2_r4m :: PrelBase.Char{-38,W-} - {-# L #-} - x2_r4m x3_r4n :: PrelBase.Float{-3c,W-} - {-# L #-} - x3_r4n x4_r4o :: PrelBase.Double{-3a,W-} - {-# L #-} - x4_r4o -> - let { - ds_d17v :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - -> (PrelBase.Float{-3c,W-}, STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}) - {-# L #-} - ds_d17v = - \ ds_d17B :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - {-# L #-} - ds_d17B -> - case ds_d17B of { STBase.S#{-5D,w-}{i} ds_d18A -> - case x1_r4l of { PrelBase.I#{-5b,w-}{i} ds_d18J -> - case x2_r4m of { PrelBase.C#{-54,w-}{i} ds_d18S -> - case x3_r4n of { PrelBase.F#{-59,w-}{i} ds_d191 -> - case x4_r4o of { PrelBase.D#{-56,w-}{i} ds_d19o -> - case - _ccall_ c [(STBase.StateAndFloat#{-3C,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.Int#{-3f,W-} GHC.Char#{-37,W-} GHC.Float#{-3b,W-} GHC.Double#{-39,W-}]! - ds_d18A ds_d18J ds_d18S ds_d191 ds_d19o - of { - STBase.StateAndFloat#{-5u,w-}{i} ds_d19R ds_d19P -> - let { - ds_d19G :: PrelBase.Float{-3c,W-} - {-# L #-} - ds_d19G = - PrelBase.F#{-59,w-}{i} {ds_d19P} } in - let { - ds_d19K :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - {-# L #-} - ds_d19K = - STBase.S#{-5D,w-}{i} {_@_ GHC.RealWorld{-3s,W-} ds_d19R} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Float{-3c,W-} - _@_ (STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}) - ds_d19G - ds_d19K};};};};};};} - } in - STBase.ST{-5G,w-}{i} - _@_ GHC.RealWorld{-3s,W-} _@_ PrelBase.Float{-3c,W-} ds_d17v -c{-r5,x-} :: PrelBase.Int{-3g,W-} - -> PrelBase.Char{-38,W-} - -> PrelBase.Float{-3c,W-} - -> PrelBase.Double{-3a,W-} - -> STBase.PrimIO{-3P,W-} PrelBase.Float{-3c,W-} -{-# L #-} -c{-r5,x-} = - c_aZc -b_aZE :: PrelBase.Int{-3g,W-} - -> STBase.PrimIO{-3P,W-} PrelBase.Int{-3g,W-} -{-# L #-} -b_aZE = - \ x_r4j :: PrelBase.Int{-3g,W-} - {-# L #-} - x_r4j -> - let { - ds_d1ab :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - -> (PrelBase.Int{-3g,W-}, STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}) - {-# L #-} - ds_d1ab = - \ ds_d1ah :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - {-# L #-} - ds_d1ah -> - case ds_d1ah of { STBase.S#{-5D,w-}{i} ds_d1aq -> - case x_r4j of { PrelBase.I#{-5b,w-}{i} ds_d1aE -> - case - _ccall_ b [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.Int#{-3f,W-}]! - ds_d1aq ds_d1aE - of { - STBase.StateAndInt#{-5v,w-}{i} ds_d1b7 ds_d1b5 -> - let { - ds_d1aW :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1aW = - PrelBase.I#{-5b,w-}{i} {ds_d1b5} } in - let { - ds_d1b0 :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - {-# L #-} - ds_d1b0 = - STBase.S#{-5D,w-}{i} {_@_ GHC.RealWorld{-3s,W-} ds_d1b7} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Int{-3g,W-} - _@_ (STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}) - ds_d1aW - ds_d1b0};};};} - } in - STBase.ST{-5G,w-}{i} - _@_ GHC.RealWorld{-3s,W-} _@_ PrelBase.Int{-3g,W-} ds_d1ab -b{-r3,x-} :: PrelBase.Int{-3g,W-} - -> STBase.PrimIO{-3P,W-} PrelBase.Int{-3g,W-} -{-# L #-} -b{-r3,x-} = - b_aZE -a_aZR :: STBase.PrimIO{-3P,W-} PrelBase.Int{-3g,W-} -{-# L #-} -a_aZR = - let { - ds_d1bq :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - -> (PrelBase.Int{-3g,W-}, STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}) - {-# L #-} - ds_d1bq = - \ ds_d1bw :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - {-# L #-} - ds_d1bw -> - case ds_d1bw of { STBase.S#{-5D,w-}{i} ds_d1bH -> - case - _ccall_ a [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-})]! - ds_d1bH - of { - STBase.StateAndInt#{-5v,w-}{i} ds_d1ca ds_d1c8 -> - let { - ds_d1bZ :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1bZ = - PrelBase.I#{-5b,w-}{i} {ds_d1c8} } in - let { - ds_d1c3 :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - {-# L #-} - ds_d1c3 = - STBase.S#{-5D,w-}{i} {_@_ GHC.RealWorld{-3s,W-} ds_d1ca} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Int{-3g,W-} - _@_ (STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}) - ds_d1bZ - ds_d1c3};};} - } in - STBase.ST{-5G,w-}{i} - _@_ GHC.RealWorld{-3s,W-} _@_ PrelBase.Int{-3g,W-} ds_d1bq -a{-r1,x-} :: STBase.PrimIO{-3P,W-} PrelBase.Int{-3g,W-} -{-# L #-} -a{-r1,x-} = - a_aZR -d_aZY :: STBase.PrimIO{-3P,W-} PrelBase.Float{-3c,W-} -{-# L #-} -d_aZY = - let { - ds_d1cw :: PrelBase.Int{-3g,W-} - -> STBase.PrimIO{-3P,W-} PrelBase.Float{-3c,W-} - {-# L #-} - ds_d1cw = - \ x_r4q :: PrelBase.Int{-3g,W-} - {-# L #-} - x_r4q -> - let { - ds_d1cL :: STBase.PrimIO{-3P,W-} PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1cL = - b{-r3,x-} x_r4q } in - let { - ds_d1cP :: PrelBase.Int{-3g,W-} - -> STBase.PrimIO{-3P,W-} PrelBase.Float{-3c,W-} - {-# L #-} - ds_d1cP = - \ y_r4s :: PrelBase.Int{-3g,W-} - {-# L #-} - y_r4s -> - (let { - ds_d1df :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1df = - PrelBase.C#{-54,w-}{i} {'f'} - } in c{-r5,x-} y_r4s ds_d1df) - lit_a10r lit_a10t - } in - STBase.thenPrimIO{-r4t,p-} - _@_ PrelBase.Int{-3g,W-} _@_ PrelBase.Float{-3c,W-} ds_d1cL ds_d1cP - } in - STBase.thenPrimIO{-r4t,p-} - _@_ PrelBase.Int{-3g,W-} - _@_ PrelBase.Float{-3c,W-} - a{-r1,x-} - ds_d1cw -d{-r7,x-} :: STBase.PrimIO{-3P,W-} PrelBase.Float{-3c,W-} -{-# L #-} -d{-r7,x-} = - d_aZY -d.Fractional_a10l :: {PrelNum.Fractional{-26,p-} PrelBase.Float{-3c,W-}} -{-# L #-} -d.Fractional_a10l = - PrelNum.$d23{-rsg,p-} -fromRational_a10q :: PrelNum.Rational{-3r,p-} - -> PrelBase.Float{-3c,W-} -{-# L #-} -fromRational_a10q = - PrelNum.fromRational{-8T,p-} - _@_ PrelBase.Float{-3c,W-} d.Fractional_a10l -lit_a10r :: PrelBase.Float{-3c,W-} -{-# L #-} -lit_a10r = - fromRational_a10q _rational_ 1 1 -d.Fractional_a10p :: {PrelNum.Fractional{-26,p-} PrelBase.Double{-3a,W-}} -{-# L #-} -d.Fractional_a10p = - PrelNum.$d14{-rs6,p-} -fromRational_a10s :: PrelNum.Rational{-3r,p-} - -> PrelBase.Double{-3a,W-} -{-# L #-} -fromRational_a10s = - PrelNum.fromRational{-8T,p-} - _@_ PrelBase.Double{-3a,W-} d.Fractional_a10p -lit_a10t :: PrelBase.Double{-3a,W-} -{-# L #-} -lit_a10t = - fromRational_a10s _rational_ 2 1 -end Rec } diff --git a/ghc/tests/ccall/should_compile/cc003.stderr b/ghc/tests/ccall/should_compile/cc003.stderr index d4eca73..e69de29 100644 --- a/ghc/tests/ccall/should_compile/cc003.stderr +++ b/ghc/tests/ccall/should_compile/cc003.stderr @@ -1,96 +0,0 @@ - - -================================================================================ -Typechecked: -AbsBinds [] [] [([], fubar{-r1,x-}, fubar_aTQ)] - fubar_aTQ - = STBase.seqPrimIO{-r46,p-} - [PrelBase.(){-40,W-}, PrelBase.Int{-3g,W-}] - (STBase.ST{-5G,w-}{i} - [GHC.RealWorld{-3s,W-}, PrelBase.(){-40,W-}] _ccall_ f) - (STBase.ST{-5G,w-}{i} - [GHC.RealWorld{-3s,W-}, PrelBase.Int{-3g,W-}] _ccall_ b) - - -================================================================================ -Desugared: -Rec { -fubar_aTQ :: STBase.PrimIO{-3P,W-} PrelBase.Int{-3g,W-} -{-# L #-} -fubar_aTQ = - let { ds_dVM :: STBase.PrimIO{-3P,W-} PrelBase.(){-40,W-} - {-# L #-} - ds_dVM = - let { - ds_dW2 :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - -> (PrelBase.(){-40,W-}, STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}) - {-# L #-} - ds_dW2 = - \ ds_dW8 :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - {-# L #-} - ds_dW8 -> - case ds_dW8 of { STBase.S#{-5D,w-}{i} ds_dWn -> - case - _ccall_ f [(STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-})]! - ds_dWn - of { - STBase.S#{-5D,w-}{i} ds_dWN -> - let { - ds_dWG :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - {-# L #-} - ds_dWG = - STBase.S#{-5D,w-}{i} {_@_ GHC.RealWorld{-3s,W-} ds_dWN} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.(){-40,W-} - _@_ (STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}) - PrelBase.(){-60,w-}{i} - ds_dWG};};} - } in - STBase.ST{-5G,w-}{i} - _@_ GHC.RealWorld{-3s,W-} _@_ PrelBase.(){-40,W-} ds_dW2 - } in - let { ds_dVQ :: STBase.PrimIO{-3P,W-} PrelBase.Int{-3g,W-} - {-# L #-} - ds_dVQ = - let { - ds_dX0 :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - -> (PrelBase.Int{-3g,W-}, STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}) - {-# L #-} - ds_dX0 = - \ ds_dX6 :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - {-# L #-} - ds_dX6 -> - case ds_dX6 of { STBase.S#{-5D,w-}{i} ds_dXh -> - case - _ccall_ b [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-})]! - ds_dXh - of { - STBase.StateAndInt#{-5v,w-}{i} ds_dXK ds_dXI -> - let { - ds_dXz :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dXz = - PrelBase.I#{-5b,w-}{i} {ds_dXI} } in - let { - ds_dXD :: STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - {-# L #-} - ds_dXD = - STBase.S#{-5D,w-}{i} {_@_ GHC.RealWorld{-3s,W-} ds_dXK} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Int{-3g,W-} - _@_ (STBase.State{-3M,W-} GHC.RealWorld{-3s,W-}) - ds_dXz - ds_dXD};};} - } in - STBase.ST{-5G,w-}{i} - _@_ GHC.RealWorld{-3s,W-} _@_ PrelBase.Int{-3g,W-} ds_dX0 - } in - STBase.seqPrimIO{-r46,p-} - _@_ PrelBase.(){-40,W-} _@_ PrelBase.Int{-3g,W-} ds_dVM ds_dVQ -fubar{-r1,x-} :: STBase.PrimIO{-3P,W-} PrelBase.Int{-3g,W-} -{-# L #-} -fubar{-r1,x-} = - fubar_aTQ -end Rec } diff --git a/ghc/tests/ccall/should_compile/cc005.stderr b/ghc/tests/ccall/should_compile/cc005.stderr index c86a6ae..e375ede 100644 --- a/ghc/tests/ccall/should_compile/cc005.stderr +++ b/ghc/tests/ccall/should_compile/cc005.stderr @@ -1,860 +1 @@ - - -================================================================================ -STG syntax: -$g0_g0 = - PrelNum.:%{-5l,p-}{i}! [PrelNum.integer_2{-8e,w-} PrelNum.integer_1{-8d,w-}]; -$g1_a15t = - (False, True, False, False, True) [] \u [] - case - PrelNum.$d14{-rs6,p-} ::{PrelNum.Fractional{-26,p-} PrelBase.Double{-3a,W-}} - of { - -- lvs: []; rhs lvs: []; uniq: c1QY - PrelTup.(,,,){-64,w-}{i} $x0_s1En $x1_s1Eo $x2_s1Ep $x3_s1Em -> - $x3_s1Em $g0_g0; - }; -$g2_g2 = - PrelNum.:%{-5l,p-}{i}! [PrelNum.integer_1{-8d,w-} PrelNum.integer_1{-8d,w-}]; -$g3_a15r = - (False, True, False, False, True) [] \u [] - case - PrelNum.$d23{-rsg,p-} ::{PrelNum.Fractional{-26,p-} PrelBase.Float{-3c,W-}} - of { - -- lvs: []; rhs lvs: []; uniq: c1QZ - PrelTup.(,,,){-64,w-}{i} $x0_s1EP $x1_s1EQ $x2_s1ER $x3_s1EO -> - $x3_s1EO $g2_g2; - }; -a{-r1,x-} = - [] \r [$x0_s1F9] - case $x0_s1F9 ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} of { - -- lvs: [$x0_s1F9]; rhs lvs: []; uniq: c1R0 - STBase.S#{-5D,w-}{i} $x1_s1FA -> - case - _ccall_ a [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-})]# [$x1_s1FA] ::STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-} - of { - -- lvs: [$x1_s1FA]; rhs lvs: []; uniq: c1R1 - STBase.StateAndInt#{-5v,w-}{i} $x2_s1FK $x3_s1Fz -> - let { $x4_s1Gc = PrelBase.I#{-5b,w-}{i}! [$x3_s1Fz]; } in - let { $x5_s1Gb = STBase.S#{-5D,w-}{i}! [$x2_s1FK]; - } in PrelTup.(,){-62,w-}{i}! [$x4_s1Gc $x5_s1Gb]; - }; - }; -b{-r3,x-} = - [] \r [$x0_s1Gl] - let { - stg_c1Qp = - (False, True, False, False, True) [$x0_s1Gl] \r [$x1_s1Ga] - case - $x1_s1Ga{-lvs:$x0_s1Gl-} ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - of { - -- lvs: [$x1_s1Ga $x0_s1Gl]; rhs lvs: [$x0_s1Gl]; uniq: c1R2 - STBase.S#{-5D,w-}{i} $x2_s1Gm -> - case $x0_s1Gl{-lvs:$x2_s1Gm-} ::PrelBase.Int{-3g,W-} of { - -- lvs: [$x0_s1Gl $x2_s1Gm]; rhs lvs: [$x2_s1Gm]; uniq: c1R3 - PrelBase.I#{-5b,w-}{i} $x3_s1GM -> - case - _ccall_ b [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.Int#{-3f,W-}]# [$x2_s1Gm $x3_s1GM] ::STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-} - of { - -- lvs: [$x2_s1Gm $x3_s1GM]; rhs lvs: []; uniq: c1R4 - STBase.StateAndInt#{-5v,w-}{i} $x4_s1GX $x5_s1GN -> - let { $x6_s1Hx = PrelBase.I#{-5b,w-}{i}! [$x5_s1GN]; } in - let { $x7_s1Hw = STBase.S#{-5D,w-}{i}! [$x4_s1GX]; - } in PrelTup.(,){-62,w-}{i}! [$x6_s1Hx $x7_s1Hw]; - }; - }; - }; - } in stg_c1Qp; -c{-r5,x-} = - [] \r [$x0_s1HG $x1_s1HQ $x2_s1I0 $x3_s1Ia] - let { - stg_c1PP = - (False, True, False, False, True) [$x0_s1HG $x1_s1HQ $x2_s1I0 $x3_s1Ia] \r [$x4_s1Hv] - case - $x4_s1Hv{-lvs:$x0_s1HG, $x1_s1HQ, $x2_s1I0, $x3_s1Ia-} ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - of { - -- lvs: [$x4_s1Hv $x0_s1HG $x1_s1HQ $x2_s1I0 $x3_s1Ia]; rhs lvs: [$x0_s1HG $x1_s1HQ $x2_s1I0 $x3_s1Ia]; uniq: c1R5 - STBase.S#{-5D,w-}{i} $x5_s1HH -> - case - $x0_s1HG{-lvs:$x5_s1HH, $x1_s1HQ, $x2_s1I0, $x3_s1Ia-} ::PrelBase.Int{-3g,W-} - of { - -- lvs: [$x0_s1HG $x5_s1HH $x1_s1HQ $x2_s1I0 $x3_s1Ia]; rhs lvs: [$x5_s1HH $x1_s1HQ $x2_s1I0 $x3_s1Ia]; uniq: c1R6 - PrelBase.I#{-5b,w-}{i} $x6_s1HR -> - case - $x1_s1HQ{-lvs:$x5_s1HH, $x6_s1HR, $x2_s1I0, $x3_s1Ia-} ::PrelBase.Char{-38,W-} - of { - -- lvs: [$x5_s1HH $x1_s1HQ $x6_s1HR $x2_s1I0 $x3_s1Ia]; rhs lvs: [$x5_s1HH $x6_s1HR $x2_s1I0 $x3_s1Ia]; uniq: c1R7 - PrelBase.C#{-54,w-}{i} $x7_s1I1 -> - case - $x2_s1I0{-lvs:$x5_s1HH, $x6_s1HR, $x7_s1I1, $x3_s1Ia-} ::PrelBase.Float{-3c,W-} - of { - -- lvs: [$x5_s1HH $x6_s1HR $x2_s1I0 $x7_s1I1 $x3_s1Ia]; rhs lvs: [$x5_s1HH $x6_s1HR $x7_s1I1 $x3_s1Ia]; uniq: c1R8 - PrelBase.F#{-59,w-}{i} $x8_s1Ib -> - case - $x3_s1Ia{-lvs:$x5_s1HH, $x6_s1HR, $x7_s1I1, $x8_s1Ib-} ::PrelBase.Double{-3a,W-} - of { - -- lvs: [$x5_s1HH $x6_s1HR $x7_s1I1 $x3_s1Ia $x8_s1Ib]; rhs lvs: [$x5_s1HH $x6_s1HR $x7_s1I1 $x8_s1Ib]; uniq: c1R9 - PrelBase.D#{-56,w-}{i} $x9_s1IB -> - case - _ccall_ c [(STBase.StateAndFloat#{-3C,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.Int#{-3f,W-} GHC.Char#{-37,W-} GHC.Float#{-3b,W-} GHC.Double#{-39,W-}]# [$x5_s1HH $x6_s1HR $x7_s1I1 $x8_s1Ib $x9_s1IB] ::STBase.StateAndFloat#{-3C,W-} GHC.RealWorld{-3s,W-} - of { - -- lvs: [$x5_s1HH $x6_s1HR $x7_s1I1 $x8_s1Ib $x9_s1IB]; rhs lvs: []; uniq: c1Ra - STBase.StateAndFloat#{-5u,w-}{i} $xa_s1IM $xb_s1IC -> - let { - $xc_s1Jy = - PrelBase.F#{-59,w-}{i}! [$xb_s1IC]; } in - let { - $xd_s1Jx = - STBase.S#{-5D,w-}{i}! [$xa_s1IM]; - } in - PrelTup.(,){-62,w-}{i}! [$xc_s1Jy $xd_s1Jx]; - }; - }; - }; - }; - }; - }; - } in stg_c1PP; -d{-r7,x-} = - [] \u [] - let { - $xk_s1Ma = - [] \r [$x0_s1JH] - let { $x8_s1KM = [$x0_s1JH] \r [$x1_s1Jw] - case - $x1_s1Jw{-lvs:$x0_s1JH-} ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - of { - -- lvs: [$x1_s1Jw $x0_s1JH]; rhs lvs: [$x0_s1JH]; uniq: c1Rb - STBase.S#{-5D,w-}{i} $x2_s1JI -> - case $x0_s1JH{-lvs:$x2_s1JI-} ::PrelBase.Int{-3g,W-} of { - -- lvs: [$x0_s1JH $x2_s1JI]; rhs lvs: [$x2_s1JI]; uniq: c1Rc - PrelBase.I#{-5b,w-}{i} $x3_s1K8 -> - case - _ccall_ b [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.Int#{-3f,W-}]# [$x2_s1JI $x3_s1K8] ::STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-} - of { - -- lvs: [$x2_s1JI $x3_s1K8]; rhs lvs: []; uniq: c1Rd - STBase.StateAndInt#{-5v,w-}{i} $x4_s1Kj $x5_s1K9 -> - let { - $x6_s1KL = PrelBase.I#{-5b,w-}{i}! [$x5_s1K9]; } in - let { $x7_s1KK = STBase.S#{-5D,w-}{i}! [$x4_s1Kj]; - } in PrelTup.(,){-62,w-}{i}! [$x6_s1KL $x7_s1KK]; - }; - }; - } } in - let { - $xj_s1M6 = - [] \r [$x9_s1KV] - let { - stg_c1OR = - (False, True, False, False, True) [$x9_s1KV] \r [$xa_s1KJ] - case - $xa_s1KJ{-lvs:$x9_s1KV-} ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - of { - -- lvs: [$xa_s1KJ $x9_s1KV]; rhs lvs: [$x9_s1KV]; uniq: c1Re - STBase.S#{-5D,w-}{i} $xb_s1KW -> - case - $x9_s1KV{-lvs:$xb_s1KW-} ::PrelBase.Int{-3g,W-} - of { - -- lvs: [$x9_s1KV $xb_s1KW]; rhs lvs: [$xb_s1KW]; uniq: c1Rf - PrelBase.I#{-5b,w-}{i} $xc_s1L5 -> - case - $g3_a15r{-lvs:$xb_s1KW, $xc_s1L5-} ::PrelBase.Float{-3c,W-} - of { - -- lvs: [$xb_s1KW $xc_s1L5]; rhs lvs: [$xb_s1KW $xc_s1L5]; uniq: c1Rg - PrelBase.F#{-59,w-}{i} $xd_s1Le -> - case - $g1_a15t{-lvs:$xb_s1KW, $xc_s1L5, $xd_s1Le-} ::PrelBase.Double{-3a,W-} - of { - -- lvs: [$xb_s1KW $xc_s1L5 $xd_s1Le]; rhs lvs: [$xb_s1KW $xc_s1L5 $xd_s1Le]; uniq: c1Rh - PrelBase.D#{-56,w-}{i} $xe_s1LE -> - case - _ccall_ c [(STBase.StateAndFloat#{-3C,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.Int#{-3f,W-} GHC.Char#{-37,W-} GHC.Float#{-3b,W-} GHC.Double#{-39,W-}]# [$xb_s1KW $xc_s1L5 'f' $xd_s1Le $xe_s1LE] ::STBase.StateAndFloat#{-3C,W-} GHC.RealWorld{-3s,W-} - of { - -- lvs: [$xb_s1KW $xc_s1L5 $xd_s1Le $xe_s1LE]; rhs lvs: []; uniq: c1Ri - STBase.StateAndFloat#{-5u,w-}{i} $xf_s1LP $xg_s1LF -> - let { - $xh_s1M5 = - PrelBase.F#{-59,w-}{i}! [$xg_s1LF]; } in - let { - $xi_s1M4 = - STBase.S#{-5D,w-}{i}! [$xf_s1LP]; - } in - PrelTup.(,){-62,w-}{i}! [$xh_s1M5 $xi_s1M4]; - }; - }; - }; - }; - }; - } in stg_c1OR; - } in STBase.thenPrimIO{-r4t,p-} $x8_s1KM $xj_s1M6; - } in STBase.thenPrimIO{-r4t,p-} a{-r1,x-} $xk_s1Ma; - - -================================================================================ -Flat Abstract C: -ED_(PrelNum_integerZu2_closure); -ED_(PrelNum_integerZu1_closure); -SET_STATIC_HDR(g0_closure,PrelNum_ZcZ37_static_info,0,static ,ED_RO_) - , (W_)PrelNum_integerZu2_closure, (W_)PrelNum_integerZu1_closure -}; -IFN_(ret_c1QY) { -ID_(g0_closure); - FB_ - SpA[-1]=g0_closure; - RetReg=StdUpdRetVecReg; - R1=R6; - SpA=SpA-1; - SpB=SpB-1; - ENT_VIA_NODE(); - GRAN_EXEC(6,1,1,1,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -UNVECTBL(static,vtbl_c1QY,ret_c1QY) -STATIC_ITBL(a15t_info,a15t_entry,StdErrorCode,1,-1,(STATIC_VHS+2),0,static const,IF_,0,0,0); -IFN_(a15t_entry) { -ED_(PrelNum_Z36d14_closure); - FB_ - STK_CHK(1,1,5,0,0,0,1); - HEAP_CHK(1,(BH_HS+2),1); - SET_BH_HDR(Hp-(BH_HS+1),BH_UPD_info,0,(BH_VHS+2),0); - UPD_CAF(R1.p,Hp-(BH_HS+1)); - PUSH_STD_UPD_FRAME(Hp-(BH_HS+1),0,0); - RetReg=(StgRetAddr)UNVEC(ret_c1QY,vtbl_c1QY); - R1.p=PrelNum_Z36d14_closure; - SpB=SpB+5; - ENT_VIA_NODE(); - GRAN_EXEC(19,2,2,8,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -SET_STATIC_HDR(a15t_closure,a15t_info,0,static ,ID_RO_) - , (W_)0, (W_)0 -}; -ED_(PrelNum_integerZu1_closure); -SET_STATIC_HDR(g2_closure,PrelNum_ZcZ37_static_info,0,static ,ED_RO_) - , (W_)PrelNum_integerZu1_closure, (W_)PrelNum_integerZu1_closure -}; -IFN_(ret_c1QZ) { -ID_(g2_closure); - FB_ - SpA[-1]=g2_closure; - RetReg=StdUpdRetVecReg; - R1=R6; - SpA=SpA-1; - SpB=SpB-1; - ENT_VIA_NODE(); - GRAN_EXEC(6,1,1,1,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -UNVECTBL(static,vtbl_c1QZ,ret_c1QZ) -STATIC_ITBL(a15r_info,a15r_entry,StdErrorCode,1,-1,(STATIC_VHS+2),0,static const,IF_,0,0,0); -IFN_(a15r_entry) { -ED_(PrelNum_Z36d23_closure); - FB_ - STK_CHK(1,1,5,0,0,0,1); - HEAP_CHK(1,(BH_HS+2),1); - SET_BH_HDR(Hp-(BH_HS+1),BH_UPD_info,0,(BH_VHS+2),0); - UPD_CAF(R1.p,Hp-(BH_HS+1)); - PUSH_STD_UPD_FRAME(Hp-(BH_HS+1),0,0); - RetReg=(StgRetAddr)UNVEC(ret_c1QZ,vtbl_c1QZ); - R1.p=PrelNum_Z36d23_closure; - SpB=SpB+5; - ENT_VIA_NODE(); - GRAN_EXEC(19,2,2,8,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -SET_STATIC_HDR(a15r_closure,a15r_info,0,static ,ID_RO_) - , (W_)0, (W_)0 -}; -IFN_(ret_c1R0) { -ED_RO_(PrelBase_IZh_con_info); -ED_(STBase_SZh_static_closure); -ED_RO_(PrelTup_Z40Z44Z41_inregs_info); -I_ s1Fz_; - FB_ - HEAP_CHK(0,(_FHS+1),0); - { - I_ _ccall_result; - CALLER_SAVE_Base - CALLER_SAVE_SpA - CALLER_SAVE_SuA - CALLER_SAVE_SpB - CALLER_SAVE_SuB - CALLER_SAVE_Ret - CALLER_SAVE_Hp - CALLER_SAVE_HpLim - _ccall_result = (a()); - CALLER_RESTORE_Base - CALLER_RESTORE_SpA - CALLER_RESTORE_SuA - CALLER_RESTORE_SpB - CALLER_RESTORE_SuB - CALLER_RESTORE_Ret - CALLER_RESTORE_Hp - CALLER_RESTORE_HpLim - CALLER_RESTORE_StdUpdRetVec - CALLER_RESTORE_StkStub - s1Fz_=_ccall_result; - } - SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0); - *Hp=(W_)(s1Fz_); - R4.p=STBase_SZh_static_closure; - R3.p=Hp-_FHS; - SpB=SpB-1; - R2.d=PrelTup_Z40Z44Z41_inregs_info; - GRAN_EXEC(10,2,21,22,0); - JMP_(DIRECT((StgRetAddr)(SpB[1]))); - FE_ -} -UNVECTBL(static,vtbl_c1R0,ret_c1R0) -STATIC_ITBL(Test_a_info,Test_a_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0); -FN_(Test_a_entry) { -ED_(Test_a_closure); -EF_(Test_a_fast1); - FB_ - ARGS_CHK_A_LOAD_NODE(1,Test_a_closure); - R1.p=*SpA; - SpA=SpA+1; - GRAN_EXEC(5,2,1,0,0); - JMP_(Test_a_fast1); - FE_ -} -FN_(Test_a_fast1) { - FB_ - STK_CHK(1,0,1,0,0,0,0); - SpB[1]=(W_)(RetReg); - RetReg=(StgRetAddr)UNVEC(ret_c1R0,vtbl_c1R0); - SpB=SpB+1; - ENT_VIA_NODE(); - GRAN_EXEC(3,1,1,1,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -SET_STATIC_HDR(Test_a_closure,Test_a_info,0,,ED_RO_) -}; -IFN_(ret_c1R3) { -ED_RO_(PrelBase_IZh_con_info); -ED_(STBase_SZh_static_closure); -ED_RO_(PrelTup_Z40Z44Z41_inregs_info); -I_ s1GN_; - FB_ - HEAP_CHK(0,(_FHS+1),0); - { - I_ _ccall_result; - I_ _ccall_arg1=R3.i; - CALLER_SAVE_Base - CALLER_SAVE_SpA - CALLER_SAVE_SuA - CALLER_SAVE_SpB - CALLER_SAVE_SuB - CALLER_SAVE_Ret - CALLER_SAVE_Hp - CALLER_SAVE_HpLim - _ccall_result = (b((_ccall_arg1))); - CALLER_RESTORE_Base - CALLER_RESTORE_SpA - CALLER_RESTORE_SuA - CALLER_RESTORE_SpB - CALLER_RESTORE_SuB - CALLER_RESTORE_Ret - CALLER_RESTORE_Hp - CALLER_RESTORE_HpLim - CALLER_RESTORE_StdUpdRetVec - CALLER_RESTORE_StkStub - s1GN_=_ccall_result; - } - SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0); - *Hp=(W_)(s1GN_); - R4.p=STBase_SZh_static_closure; - R3.p=Hp-_FHS; - SpB=SpB-1; - R2.d=PrelTup_Z40Z44Z41_inregs_info; - GRAN_EXEC(10,2,22,22,0); - JMP_(DIRECT((StgRetAddr)(SpB[1]))); - FE_ -} -UNVECTBL(static,vtbl_c1R3,ret_c1R3) -IFN_(ret_c1R2) { - FB_ - RetReg=(StgRetAddr)UNVEC(ret_c1R3,vtbl_c1R3); - R1.p=*SpA; - SpA=SpA+1; - ENT_VIA_NODE(); - GRAN_EXEC(3,1,2,1,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -UNVECTBL(static,vtbl_c1R2,ret_c1R2) -SPEC_N_ITBL(c1Qp_info,c1Qp_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0); -IFN_(c1Qp_entry) { -IF_(c1Qp_fast1); - FB_ - ARGS_CHK_A(1); - R2.p=*SpA; - SpA=SpA+1; - GRAN_EXEC(5,2,1,0,0); - JMP_(c1Qp_fast1); - FE_ -} -IFN_(c1Qp_fast1) { - FB_ - STK_CHK(3,1,1,0,0,0,1); - SpB[1]=(W_)(RetReg); - RetReg=(StgRetAddr)UNVEC(ret_c1R2,vtbl_c1R2); - SpA[-1]=(P_)(R1.p[_FHS]); - R1=R2; - SpA=SpA-1; - SpB=SpB+1; - ENT_VIA_NODE(); - GRAN_EXEC(5,1,2,2,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -STATIC_ITBL(Test_b_info,Test_b_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0); -FN_(Test_b_entry) { -ED_(Test_b_closure); -EF_(Test_b_fast1); - FB_ - ARGS_CHK_A_LOAD_NODE(1,Test_b_closure); - R1.p=*SpA; - SpA=SpA+1; - GRAN_EXEC(5,2,1,0,0); - JMP_(Test_b_fast1); - FE_ -} -FN_(Test_b_fast1) { -ID_RO_(c1Qp_info); -IF_(c1Qp_entry); - FB_ - HEAP_CHK(1,(_FHS+1),0); - SET_SPEC_HDR(Hp-_FHS,c1Qp_info,0,1,1); - *Hp=(W_)(R1.p); - R1.p=Hp-_FHS; - GRAN_EXEC(5,2,0,2,0); - JMP_(c1Qp_entry); - FE_ -} -SET_STATIC_HDR(Test_b_closure,Test_b_info,0,,ED_RO_) -}; -IFN_(ret_c1R9) { -ED_RO_(PrelBase_FZh_con_info); -ED_(STBase_SZh_static_closure); -ED_RO_(PrelTup_Z40Z44Z41_inregs_info); -StgFloat s1IC_; - FB_ - HEAP_CHK(0,(_FHS+1),0); - { - StgFloat _ccall_result; - I_ _ccall_arg1=(I_)(SpB[-2]); - StgChar _ccall_arg2=(StgChar)(SpB[-1]); - StgFloat _ccall_arg3=PK_FLT(SpB); - StgDouble _ccall_arg4=DblReg1; - CALLER_SAVE_Base - CALLER_SAVE_SpA - CALLER_SAVE_SuA - CALLER_SAVE_SpB - CALLER_SAVE_SuB - CALLER_SAVE_Ret - CALLER_SAVE_Hp - CALLER_SAVE_HpLim - _ccall_result = (c((_ccall_arg1),(_ccall_arg2),(_ccall_arg3),(_ccall_arg4))); - CALLER_RESTORE_Base - CALLER_RESTORE_SpA - CALLER_RESTORE_SuA - CALLER_RESTORE_SpB - CALLER_RESTORE_SuB - CALLER_RESTORE_Ret - CALLER_RESTORE_Hp - CALLER_RESTORE_HpLim - CALLER_RESTORE_StdUpdRetVec - CALLER_RESTORE_StkStub - s1IC_=_ccall_result; - } - SET_SPEC_HDR(Hp-_FHS,PrelBase_FZh_con_info,0,1,0); - ASSIGN_FLT(Hp,s1IC_); - R4.p=STBase_SZh_static_closure; - R3.p=Hp-_FHS; - SpB=SpB-4; - R2.d=PrelTup_Z40Z44Z41_inregs_info; - GRAN_EXEC(10,2,25,22,0); - JMP_(DIRECT((StgRetAddr)(SpB[1]))); - FE_ -} -UNVECTBL(static,vtbl_c1R9,ret_c1R9) -IFN_(ret_c1R8) { - FB_ - RetReg=(StgRetAddr)UNVEC(ret_c1R9,vtbl_c1R9); - R1.p=*SpA; - ASSIGN_FLT(SpB+1,FltReg1); - SpA=SpA+4; - SpB=SpB+1; - ENT_VIA_NODE(); - GRAN_EXEC(4,1,2,1,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -UNVECTBL(static,vtbl_c1R8,ret_c1R8) -IFN_(ret_c1R7) { - FB_ - RetReg=(StgRetAddr)UNVEC(ret_c1R8,vtbl_c1R8); - R1.p=SpA[1]; - SpB[1]=(W_)(R3.c); - SpA[1]=StkStubReg; - SpB=SpB+1; - ENT_VIA_NODE(); - GRAN_EXEC(3,1,2,2,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -UNVECTBL(static,vtbl_c1R7,ret_c1R7) -IFN_(ret_c1R6) { - FB_ - RetReg=(StgRetAddr)UNVEC(ret_c1R7,vtbl_c1R7); - R1.p=SpA[2]; - SpB[1]=(W_)(R3.i); - SpA[2]=StkStubReg; - SpB=SpB+1; - ENT_VIA_NODE(); - GRAN_EXEC(3,1,2,2,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -UNVECTBL(static,vtbl_c1R6,ret_c1R6) -IFN_(ret_c1R5) { - FB_ - RetReg=(StgRetAddr)UNVEC(ret_c1R6,vtbl_c1R6); - R1.p=SpA[3]; - SpA[3]=StkStubReg; - ENT_VIA_NODE(); - GRAN_EXEC(2,1,2,2,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -UNVECTBL(static,vtbl_c1R5,ret_c1R5) -SPEC_N_ITBL(c1PP_info,c1PP_entry,StdErrorCode,1,-1,4,4,static const,IF_,0,0,0); -IFN_(c1PP_entry) { -IF_(c1PP_fast1); - FB_ - ARGS_CHK_A(1); - R2.p=*SpA; - SpA=SpA+1; - GRAN_EXEC(5,2,1,0,0); - JMP_(c1PP_fast1); - FE_ -} -IFN_(c1PP_fast1) { - FB_ - STK_CHK(3,4,4,0,0,0,1); - SpB[1]=(W_)(RetReg); - RetReg=(StgRetAddr)UNVEC(ret_c1R5,vtbl_c1R5); - SpA[-4]=(P_)(R1.p[(_FHS+3)]); - SpA[-3]=(P_)(R1.p[(_FHS+2)]); - SpA[-2]=(P_)(R1.p[(_FHS+1)]); - SpA[-1]=(P_)(R1.p[_FHS]); - R1=R2; - SpA=SpA-4; - SpB=SpB+1; - ENT_VIA_NODE(); - GRAN_EXEC(5,1,5,5,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -STATIC_ITBL(Test_c_info,Test_c_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0); -FN_(Test_c_entry) { -ED_(Test_c_closure); -EF_(Test_c_fast4); - FB_ - ARGS_CHK_A_LOAD_NODE(4,Test_c_closure); - R1.p=*SpA; - R2.p=SpA[1]; - R3.p=SpA[2]; - R4.p=SpA[3]; - SpA=SpA+4; - GRAN_EXEC(5,2,4,0,0); - JMP_(Test_c_fast4); - FE_ -} -FN_(Test_c_fast4) { -ID_RO_(c1PP_info); -IF_(c1PP_entry); - FB_ - HEAP_CHK(15,(_FHS+4),0); - SET_SPEC_HDR(Hp-(_FHS+3),c1PP_info,0,4,4); - Hp[-3]=(W_)(R1.p); - Hp[-2]=(W_)(R2.p); - Hp[-1]=(W_)(R3.p); - *Hp=(W_)(R4.p); - R1.p=Hp-(_FHS+3); - GRAN_EXEC(5,2,0,5,0); - JMP_(c1PP_entry); - FE_ -} -SET_STATIC_HDR(Test_c_closure,Test_c_info,0,,ED_RO_) -}; -IFN_(ret_c1Rc) { -ED_RO_(PrelBase_IZh_con_info); -ED_(STBase_SZh_static_closure); -ED_RO_(PrelTup_Z40Z44Z41_inregs_info); -I_ s1K9_; - FB_ - HEAP_CHK(0,(_FHS+1),0); - { - I_ _ccall_result; - I_ _ccall_arg1=R3.i; - CALLER_SAVE_Base - CALLER_SAVE_SpA - CALLER_SAVE_SuA - CALLER_SAVE_SpB - CALLER_SAVE_SuB - CALLER_SAVE_Ret - CALLER_SAVE_Hp - CALLER_SAVE_HpLim - _ccall_result = (b((_ccall_arg1))); - CALLER_RESTORE_Base - CALLER_RESTORE_SpA - CALLER_RESTORE_SuA - CALLER_RESTORE_SpB - CALLER_RESTORE_SuB - CALLER_RESTORE_Ret - CALLER_RESTORE_Hp - CALLER_RESTORE_HpLim - CALLER_RESTORE_StdUpdRetVec - CALLER_RESTORE_StkStub - s1K9_=_ccall_result; - } - SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0); - *Hp=(W_)(s1K9_); - R4.p=STBase_SZh_static_closure; - R3.p=Hp-_FHS; - SpB=SpB-1; - R2.d=PrelTup_Z40Z44Z41_inregs_info; - GRAN_EXEC(10,2,22,22,0); - JMP_(DIRECT((StgRetAddr)(SpB[1]))); - FE_ -} -UNVECTBL(static,vtbl_c1Rc,ret_c1Rc) -IFN_(ret_c1Rb) { - FB_ - RetReg=(StgRetAddr)UNVEC(ret_c1Rc,vtbl_c1Rc); - R1.p=*SpA; - SpA=SpA+1; - ENT_VIA_NODE(); - GRAN_EXEC(3,1,2,1,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -UNVECTBL(static,vtbl_c1Rb,ret_c1Rb) -SPEC_N_ITBL(s1KM_info,s1KM_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0); -IFN_(s1KM_entry) { -IF_(s1KM_fast1); - FB_ - ARGS_CHK_A(1); - R2.p=*SpA; - SpA=SpA+1; - GRAN_EXEC(5,2,1,0,0); - JMP_(s1KM_fast1); - FE_ -} -IFN_(s1KM_fast1) { - FB_ - STK_CHK(3,1,1,0,0,0,1); - SpB[1]=(W_)(RetReg); - RetReg=(StgRetAddr)UNVEC(ret_c1Rb,vtbl_c1Rb); - SpA[-1]=(P_)(R1.p[_FHS]); - R1=R2; - SpA=SpA-1; - SpB=SpB+1; - ENT_VIA_NODE(); - GRAN_EXEC(5,1,2,2,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -IFN_(ret_c1Rh) { -ED_RO_(PrelBase_FZh_con_info); -ED_(STBase_SZh_static_closure); -ED_RO_(PrelTup_Z40Z44Z41_inregs_info); -StgFloat s1LF_; - FB_ - HEAP_CHK(0,(_FHS+1),0); - { - StgFloat _ccall_result; - I_ _ccall_arg1=(I_)(SpB[-1]); - StgChar _ccall_arg2=(C_)'f'; - StgFloat _ccall_arg3=PK_FLT(SpB); - StgDouble _ccall_arg4=DblReg1; - CALLER_SAVE_Base - CALLER_SAVE_SpA - CALLER_SAVE_SuA - CALLER_SAVE_SpB - CALLER_SAVE_SuB - CALLER_SAVE_Ret - CALLER_SAVE_Hp - CALLER_SAVE_HpLim - _ccall_result = (c((_ccall_arg1),(_ccall_arg2),(_ccall_arg3),(_ccall_arg4))); - CALLER_RESTORE_Base - CALLER_RESTORE_SpA - CALLER_RESTORE_SuA - CALLER_RESTORE_SpB - CALLER_RESTORE_SuB - CALLER_RESTORE_Ret - CALLER_RESTORE_Hp - CALLER_RESTORE_HpLim - CALLER_RESTORE_StdUpdRetVec - CALLER_RESTORE_StkStub - s1LF_=_ccall_result; - } - SET_SPEC_HDR(Hp-_FHS,PrelBase_FZh_con_info,0,1,0); - ASSIGN_FLT(Hp,s1LF_); - R4.p=STBase_SZh_static_closure; - R3.p=Hp-_FHS; - SpB=SpB-3; - R2.d=PrelTup_Z40Z44Z41_inregs_info; - GRAN_EXEC(11,2,24,22,0); - JMP_(DIRECT((StgRetAddr)(SpB[1]))); - FE_ -} -UNVECTBL(static,vtbl_c1Rh,ret_c1Rh) -IFN_(ret_c1Rg) { -ID_(a15t_closure); - FB_ - RetReg=(StgRetAddr)UNVEC(ret_c1Rh,vtbl_c1Rh); - R1.p=a15t_closure; - ASSIGN_FLT(SpB+1,FltReg1); - SpB=SpB+1; - ENT_VIA_NODE(); - GRAN_EXEC(5,1,1,1,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -UNVECTBL(static,vtbl_c1Rg,ret_c1Rg) -IFN_(ret_c1Rf) { -ID_(a15r_closure); - FB_ - RetReg=(StgRetAddr)UNVEC(ret_c1Rg,vtbl_c1Rg); - R1.p=a15r_closure; - SpB[1]=(W_)(R3.i); - SpB=SpB+1; - ENT_VIA_NODE(); - GRAN_EXEC(5,1,1,1,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -UNVECTBL(static,vtbl_c1Rf,ret_c1Rf) -IFN_(ret_c1Re) { - FB_ - RetReg=(StgRetAddr)UNVEC(ret_c1Rf,vtbl_c1Rf); - R1.p=*SpA; - SpA=SpA+1; - ENT_VIA_NODE(); - GRAN_EXEC(3,1,2,1,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -UNVECTBL(static,vtbl_c1Re,ret_c1Re) -SPEC_N_ITBL(c1OR_info,c1OR_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0); -IFN_(c1OR_entry) { -IF_(c1OR_fast1); - FB_ - ARGS_CHK_A(1); - R2.p=*SpA; - SpA=SpA+1; - GRAN_EXEC(5,2,1,0,0); - JMP_(c1OR_fast1); - FE_ -} -IFN_(c1OR_fast1) { - FB_ - STK_CHK(3,1,3,0,0,0,1); - SpB[1]=(W_)(RetReg); - RetReg=(StgRetAddr)UNVEC(ret_c1Re,vtbl_c1Re); - SpA[-1]=(P_)(R1.p[_FHS]); - R1=R2; - SpA=SpA-1; - SpB=SpB+1; - ENT_VIA_NODE(); - GRAN_EXEC(5,1,2,2,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -SPEC_N_ITBL(s1M6_info,s1M6_entry,StdErrorCode,1,-1,1,0,static const,IF_,0,0,0); -IFN_(s1M6_entry) { -IF_(s1M6_fast1); - FB_ - ARGS_CHK_A(1); - R2.p=*SpA; - SpA=SpA+1; - GRAN_EXEC(5,2,1,0,0); - JMP_(s1M6_fast1); - FE_ -} -IFN_(s1M6_fast1) { -ID_RO_(c1OR_info); -IF_(c1OR_entry); - FB_ - HEAP_CHK(3,(_FHS+1),1); - SET_SPEC_HDR(Hp-_FHS,c1OR_info,0,1,1); - *Hp=(W_)(R2.p); - R1.p=Hp-_FHS; - GRAN_EXEC(5,2,0,2,0); - JMP_(c1OR_entry); - FE_ -} -SPEC_N_ITBL(s1Ma_info,s1Ma_entry,StdErrorCode,1,-1,1,0,static const,IF_,0,0,0); -IFN_(s1Ma_entry) { -IF_(s1Ma_fast1); - FB_ - ARGS_CHK_A(1); - R2.p=*SpA; - SpA=SpA+1; - GRAN_EXEC(5,2,1,0,0); - JMP_(s1Ma_fast1); - FE_ -} -IFN_(s1Ma_fast1) { -ID_RO_(s1KM_info); -ID_RO_(s1M6_info); -ED_(STBase_thenPrimIO_closure); - FB_ - STK_CHK(3,2,0,0,0,0,1); - HEAP_CHK(3,((_FHS*2)+2),1); - SET_SPEC_HDR(Hp-((_FHS*2)+1),s1KM_info,0,1,1); - Hp[-(_FHS+1)]=(W_)(R2.p); - SET_SPEC_HDR(Hp-_FHS,s1M6_info,0,1,0); - SpA[-1]=Hp-_FHS; - SpA[-2]=Hp-((_FHS*2)+1); - R1.p=STBase_thenPrimIO_closure; - SpA=SpA-2; - ENT_VIA_NODE(); - GRAN_EXEC(9,2,3,5,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -STATIC_ITBL(Test_d_info,Test_d_entry,StdErrorCode,1,-1,(STATIC_VHS+2),0,const,EF_,0,0,0); -FN_(Test_d_entry) { -ID_RO_(s1Ma_info); -ED_(Test_a_closure); -ED_(STBase_thenPrimIO_closure); - FB_ - STK_CHK(1,2,4,0,0,0,1); - HEAP_CHK(1,(BH_HS+_FHS+3),1); - SET_BH_HDR(Hp-(BH_HS+_FHS+2),BH_UPD_info,0,(BH_VHS+2),0); - UPD_CAF(R1.p,Hp-(BH_HS+_FHS+2)); - PUSH_STD_UPD_FRAME(Hp-(BH_HS+_FHS+2),0,0); - SET_SPEC_HDR(Hp-_FHS,s1Ma_info,0,1,0); - SpA[-1]=Hp-_FHS; - SpA[-2]=Test_a_closure; - RetReg=StdUpdRetVecReg; - R1.p=STBase_thenPrimIO_closure; - SpA=SpA-2; - SpB=SpB+4; - ENT_VIA_NODE(); - GRAN_EXEC(23,2,3,11,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -SET_STATIC_HDR(Test_d_closure,Test_d_info,0,,ED_RO_) - , (W_)0, (W_)0 -}; ghc: module version changed to 1; reason: no old .hi file diff --git a/ghc/tests/ccall/should_compile/cc006.stderr b/ghc/tests/ccall/should_compile/cc006.stderr index 8717e5c..e375ede 100644 --- a/ghc/tests/ccall/should_compile/cc006.stderr +++ b/ghc/tests/ccall/should_compile/cc006.stderr @@ -1,431 +1 @@ - - -================================================================================ -STG syntax: -a{-r5u,x-} = - [] \r [$x0_s1iK] - case $x0_s1iK ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} of { - -- lvs: [$x0_s1iK]; rhs lvs: []; uniq: c1pz - STBase.S#{-5D,w-}{i} $x1_s1jb -> - case - _ccall_ a [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-})]# [$x1_s1jb] ::STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-} - of { - -- lvs: [$x1_s1jb]; rhs lvs: []; uniq: c1pA - STBase.StateAndInt#{-5v,w-}{i} $x2_s1jl $x3_s1ja -> - let { $x4_s1jL = PrelBase.I#{-5b,w-}{i}! [$x3_s1ja]; } in - let { $x5_s1jK = STBase.S#{-5D,w-}{i}! [$x2_s1jl]; - } in PrelTup.(,){-62,w-}{i}! [$x4_s1jL $x5_s1jK]; - }; - }; -b{-r5v,x-} = - [] \r [$x0_s1jJ] - case $x0_s1jJ ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} of { - -- lvs: [$x0_s1jJ]; rhs lvs: []; uniq: c1pB - STBase.S#{-5D,w-}{i} $x1_s1kc -> - case - _ccall_ b [(Foreign.StateAndStablePtr#{-3J,W-} GHC.RealWorld{-3s,W-} PrelBase.Int{-3g,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-})]# [$x1_s1kc] ::Foreign.StateAndStablePtr#{-3J,W-} GHC.RealWorld{-3s,W-} PrelBase.Int{-3g,W-} - of { - -- lvs: [$x1_s1kc]; rhs lvs: []; uniq: c1pC - Foreign.StateAndStablePtr#{-5B,w-}{i} $x2_s1km $x3_s1kb -> - let { $x4_s1kO = Foreign.StablePtr{-5o,w-}{i}! [$x3_s1kb]; } in - let { $x5_s1kN = STBase.S#{-5D,w-}{i}! [$x2_s1km]; - } in PrelTup.(,){-62,w-}{i}! [$x4_s1kO $x5_s1kN]; - }; - }; -c{-r5w,x-} = - [] \r [$x0_s1kX] - let { - stg_c1oM = - (False, True, False, False, True) [$x0_s1kX] \r [$x1_s1kM] - case - $x1_s1kM{-lvs:$x0_s1kX-} ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - of { - -- lvs: [$x1_s1kM $x0_s1kX]; rhs lvs: [$x0_s1kX]; uniq: c1pD - STBase.S#{-5D,w-}{i} $x2_s1kY -> - case $x0_s1kX{-lvs:$x2_s1kY-} ::Foreign.ForeignObj{-3l,W-} of { - -- lvs: [$x0_s1kX $x2_s1kY]; rhs lvs: [$x2_s1kY]; uniq: c1pE - Foreign.ForeignObj{-5f,w-}{i} $x3_s1lo -> - case - _ccall_ c [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) GHC.ForeignObj#{-3k,W-}]# [$x2_s1kY $x3_s1lo] ::STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-} - of { - -- lvs: [$x2_s1kY $x3_s1lo]; rhs lvs: []; uniq: c1pF - STBase.StateAndInt#{-5v,w-}{i} $x4_s1lz $x5_s1lp -> - let { $x6_s1m3 = PrelBase.I#{-5b,w-}{i}! [$x5_s1lp]; } in - let { $x7_s1m2 = STBase.S#{-5D,w-}{i}! [$x4_s1lz]; - } in PrelTup.(,){-62,w-}{i}! [$x6_s1m3 $x7_s1m2]; - }; - }; - }; - } in stg_c1oM; -d{-r5x,x-} = - [] \r [$x0_s1mc] - let { - stg_c1oc = - (False, True, False, False, True) [$x0_s1mc] \r [$x1_s1m1] - case - $x1_s1m1{-lvs:$x0_s1mc-} ::STBase.State{-3M,W-} GHC.RealWorld{-3s,W-} - of { - -- lvs: [$x1_s1m1 $x0_s1mc]; rhs lvs: [$x0_s1mc]; uniq: c1pG - STBase.S#{-5D,w-}{i} $x2_s1md -> - case - $x0_s1mc{-lvs:$x2_s1md-} ::Foreign.StablePtr{-3w,W-} PrelBase.Int{-3g,W-} - of { - -- lvs: [$x0_s1mc $x2_s1md]; rhs lvs: [$x2_s1md]; uniq: c1pH - Foreign.StablePtr{-5o,w-}{i} $x3_s1mD -> - case - _ccall_ d [(STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-}) (GHC.State#{-3L,W-} GHC.RealWorld{-3s,W-}) (GHC.StablePtr#{-3v,W-} PrelBase.Int{-3g,W-})]# [$x2_s1md $x3_s1mD] ::STBase.StateAndInt#{-3D,W-} GHC.RealWorld{-3s,W-} - of { - -- lvs: [$x2_s1md $x3_s1mD]; rhs lvs: []; uniq: c1pI - STBase.StateAndInt#{-5v,w-}{i} $x4_s1mO $x5_s1mE -> - let { $x6_s1n5 = PrelBase.I#{-5b,w-}{i}! [$x5_s1mE]; } in - let { $x7_s1n6 = STBase.S#{-5D,w-}{i}! [$x4_s1mO]; - } in PrelTup.(,){-62,w-}{i}! [$x6_s1n5 $x7_s1n6]; - }; - }; - }; - } in stg_c1oc; - - -================================================================================ -Flat Abstract C: -IFN_(ret_c1pz) { -ED_RO_(PrelBase_IZh_con_info); -ED_(STBase_SZh_static_closure); -ED_RO_(PrelTup_Z40Z44Z41_inregs_info); -I_ s1ja_; - FB_ - HEAP_CHK(0,(_FHS+1),0); - { - I_ _ccall_result; - CALLER_SAVE_Base - CALLER_SAVE_SpA - CALLER_SAVE_SuA - CALLER_SAVE_SpB - CALLER_SAVE_SuB - CALLER_SAVE_Ret - CALLER_SAVE_Hp - CALLER_SAVE_HpLim - _ccall_result = (a()); - CALLER_RESTORE_Base - CALLER_RESTORE_SpA - CALLER_RESTORE_SuA - CALLER_RESTORE_SpB - CALLER_RESTORE_SuB - CALLER_RESTORE_Ret - CALLER_RESTORE_Hp - CALLER_RESTORE_HpLim - CALLER_RESTORE_StdUpdRetVec - CALLER_RESTORE_StkStub - s1ja_=_ccall_result; - } - SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0); - *Hp=(W_)(s1ja_); - R4.p=STBase_SZh_static_closure; - R3.p=Hp-_FHS; - SpB=SpB-1; - R2.d=PrelTup_Z40Z44Z41_inregs_info; - GRAN_EXEC(10,2,21,22,0); - JMP_(DIRECT((StgRetAddr)(SpB[1]))); - FE_ -} -UNVECTBL(static,vtbl_c1pz,ret_c1pz) -STATIC_ITBL(Test_a_info,Test_a_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0); -FN_(Test_a_entry) { -ED_(Test_a_closure); -EF_(Test_a_fast1); - FB_ - ARGS_CHK_A_LOAD_NODE(1,Test_a_closure); - R1.p=*SpA; - SpA=SpA+1; - GRAN_EXEC(5,2,1,0,0); - JMP_(Test_a_fast1); - FE_ -} -FN_(Test_a_fast1) { - FB_ - STK_CHK(1,0,1,0,0,0,0); - SpB[1]=(W_)(RetReg); - RetReg=(StgRetAddr)UNVEC(ret_c1pz,vtbl_c1pz); - SpB=SpB+1; - ENT_VIA_NODE(); - GRAN_EXEC(3,1,1,1,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -SET_STATIC_HDR(Test_a_closure,Test_a_info,0,,ED_RO_) -}; -IFN_(ret_c1pB) { -ED_RO_(Foreign_StablePtr_con_info); -ED_(STBase_SZh_static_closure); -ED_RO_(PrelTup_Z40Z44Z41_inregs_info); -StgStablePtr s1kb_; - FB_ - HEAP_CHK(0,(_FHS+1),0); - { - StgStablePtr _ccall_result; - CALLER_SAVE_Base - CALLER_SAVE_SpA - CALLER_SAVE_SuA - CALLER_SAVE_SpB - CALLER_SAVE_SuB - CALLER_SAVE_Ret - CALLER_SAVE_Hp - CALLER_SAVE_HpLim - _ccall_result = (b()); - CALLER_RESTORE_Base - CALLER_RESTORE_SpA - CALLER_RESTORE_SuA - CALLER_RESTORE_SpB - CALLER_RESTORE_SuB - CALLER_RESTORE_Ret - CALLER_RESTORE_Hp - CALLER_RESTORE_HpLim - CALLER_RESTORE_StdUpdRetVec - CALLER_RESTORE_StkStub - s1kb_=_ccall_result; - } - SET_SPEC_HDR(Hp-_FHS,Foreign_StablePtr_con_info,0,1,0); - *Hp=(W_)(s1kb_); - R4.p=STBase_SZh_static_closure; - R3.p=Hp-_FHS; - SpB=SpB-1; - R2.d=PrelTup_Z40Z44Z41_inregs_info; - GRAN_EXEC(10,2,21,22,0); - JMP_(DIRECT((StgRetAddr)(SpB[1]))); - FE_ -} -UNVECTBL(static,vtbl_c1pB,ret_c1pB) -STATIC_ITBL(Test_b_info,Test_b_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0); -FN_(Test_b_entry) { -ED_(Test_b_closure); -EF_(Test_b_fast1); - FB_ - ARGS_CHK_A_LOAD_NODE(1,Test_b_closure); - R1.p=*SpA; - SpA=SpA+1; - GRAN_EXEC(5,2,1,0,0); - JMP_(Test_b_fast1); - FE_ -} -FN_(Test_b_fast1) { - FB_ - STK_CHK(1,0,1,0,0,0,0); - SpB[1]=(W_)(RetReg); - RetReg=(StgRetAddr)UNVEC(ret_c1pB,vtbl_c1pB); - SpB=SpB+1; - ENT_VIA_NODE(); - GRAN_EXEC(3,1,1,1,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -SET_STATIC_HDR(Test_b_closure,Test_b_info,0,,ED_RO_) -}; -IFN_(ret_c1pE) { -ED_RO_(PrelBase_IZh_con_info); -ED_(STBase_SZh_static_closure); -ED_RO_(PrelTup_Z40Z44Z41_inregs_info); -I_ s1lp_; - FB_ - HEAP_CHK(4,(_FHS+1),0); - { - I_ _ccall_result; - StgForeignObj _ccall_arg1=ForeignObj_CLOSURE_DATA(R3.p); - CALLER_SAVE_Base - CALLER_SAVE_SpA - CALLER_SAVE_SuA - CALLER_SAVE_SpB - CALLER_SAVE_SuB - CALLER_SAVE_Ret - CALLER_SAVE_Hp - CALLER_SAVE_HpLim - _ccall_result = (c((_ccall_arg1))); - CALLER_RESTORE_Base - CALLER_RESTORE_SpA - CALLER_RESTORE_SuA - CALLER_RESTORE_SpB - CALLER_RESTORE_SuB - CALLER_RESTORE_Ret - CALLER_RESTORE_Hp - CALLER_RESTORE_HpLim - CALLER_RESTORE_StdUpdRetVec - CALLER_RESTORE_StkStub - s1lp_=_ccall_result; - } - SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0); - *Hp=(W_)(s1lp_); - R4.p=STBase_SZh_static_closure; - R3.p=Hp-_FHS; - SpB=SpB-1; - R2.d=PrelTup_Z40Z44Z41_inregs_info; - GRAN_EXEC(10,2,22,22,0); - JMP_(DIRECT((StgRetAddr)(SpB[1]))); - FE_ -} -UNVECTBL(static,vtbl_c1pE,ret_c1pE) -IFN_(ret_c1pD) { - FB_ - RetReg=(StgRetAddr)UNVEC(ret_c1pE,vtbl_c1pE); - R1.p=*SpA; - SpA=SpA+1; - ENT_VIA_NODE(); - GRAN_EXEC(3,1,2,1,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -UNVECTBL(static,vtbl_c1pD,ret_c1pD) -SPEC_N_ITBL(c1oM_info,c1oM_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0); -IFN_(c1oM_entry) { -IF_(c1oM_fast1); - FB_ - ARGS_CHK_A(1); - R2.p=*SpA; - SpA=SpA+1; - GRAN_EXEC(5,2,1,0,0); - JMP_(c1oM_fast1); - FE_ -} -IFN_(c1oM_fast1) { - FB_ - STK_CHK(3,1,1,0,0,0,1); - SpB[1]=(W_)(RetReg); - RetReg=(StgRetAddr)UNVEC(ret_c1pD,vtbl_c1pD); - SpA[-1]=(P_)(R1.p[_FHS]); - R1=R2; - SpA=SpA-1; - SpB=SpB+1; - ENT_VIA_NODE(); - GRAN_EXEC(5,1,2,2,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -STATIC_ITBL(Test_c_info,Test_c_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0); -FN_(Test_c_entry) { -ED_(Test_c_closure); -EF_(Test_c_fast1); - FB_ - ARGS_CHK_A_LOAD_NODE(1,Test_c_closure); - R1.p=*SpA; - SpA=SpA+1; - GRAN_EXEC(5,2,1,0,0); - JMP_(Test_c_fast1); - FE_ -} -FN_(Test_c_fast1) { -ID_RO_(c1oM_info); -IF_(c1oM_entry); - FB_ - HEAP_CHK(1,(_FHS+1),0); - SET_SPEC_HDR(Hp-_FHS,c1oM_info,0,1,1); - *Hp=(W_)(R1.p); - R1.p=Hp-_FHS; - GRAN_EXEC(5,2,0,2,0); - JMP_(c1oM_entry); - FE_ -} -SET_STATIC_HDR(Test_c_closure,Test_c_info,0,,ED_RO_) -}; -IFN_(ret_c1pH) { -ED_RO_(PrelBase_IZh_con_info); -ED_(STBase_SZh_static_closure); -ED_RO_(PrelTup_Z40Z44Z41_inregs_info); -I_ s1mE_; - FB_ - HEAP_CHK(0,(_FHS+1),0); - { - I_ _ccall_result; - StgStablePtr _ccall_arg1=R3.i; - CALLER_SAVE_Base - CALLER_SAVE_SpA - CALLER_SAVE_SuA - CALLER_SAVE_SpB - CALLER_SAVE_SuB - CALLER_SAVE_Ret - CALLER_SAVE_Hp - CALLER_SAVE_HpLim - _ccall_result = (d((_ccall_arg1))); - CALLER_RESTORE_Base - CALLER_RESTORE_SpA - CALLER_RESTORE_SuA - CALLER_RESTORE_SpB - CALLER_RESTORE_SuB - CALLER_RESTORE_Ret - CALLER_RESTORE_Hp - CALLER_RESTORE_HpLim - CALLER_RESTORE_StdUpdRetVec - CALLER_RESTORE_StkStub - s1mE_=_ccall_result; - } - SET_SPEC_HDR(Hp-_FHS,PrelBase_IZh_con_info,0,1,0); - *Hp=(W_)(s1mE_); - R4.p=STBase_SZh_static_closure; - R3.p=Hp-_FHS; - SpB=SpB-1; - R2.d=PrelTup_Z40Z44Z41_inregs_info; - GRAN_EXEC(10,2,22,22,0); - JMP_(DIRECT((StgRetAddr)(SpB[1]))); - FE_ -} -UNVECTBL(static,vtbl_c1pH,ret_c1pH) -IFN_(ret_c1pG) { - FB_ - RetReg=(StgRetAddr)UNVEC(ret_c1pH,vtbl_c1pH); - R1.p=*SpA; - SpA=SpA+1; - ENT_VIA_NODE(); - GRAN_EXEC(3,1,2,1,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -UNVECTBL(static,vtbl_c1pG,ret_c1pG) -SPEC_N_ITBL(c1oc_info,c1oc_entry,StdErrorCode,1,-1,1,1,static const,IF_,0,0,0); -IFN_(c1oc_entry) { -IF_(c1oc_fast1); - FB_ - ARGS_CHK_A(1); - R2.p=*SpA; - SpA=SpA+1; - GRAN_EXEC(5,2,1,0,0); - JMP_(c1oc_fast1); - FE_ -} -IFN_(c1oc_fast1) { - FB_ - STK_CHK(3,1,1,0,0,0,1); - SpB[1]=(W_)(RetReg); - RetReg=(StgRetAddr)UNVEC(ret_c1pG,vtbl_c1pG); - SpA[-1]=(P_)(R1.p[_FHS]); - R1=R2; - SpA=SpA-1; - SpB=SpB+1; - ENT_VIA_NODE(); - GRAN_EXEC(5,1,2,2,0); - JMP_((P_)(ENTRY_CODE((D_)(INFO_PTR(R1.p))))); - FE_ -} -STATIC_ITBL(Test_d_info,Test_d_entry,StdErrorCode,1,-1,STATIC_VHS,0,const,EF_,0,0,0); -FN_(Test_d_entry) { -ED_(Test_d_closure); -EF_(Test_d_fast1); - FB_ - ARGS_CHK_A_LOAD_NODE(1,Test_d_closure); - R1.p=*SpA; - SpA=SpA+1; - GRAN_EXEC(5,2,1,0,0); - JMP_(Test_d_fast1); - FE_ -} -FN_(Test_d_fast1) { -ID_RO_(c1oc_info); -IF_(c1oc_entry); - FB_ - HEAP_CHK(1,(_FHS+1),0); - SET_SPEC_HDR(Hp-_FHS,c1oc_info,0,1,1); - *Hp=(W_)(R1.p); - R1.p=Hp-_FHS; - GRAN_EXEC(5,2,0,2,0); - JMP_(c1oc_entry); - FE_ -} -SET_STATIC_HDR(Test_d_closure,Test_d_info,0,,ED_RO_) -}; ghc: module version changed to 1; reason: no old .hi file diff --git a/ghc/tests/ccall/should_fail/cc002.stderr b/ghc/tests/ccall/should_fail/cc002.stderr index d74a23c..cb76ea3 100644 --- a/ghc/tests/ccall/should_fail/cc002.stderr +++ b/ghc/tests/ccall/should_fail/cc002.stderr @@ -3,5 +3,4 @@ cc002.hs:11: No instance for: `Foreign.CReturnable Foreign.ForeignObj' arising from the result of the _ccall_ to a at cc002.hs:11 When checking signature(s) for: `a' - Compilation had errors diff --git a/ghc/tests/ccall/should_fail/cc004.stderr b/ghc/tests/ccall/should_fail/cc004.stderr index bb07155..30d0497 100644 --- a/ghc/tests/ccall/should_fail/cc004.stderr +++ b/ghc/tests/ccall/should_fail/cc004.stderr @@ -1,9 +1,8 @@ cc004.hs:2: Cannot generalise these overloadings (in a _ccall_): - `Foreign.CReturnable taWQ' + `Foreign.CReturnable taWY' cc004.hs:2: Cannot generalise these overloadings (in a _ccall_): - `Foreign.CReturnable taXx' - + `Foreign.CReturnable taXF' Compilation had errors diff --git a/ghc/tests/codeGen/Makefile b/ghc/tests/codeGen/Makefile index 1d1e930..edb79ea 100644 --- a/ghc/tests/codeGen/Makefile +++ b/ghc/tests/codeGen/Makefile @@ -1,7 +1,7 @@ TOP = .. include $(TOP)/mk/boilerplate.mk -SUBDIRS = should_compile +SUBDIRS = should_run include $(TOP)/mk/target.mk diff --git a/ghc/tests/codeGen/should_run/Makefile b/ghc/tests/codeGen/should_run/Makefile index 8f072b0..fc249e3 100644 --- a/ghc/tests/codeGen/should_run/Makefile +++ b/ghc/tests/codeGen/should_run/Makefile @@ -1,21 +1,9 @@ TOP = ../.. include $(TOP)/mk/boilerplate.mk +include $(TOP)/mk/should_run.mk -HS_SRCS = $(wildcard *.hs) -BINS = $(patsubst %.o,%,$(HS_OBJS)) -RUNTESTS = $(patsubst %,%.run,$(BINS)) - -SRC_RUNTEST_OPTS += -o1 $*.stdout -o2 $*.stderr -x 0 HC_OPTS += -dcore-lint -all :: $(BINS) $(RUNTESTS) - -%.run : % - $(RUNTEST) $< $(RUNTEST_OPTS) - -% : %.o - $(HC) $(HC_OPTS) $< -o $@ - cg012_HC_OPTS = -fglasgow-exts cg015_HC_OPTS = -fglasgow-exts cg018_HC_OPTS = -fglasgow-exts diff --git a/ghc/tests/codeGen/should_run/cg025.stderr b/ghc/tests/codeGen/should_run/cg025.stderr index 37d409b..1be826f 100644 --- a/ghc/tests/codeGen/should_run/cg025.stderr +++ b/ghc/tests/codeGen/should_run/cg025.stderr @@ -1,4 +1,4 @@ -"cg025" +"cg025.bin" ["cg025.hs"] "/bin:/usr/bin:/users/ets/simonm/bin:/users/ets/simonm/bin/i386-unknown-freebsd2.2:/usr/local/bin:/usr/X11R6/bin:/usr/local/X11R6/bin:/local/fp/bin:/local/fp/bin/i386-unknown-freebsd2.2:/local/ets/go/i386-unknown-freebsd2.2:/local/fp/bin/i386-unknown-freebsd2.1.0:/local/ets/go/i386-unknown-freebsd2.1.0:/usr/local/teTeX/bin:/sbin:/usr/sbin" --!!! test various I/O Requests diff --git a/ghc/tests/codeGen/should_run/cg026.hs b/ghc/tests/codeGen/should_run/cg026.hs index c39dc41..8b11d63 100644 --- a/ghc/tests/codeGen/should_run/cg026.hs +++ b/ghc/tests/codeGen/should_run/cg026.hs @@ -135,6 +135,10 @@ test_floats fill_in arr_in# first# last# = if (first# ># last#) then returnST () +{- else let e = ((fromInt (I# first#)) * pi) + in trace (show e) $ writeFloatArray arr_in# (I# first#) e >> + fill_in arr_in# (first# +# 1#) last# +-} else writeFloatArray arr_in# (I# first#) ((fromInt (I# first#)) * pi) >> fill_in arr_in# (first# +# 1#) last# diff --git a/ghc/tests/deSugar/should_compile/Makefile b/ghc/tests/deSugar/should_compile/Makefile index d99249d..3785873 100644 --- a/ghc/tests/deSugar/should_compile/Makefile +++ b/ghc/tests/deSugar/should_compile/Makefile @@ -1,8 +1,8 @@ -TOP = ../../../.. +TOP = ../.. include $(TOP)/mk/boilerplate.mk include $(TOP)/mk/should_compile.mk -HC_OPTS += -noC -dcore-lint -ddump-ds +HC_OPTS += -noC -dcore-lint ds035_HC_OPTS = -fglasgow-exts diff --git a/ghc/tests/deSugar/should_compile/ds-wildcard.stderr b/ghc/tests/deSugar/should_compile/ds-wildcard.stderr index e65a5e1..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds-wildcard.stderr +++ b/ghc/tests/deSugar/should_compile/ds-wildcard.stderr @@ -1,16 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -x{-r1,x-} :: _forall_ [tak4] => tak4 -{-# L #-} -x{-r1,x-} = - _/\_ tak4 -> - _letrec_ { - x_ak2 :: tak4 - {-# L #-} - x_ak2 = - x_ak2; - } in x_ak2 -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds001.stderr b/ghc/tests/deSugar/should_compile/ds001.stderr index 853165b..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds001.stderr +++ b/ghc/tests/deSugar/should_compile/ds001.stderr @@ -1,119 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -c{-r3B,x-} :: _forall_ [takz] => takz -{-# L #-} -c{-r3B,x-} = - _/\_ takz -> - _letrec_ { - c_akx :: takz - {-# L #-} - c_akx = - c_akx; - } in c_akx -h{-r3E,x-} :: _forall_ - [talc tal8 tala] - => - talc -> tala -> tal8 -> tala -{-# L #-} -h{-r3E,x-} = - _/\_ talc tal8 tala -> - _letrec_ { - h_akB :: talc -> tala -> tal8 -> tala - {-# L #-} - h_akB = - \ x_r3u :: talc - {-# L #-} - x_r3u y_r3v :: tala - {-# L #-} - y_r3v -> - let { - f_r3x :: _forall_ [tal4 tal6] => tal6 -> tal4 -> tal6 - {-# L #-} - f_r3x = - _/\_ tal4 tal6 -> \ a_r3z :: tal6 - {-# L #-} - a_r3z b_r3A :: tal4 - {-# L #-} - b_r3A -> - a_r3z - } in f_r3x _@_ tal8 _@_ tala y_r3v; - } in h_akB -f{-r3H,x-} :: _forall_ [taln] => taln -> taln -{-# L #-} -f{-r3H,x-} = - _/\_ taln -> - _letrec_ { - f_ale :: taln -> taln - {-# L #-} - f_ale = - \ x_r3j :: taln - {-# L #-} - x_r3j -> - x_r3j; - } in f_ale -g{-r3G,x-} :: _forall_ - [talK talM talI] - => - talK -> talM -> talI -> talI -{-# L #-} -g{-r3G,x-} = - _/\_ talK talM talI -> - _letrec_ { - g_alp :: talK -> talM -> talI -> talI - {-# L #-} - g_alp = - \ x_r3l :: talK - {-# L #-} - x_r3l y_r3m :: talM - {-# L #-} - y_r3m z_r3n :: talI - {-# L #-} - z_r3n -> - f{-r3H,x-} _@_ talI z_r3n; - } in g_alp -j{-r3F,x-} :: _forall_ - [tami tame tamf tamg] - => - tamf -> tamg -> tami -> tame -> tame -{-# L #-} -j{-r3F,x-} = - _/\_ tami tame tamf tamg -> - _letrec_ { - j_alO :: tamf -> tamg -> tami -> tame -> tame - {-# L #-} - j_alO = - \ w_r3p :: tamf - {-# L #-} - w_r3p x_r3q :: tamg - {-# L #-} - x_r3q y_r3r :: tami - {-# L #-} - y_r3r z_r3s :: tame - {-# L #-} - z_r3s -> - g{-r3G,x-} _@_ tamf _@_ tamg _@_ tame w_r3p x_r3q z_r3s; - } in j_alO -b{-r3C,x-} :: _forall_ [tamo] => tamo -> tamo -{-# L #-} -b{-r3C,x-} = - _/\_ tamo -> - _letrec_ { - b_amk :: tamo -> tamo - {-# L #-} - b_amk = - f{-r3H,x-} _@_ tamo; - } in b_amk -a{-r3D,x-} :: _forall_ [tamu] => tamu -> tamu -{-# L #-} -a{-r3D,x-} = - _/\_ tamu -> - _letrec_ { - a_amq :: tamu -> tamu - {-# L #-} - a_amq = - b{-r3C,x-} _@_ tamu; - } in a_amq -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds002.stderr b/ghc/tests/deSugar/should_compile/ds002.stderr index a2a91d0..a023dac 100644 --- a/ghc/tests/deSugar/should_compile/ds002.stderr +++ b/ghc/tests/deSugar/should_compile/ds002.stderr @@ -7,68 +7,3 @@ ds002.hs:8: ds002.hs:9: Warning: Pattern match(es) completely overlapped in the definition of function `f' - - -================================================================================ -Desugared: -Rec { -f{-r3s,x-} :: _forall_ [takv] => takv -> takv -{-# L #-} -f{-r3s,x-} = - _/\_ takv -> - _letrec_ { - f_aki :: takv -> takv - {-# L #-} - f_aki = - \ x_r3e :: takv - {-# L #-} - x_r3e -> - x_r3e; - } in f_aki -g{-r3r,x-} :: _forall_ - [tale talg talc] - => - tale -> talg -> talc -> talc -{-# L #-} -g{-r3r,x-} = - _/\_ tale talg talc -> - _letrec_ { - g_akx :: tale -> talg -> talc -> talc - {-# L #-} - g_akx = - \ x_r3k :: tale - {-# L #-} - x_r3k y_r3l :: talg - {-# L #-} - y_r3l z_r3m :: talc - {-# L #-} - z_r3m -> - let { - fail_dpC :: talc - {-# L #-} - fail_dpC = - GHCerr.patError{-8r,w-} - _@_ talc _string_ "ds002.hs:11|function `g'" } in - let { fail_dpH :: talc - {-# L #-} - fail_dpH = - let { - z_r3q :: talc - {-# L #-} - z_r3q = - z_r3m } in - let { - y_r3p :: talg - {-# L #-} - y_r3p = - y_r3l } in - let { - x_r3o :: tale - {-# L #-} - x_r3o = - x_r3k - } in f{-r3s,x-} _@_ talc z_r3q - } in - f{-r3s,x-} _@_ talc z_r3m; - } in g_akx -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds003.stderr b/ghc/tests/deSugar/should_compile/ds003.stderr index 7c06692..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds003.stderr +++ b/ghc/tests/deSugar/should_compile/ds003.stderr @@ -1,58 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -f{-r3v,x-} :: _forall_ - [tayV taz7 taza tazl] - => - [tayV] -> (taz7, taza) -> PrelBase.Bool{-34,W-} -> [tazl] -{-# L #-} -f{-r3v,x-} = - _/\_ tayV taz7 taza tazl -> - _letrec_ { - f_ayi :: [tayV] - -> (taz7, taza) - -> PrelBase.Bool{-34,W-} - -> [tazl] - {-# L #-} - f_ayi = - \ ds_dDX :: [tayV] - {-# L #-} - ds_dDX y_r3d :: (taz7, taza) - {-# L #-} - y_r3d ds_dDY :: PrelBase.Bool{-34,W-} - {-# L #-} - ds_dDY -> - let { - fail_dEj :: [tazl] - {-# L #-} - fail_dEj = - case y_r3d of { PrelTup.(,){-62,w-}{i} y_r3h ys_r3i -> - let { - z_r3j :: PrelBase.Bool{-34,W-} - {-# L #-} - z_r3j = - ds_dDY } in - let { - a_r3g :: (taz7, taza) - {-# L #-} - a_r3g = - y_r3d } in - let { - x_r3f :: [tayV] - {-# L #-} - x_r3f = - ds_dDX - } in PrelBase.[]{-5i,w-}{i} _@_ tazl;} - } in - case ds_dDX of { - PrelBase.:{-55,w-}{i} ds_dEq ds_dEr -> fail_dEj; - PrelBase.[]{-5i,w-}{i} -> - case ds_dDY of { - PrelBase.False{-58,w-}{i} -> fail_dEj; - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ tazl; - }; - }; - } in f_ayi -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds004.stderr b/ghc/tests/deSugar/should_compile/ds004.stderr index 3f3a8fa..5154acf 100644 --- a/ghc/tests/deSugar/should_compile/ds004.stderr +++ b/ghc/tests/deSugar/should_compile/ds004.stderr @@ -1,78 +1,3 @@ ds004.hs:6: Warning: Possibly incomplete patterns in the definition of function `nodups' - - -================================================================================ -Desugared: -Rec { -nodups{-r3j,x-} :: _forall_ - [taBn] - => - {PrelBase.Eq{-23,p-} taBn} -> [taBn] -> [taBn] -{-# L #-} -nodups{-r3j,x-} = - _/\_ taBn -> \ d.Eq_aBp :: {PrelBase.Eq{-23,p-} taBn} - {-# L #-} - d.Eq_aBp -> - _letrec_ { - ==_aEE :: taBn -> taBn -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_aEE = - PrelBase.=={-8Y,p-} _@_ taBn d.Eq_aBp; - nodups_aAN :: [taBn] -> [taBn] - {-# L #-} - nodups_aAN = - \ ds_dF4 :: [taBn] - {-# L #-} - ds_dF4 -> - let { - fail_dF5 :: [taBn] - {-# L #-} - fail_dF5 = - GHCerr.patError{-8r,w-} - _@_ [taBn] _string_ "ds004.hs:6|function `nodups'" - } in - case ds_dF4 of { - PrelBase.[]{-5i,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taBn; - PrelBase.:{-55,w-}{i} x_r3e ds_dFm -> - case ds_dFm of { - PrelBase.[]{-5i,w-}{i} -> - let { - ds_dFC :: [taBn] - {-# L #-} - ds_dFC = - PrelBase.[]{-5i,w-}{i} {_@_ taBn} - } in PrelBase.:{-55,w-}{i} {_@_ taBn x_r3e ds_dFC}; - PrelBase.:{-55,w-}{i} x_r3h xs_r3i -> - let { - y_r3g :: taBn - {-# L #-} - y_r3g = - x_r3e - } in - case ==_aEE y_r3g x_r3h of { - PrelBase.True{-5E,w-}{i} -> - let { - ds_dG9 :: [taBn] - {-# L #-} - ds_dG9 = - PrelBase.:{-55,w-}{i} _@_ taBn x_r3h xs_r3i - } in nodups_aAN ds_dG9; - PrelBase.False{-58,w-}{i} -> - let { ds_dGB :: [taBn] - {-# L #-} - ds_dGB = - let { - ds_dGJ :: [taBn] - {-# L #-} - ds_dGJ = - PrelBase.:{-55,w-}{i} _@_ taBn x_r3h xs_r3i - } in nodups_aAN ds_dGJ - } in - PrelBase.:{-55,w-}{i} _@_ taBn y_r3g ds_dGB; - }; - }; - }; - } in nodups_aAN -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds005.stderr b/ghc/tests/deSugar/should_compile/ds005.stderr index 6b6de79..6c4bd83 100644 --- a/ghc/tests/deSugar/should_compile/ds005.stderr +++ b/ghc/tests/deSugar/should_compile/ds005.stderr @@ -1,151 +1,3 @@ ds005.hs:13: Warning: Possibly incomplete patterns in the definition of function `mappairs'' - - -================================================================================ -Desugared: -Rec { -mappairs'{-r3C,x-} :: _forall_ - [tal0 tal6 tala] - => - (tal0 -> tal6 -> tala) -> [tal0] -> [tal6] -> [tala] -{-# L #-} -mappairs'{-r3C,x-} = - _/\_ tal0 tal6 tala -> - _letrec_ { - mappairs'_akt :: (tal0 -> tal6 -> tala) - -> [tal0] - -> [tal6] - -> [tala] - {-# L #-} - mappairs'_akt = - \ f_r3r :: tal0 -> tal6 -> tala - {-# L #-} - f_r3r ds_dsz :: [tal0] - {-# L #-} - ds_dsz ys_r3s :: [tal6] - {-# L #-} - ys_r3s -> - let { - fail_dsE :: [tala] - {-# L #-} - fail_dsE = - GHCerr.patError{-8r,w-} - _@_ [tala] _string_ "ds005.hs:13|function `mappairs''" } in - let { fail_du4 :: [tala] - {-# L #-} - fail_du4 = - let { - fail_dtG :: [tala] - {-# L #-} - fail_dtG = - case ds_dsz of { - PrelBase.[]{-5i,w-}{i} -> fail_dsE; - PrelBase.:{-55,w-}{i} x_r3y xs_r3z -> - case ys_r3s of { - PrelBase.[]{-5i,w-}{i} -> fail_dsE; - PrelBase.:{-55,w-}{i} y_r3A ys_r3B -> - let { - f_r3x :: tal0 -> tal6 -> tala - {-# L #-} - f_r3x = - f_r3r } in - let { - ds_dtc :: tala - {-# L #-} - ds_dtc = - f_r3x x_r3y y_r3A } in - let { - ds_dtg :: [tala] - {-# L #-} - ds_dtg = - mappairs'_akt f_r3x xs_r3z ys_r3B - } in PrelBase.:{-55,w-}{i} _@_ tala ds_dtc ds_dtg; - }; - } - } in - case ys_r3s of { - PrelBase.:{-55,w-}{i} ds_dtN ds_dtO -> fail_dtG; - PrelBase.[]{-5i,w-}{i} -> - let { - x_r3v :: [tal0] - {-# L #-} - x_r3v = - ds_dsz } in - let { - f_r3u :: tal0 -> tal6 -> tala - {-# L #-} - f_r3u = - f_r3r - } in PrelBase.[]{-5i,w-}{i} _@_ tala; - } - } in - case ds_dsz of { - PrelBase.:{-55,w-}{i} ds_dub ds_duc -> fail_du4; - PrelBase.[]{-5i,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ tala; - }; - } in mappairs'_akt -mappairs{-r3D,x-} :: _forall_ - [talU tam0 tam4] - => - (talU -> tam0 -> tam4) -> [talU] -> [tam0] -> [tam4] -{-# L #-} -mappairs{-r3D,x-} = - _/\_ talU tam0 tam4 -> - _letrec_ { - mappairs_alj :: (talU -> tam0 -> tam4) - -> [talU] - -> [tam0] - -> [tam4] - {-# L #-} - mappairs_alj = - \ f_r3e :: talU -> tam0 -> tam4 - {-# L #-} - f_r3e ds_duF :: [talU] - {-# L #-} - ds_duF ys_r3f :: [tam0] - {-# L #-} - ys_r3f -> - case ds_duF of { - PrelBase.[]{-5i,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ tam4; - PrelBase.:{-55,w-}{i} x_r3i xs_r3j -> - case ys_r3f of { - PrelBase.[]{-5i,w-}{i} -> - let { - f_r3h :: talU -> tam0 -> tam4 - {-# L #-} - f_r3h = - f_r3e - } in PrelBase.[]{-5i,w-}{i} _@_ tam4; - PrelBase.:{-55,w-}{i} y_r3o ys_r3p -> - let { - xs_r3n :: [talU] - {-# L #-} - xs_r3n = - xs_r3j } in - let { - x_r3m :: talU - {-# L #-} - x_r3m = - x_r3i } in - let { - f_r3l :: talU -> tam0 -> tam4 - {-# L #-} - f_r3l = - f_r3e } in - let { - ds_dvs :: tam4 - {-# L #-} - ds_dvs = - f_r3l x_r3m y_r3o } in - let { - ds_dvw :: [tam4] - {-# L #-} - ds_dvw = - mappairs_alj f_r3l xs_r3n ys_r3p - } in PrelBase.:{-55,w-}{i} _@_ tam4 ds_dvs ds_dvw; - }; - }; - } in mappairs_alj -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds006.stderr b/ghc/tests/deSugar/should_compile/ds006.stderr index 588a5dd..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds006.stderr +++ b/ghc/tests/deSugar/should_compile/ds006.stderr @@ -1,28 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -v_aBI :: PrelBase.Int{-3g,W-} -{-# L #-} -v_aBI = - +_aDM v_aBI lit_aDN -v{-r1,x-} :: PrelBase.Int{-3g,W-} -{-# L #-} -v{-r1,x-} = - v_aBI -d.Num_aC2 :: {PrelBase.Num{-2c,p-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Num_aC2 = - PrelBase.$d4{-rao,p-} -+_aDM :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} -{-# L #-} -+_aDM = - PrelBase.+{-r9E,p-} _@_ PrelBase.Int{-3g,W-} d.Num_aC2 -lit_aDN :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_aDN = - PrelBase.I#{-5b,w-}{i} 1 -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds007.stderr b/ghc/tests/deSugar/should_compile/ds007.stderr index 016812a..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds007.stderr +++ b/ghc/tests/deSugar/should_compile/ds007.stderr @@ -1,26 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -w{-r3f,x-} :: _forall_ [takl] => [takl] -{-# L #-} -w{-r3f,x-} = - _/\_ takl -> - _letrec_ { - w_ak8 :: [takl] - {-# L #-} - w_ak8 = - let { - y_r3e :: _forall_ [takc] => [takc] - {-# L #-} - y_r3e = - _/\_ takc -> PrelBase.[]{-5i,w-}{i} _@_ takc } in - let { - a_r3d :: _forall_ [takj] => [takj] - {-# L #-} - a_r3d = - _/\_ takj -> y_r3e _@_ takj - } in a_r3d _@_ takl; - } in w_ak8 -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds008.stderr b/ghc/tests/deSugar/should_compile/ds008.stderr index efe8c70..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds008.stderr +++ b/ghc/tests/deSugar/should_compile/ds008.stderr @@ -1,95 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -f{-r3i,x-} :: _forall_ [taRU taRS] => taRU -> [taRS] -{-# L #-} -f{-r3i,x-} = - _/\_ taRU taRS -> - _letrec_ { - f_aRJ :: taRU -> [taRS] - {-# L #-} - f_aRJ = - \ x_r3f :: taRU - {-# L #-} - x_r3f -> - PrelBase.[]{-5i,w-}{i} _@_ taRS; - } in f_aRJ -g{-r3m,x-} :: _forall_ - [taSp taSe taSj taSl taSn] - => - taSp -> ([taSe], [taSj], [taSl], [taSn]) -{-# L #-} -g{-r3m,x-} = - _/\_ taSp taSe taSj taSl taSn -> - _letrec_ { - g_aRW :: taSp -> ([taSe], [taSj], [taSl], [taSn]) - {-# L #-} - g_aRW = - \ x_r3h :: taSp - {-# L #-} - x_r3h -> - let { ds_dWB :: [taSe] - {-# L #-} - ds_dWB = - let { - ds_dWZ :: [GHC.Void{-3T,W-}] - {-# L #-} - ds_dWZ = - PrelBase.[]{-5i,w-}{i} _@_ GHC.Void{-3T,W-} - } in f{-r3i,x-} _@_ [GHC.Void{-3T,W-}] _@_ taSe ds_dWZ - } in - let { - ds_dWF :: [taSj] - {-# L #-} - ds_dWF = - PrelBase.[]{-5i,w-}{i} _@_ taSj } in - let { - ds_dWJ :: [taSl] - {-# L #-} - ds_dWJ = - PrelBase.[]{-5i,w-}{i} _@_ taSl } in - let { - ds_dWN :: [taSn] - {-# L #-} - ds_dWN = - PrelBase.[]{-5i,w-}{i} _@_ taSn - } in - PrelTup.(,,,){-64,w-}{i} - {_@_ [taSe] - _@_ [taSj] - _@_ [taSl] - _@_ [taSn] - ds_dWB - ds_dWF - ds_dWJ - ds_dWN}; - } in g_aRW -h{-r3l,x-} :: _forall_ - [taSM taSB taSD taSF taSH] - => - taSM -> ([taSB], [taSD], [taSF], [taSH]) -{-# L #-} -h{-r3l,x-} = - _/\_ taSM taSB taSD taSF taSH -> - _letrec_ { - h_aSr :: taSM -> ([taSB], [taSD], [taSF], [taSH]) - {-# L #-} - h_aSr = - \ x_r3k :: taSM - {-# L #-} - x_r3k -> - g{-r3m,x-} - _@_ PrelBase.Int{-3g,W-} - _@_ taSB - _@_ taSD - _@_ taSF - _@_ taSH - lit_aVP; - } in h_aSr -lit_aVP :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_aVP = - PrelBase.I#{-5b,w-}{i} 1 -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds009.stderr b/ghc/tests/deSugar/should_compile/ds009.stderr index 7e9749f..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds009.stderr +++ b/ghc/tests/deSugar/should_compile/ds009.stderr @@ -1,350 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -j{-r3O,x-} :: _forall_ - [taS7 taSa aaSb taSf taSh] - => - {PrelBase.Monad{-28,p-} aaSb} - -> aaSb (taSf, taSh, taS7, taSa) - -> aaSb (taSf, taSh) -{-# L #-} -j{-r3O,x-} = - _/\_ taS7 taSa aaSb taSf taSh -> \ d.Monad_aSr :: {PrelBase.Monad{-28,p-} aaSb} - {-# L #-} - d.Monad_aSr -> - _letrec_ { - >>=_a17B :: _forall_ - [taVi taVh] - => - aaSb taVi -> (taVi -> aaSb taVh) -> aaSb taVh - {-# L #-} - >>=_a17B = - PrelBase.>>={-811,p-} _@_ aaSb d.Monad_aSr; - d.Monad_aSt :: {PrelBase.Monad{-28,p-} aaSb} - {-# L #-} - d.Monad_aSt = - d.Monad_aSr; - return_a17I :: _forall_ [taVj] => taVj -> aaSb taVj - {-# L #-} - return_a17I = - PrelBase.return{-816,p-} _@_ aaSb d.Monad_aSt; - j_aRN :: aaSb (taSf, taSh, taS7, taSa) -> aaSb (taSf, taSh) - {-# L #-} - j_aRN = - \ xs_r3I :: aaSb (taSf, taSh, taS7, taSa) - {-# L #-} - xs_r3I -> - let { - ds_d18A :: (taSf, taSh, taS7, taSa) -> aaSb (taSf, taSh) - {-# L #-} - ds_d18A = - \ ds_d18G :: (taSf, taSh, taS7, taSa) - {-# L #-} - ds_d18G -> - case - ds_d18G - of { - PrelTup.(,,,){-64,w-}{i} a_r3K b_r3L c_r3M d_r3N -> - let { - ds_d18U :: (taSf, taSh) - {-# L #-} - ds_d18U = - PrelTup.(,){-62,w-}{i} {_@_ taSf _@_ taSh a_r3K b_r3L} - } in return_a17I _@_ (taSf, taSh) ds_d18U;} - } in - >>=_a17B - _@_ (taSf, taSh, taS7, taSa) _@_ (taSf, taSh) xs_r3I ds_d18A; - } in j_aRN -i{-r3P,x-} :: _forall_ - [aaSN taSX taSZ] - => - {PrelBase.Eq{-23,p-} taSX} - -> {PrelBase.Eq{-23,p-} taSZ} - -> {PrelBase.MonadZero{-29,p-} aaSN} - -> aaSN ([taSX], [taSZ]) - -> aaSN [taSX] -{-# L #-} -i{-r3P,x-} = - _/\_ aaSN taSX taSZ -> \ d.Eq_aTf :: {PrelBase.Eq{-23,p-} taSX} - {-# L #-} - d.Eq_aTf d.Eq_aTi :: {PrelBase.Eq{-23,p-} taSZ} - {-# L #-} - d.Eq_aTi d.MonadZero_aTo :: {PrelBase.MonadZero{-29,p-} aaSN} - {-# L #-} - d.MonadZero_aTo -> - _letrec_ { - d.Monad_aTk :: {PrelBase.Monad{-28,p-} aaSN} - {-# L #-} - d.Monad_aTk = - PrelBase.scsel_MonadZeroPrelBaseMonad{-a19C,p-} - _@_ aaSN d.MonadZero_aTo; - d.Eq_aTd :: {PrelBase.Eq{-23,p-} [taSX]} - {-# L #-} - d.Eq_aTd = - PrelBase.$d28{-rpK,p-} _@_ taSX d.Eq_aTf; - d.Eq_aTg :: {PrelBase.Eq{-23,p-} [taSZ]} - {-# L #-} - d.Eq_aTg = - PrelBase.$d28{-rpK,p-} _@_ taSZ d.Eq_aTi; - d.Eq_aTb :: {PrelBase.Eq{-23,p-} ([taSX], [taSZ])} - {-# L #-} - d.Eq_aTb = - PrelTup.$d9{-rpg,p-} _@_ [taSX] _@_ [taSZ] d.Eq_aTd d.Eq_aTg; - ==_a19w :: ([taSX], [taSZ]) - -> ([taSX], [taSZ]) - -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a19w = - PrelBase.=={-8Y,p-} _@_ ([taSX], [taSZ]) d.Eq_aTb; - >>=_a19x :: _forall_ - [taVl taVk] - => - aaSN taVl -> (taVl -> aaSN taVk) -> aaSN taVk - {-# L #-} - >>=_a19x = - PrelBase.>>={-811,p-} _@_ aaSN d.Monad_aTk; - d.Monad_aTm :: {PrelBase.Monad{-28,p-} aaSN} - {-# L #-} - d.Monad_aTm = - d.Monad_aTk; - return_a19y :: _forall_ [taVm] => taVm -> aaSN taVm - {-# L #-} - return_a19y = - PrelBase.return{-816,p-} _@_ aaSN d.Monad_aTm; - zero_a19z :: _forall_ [taVn] => aaSN taVn - {-# L #-} - zero_a19z = - PrelBase.zero{-810,p-} _@_ aaSN d.MonadZero_aTo; - i_aSv :: aaSN ([taSX], [taSZ]) -> aaSN [taSX] - {-# L #-} - i_aSv = - \ xs_r3C :: aaSN ([taSX], [taSZ]) - {-# L #-} - xs_r3C -> - let { - ds_d1br :: ([taSX], [taSZ]) -> aaSN [taSX] - {-# L #-} - ds_d1br = - \ all_r3E :: ([taSX], [taSZ]) - {-# L #-} - all_r3E -> - case all_r3E of { PrelTup.(,){-62,w-}{i} x_r3F y_r3G -> - case - let { ds_d1bN :: ([taSX], [taSZ]) - {-# L #-} - ds_d1bN = - let { - ds_d1c0 :: [taSX] - {-# L #-} - ds_d1c0 = - PrelBase.[]{-5i,w-}{i} _@_ taSX } in - let { - ds_d1c4 :: [taSZ] - {-# L #-} - ds_d1c4 = - PrelBase.[]{-5i,w-}{i} _@_ taSZ - } in - PrelTup.(,){-62,w-}{i} {_@_ [taSX] _@_ [taSZ] ds_d1c0 ds_d1c4} - } in - ==_a19w all_r3E ds_d1bN - of { - PrelBase.True{-5E,w-}{i} -> return_a19y _@_ [taSX] x_r3F; - PrelBase.False{-58,w-}{i} -> zero_a19z _@_ [taSX]; - };} - } in >>=_a19x _@_ ([taSX], [taSZ]) _@_ [taSX] xs_r3C ds_d1br; - } in i_aSv -h{-r3Q,x-} :: _forall_ - [aaTE taTN] - => - {PrelBase.MonadZero{-29,p-} aaTE} - -> aaTE taTN - -> aaTE taTN - -> aaTE [taTN] -{-# L #-} -h{-r3Q,x-} = - _/\_ aaTE taTN -> \ d.MonadZero_aU1 :: {PrelBase.MonadZero{-29,p-} aaTE} - {-# L #-} - d.MonadZero_aU1 -> - _letrec_ { - d.Monad_aTX :: {PrelBase.Monad{-28,p-} aaTE} - {-# L #-} - d.Monad_aTX = - PrelBase.scsel_MonadZeroPrelBaseMonad{-a19C,p-} - _@_ aaTE d.MonadZero_aU1; - >>=_a1cX :: _forall_ - [taVp taVo] - => - aaTE taVp -> (taVp -> aaTE taVo) -> aaTE taVo - {-# L #-} - >>=_a1cX = - PrelBase.>>={-811,p-} _@_ aaTE d.Monad_aTX; - d.Monad_aTZ :: {PrelBase.Monad{-28,p-} aaTE} - {-# L #-} - d.Monad_aTZ = - d.Monad_aTX; - return_a1cY :: _forall_ [taVq] => taVq -> aaTE taVq - {-# L #-} - return_a1cY = - PrelBase.return{-816,p-} _@_ aaTE d.Monad_aTZ; - zero_a1cZ :: _forall_ [taVr] => aaTE taVr - {-# L #-} - zero_a1cZ = - PrelBase.zero{-810,p-} _@_ aaTE d.MonadZero_aU1; - h_aTr :: aaTE taTN -> aaTE taTN -> aaTE [taTN] - {-# L #-} - h_aTr = - \ xs_r3v :: aaTE taTN - {-# L #-} - xs_r3v ys_r3w :: aaTE taTN - {-# L #-} - ys_r3w -> - let { - ds_d1e0 :: taTN -> aaTE [taTN] - {-# L #-} - ds_d1e0 = - \ x_r3y :: taTN - {-# L #-} - x_r3y -> - let { - ds_d1eg :: taTN -> aaTE [taTN] - {-# L #-} - ds_d1eg = - \ y_r3A :: taTN - {-# L #-} - y_r3A -> - zero_a1cZ _@_ [taTN] - } in >>=_a1cX _@_ taTN _@_ [taTN] ys_r3w ds_d1eg - } in >>=_a1cX _@_ taTN _@_ [taTN] xs_r3v ds_d1e0; - } in h_aTr -g{-r3R,x-} :: _forall_ - [aaUm taUx taUz taUB] - => - {PrelBase.MonadZero{-29,p-} aaUm} - -> aaUm taUx - -> aaUm taUz - -> aaUm taUB - -> aaUm (taUx, taUz, taUB) -{-# L #-} -g{-r3R,x-} = - _/\_ aaUm taUx taUz taUB -> \ d.MonadZero_aUP :: {PrelBase.MonadZero{-29,p-} aaUm} - {-# L #-} - d.MonadZero_aUP -> - _letrec_ { - d.Monad_aUL :: {PrelBase.Monad{-28,p-} aaUm} - {-# L #-} - d.Monad_aUL = - PrelBase.scsel_MonadZeroPrelBaseMonad{-a19C,p-} - _@_ aaUm d.MonadZero_aUP; - >>=_a1eM :: _forall_ - [taVt taVs] - => - aaUm taVt -> (taVt -> aaUm taVs) -> aaUm taVs - {-# L #-} - >>=_a1eM = - PrelBase.>>={-811,p-} _@_ aaUm d.Monad_aUL; - d.Monad_aUN :: {PrelBase.Monad{-28,p-} aaUm} - {-# L #-} - d.Monad_aUN = - d.Monad_aUL; - return_a1eN :: _forall_ [taVu] => taVu -> aaUm taVu - {-# L #-} - return_a1eN = - PrelBase.return{-816,p-} _@_ aaUm d.Monad_aUN; - zero_a1eO :: _forall_ [taVv] => aaUm taVv - {-# L #-} - zero_a1eO = - PrelBase.zero{-810,p-} _@_ aaUm d.MonadZero_aUP; - g_aU4 :: aaUm taUx - -> aaUm taUz - -> aaUm taUB - -> aaUm (taUx, taUz, taUB) - {-# L #-} - g_aU4 = - \ xs_r3l :: aaUm taUx - {-# L #-} - xs_r3l ys_r3m :: aaUm taUz - {-# L #-} - ys_r3m zs_r3n :: aaUm taUB - {-# L #-} - zs_r3n -> - let { - ds_d1fQ :: taUx -> aaUm (taUx, taUz, taUB) - {-# L #-} - ds_d1fQ = - \ x_r3p :: taUx - {-# L #-} - x_r3p -> - let { - ds_d1g6 :: taUz -> aaUm (taUx, taUz, taUB) - {-# L #-} - ds_d1g6 = - \ y_r3r :: taUz - {-# L #-} - y_r3r -> - let { - ds_d1gm :: taUB -> aaUm (taUx, taUz, taUB) - {-# L #-} - ds_d1gm = - \ z_r3t :: taUB - {-# L #-} - z_r3t -> - let { - ds_d1gx :: (taUx, taUz, taUB) - {-# L #-} - ds_d1gx = - PrelTup.(,,){-63,w-}{i} - {_@_ taUx - _@_ taUz - _@_ taUB - x_r3p - y_r3r - z_r3t} - } in return_a1eN _@_ (taUx, taUz, taUB) ds_d1gx - } in >>=_a1eM _@_ taUB _@_ (taUx, taUz, taUB) zs_r3n ds_d1gm - } in >>=_a1eM _@_ taUz _@_ (taUx, taUz, taUB) ys_r3m ds_d1g6 - } in >>=_a1eM _@_ taUx _@_ (taUx, taUz, taUB) xs_r3l ds_d1fQ; - } in g_aU4 -f{-r3S,x-} :: _forall_ - [aaV0 taV2] - => - {PrelBase.Monad{-28,p-} aaV0} -> aaV0 taV2 -> aaV0 taV2 -{-# L #-} -f{-r3S,x-} = - _/\_ aaV0 taV2 -> \ d.Monad_aVe :: {PrelBase.Monad{-28,p-} aaV0} - {-# L #-} - d.Monad_aVe -> - _letrec_ { - >>=_a1h7 :: _forall_ - [taVx taVw] - => - aaV0 taVx -> (taVx -> aaV0 taVw) -> aaV0 taVw - {-# L #-} - >>=_a1h7 = - PrelBase.>>={-811,p-} _@_ aaV0 d.Monad_aVe; - d.Monad_aVg :: {PrelBase.Monad{-28,p-} aaV0} - {-# L #-} - d.Monad_aVg = - d.Monad_aVe; - return_a1he :: _forall_ [taVy] => taVy -> aaV0 taVy - {-# L #-} - return_a1he = - PrelBase.return{-816,p-} _@_ aaV0 d.Monad_aVg; - f_aUS :: aaV0 taV2 -> aaV0 taV2 - {-# L #-} - f_aUS = - \ xs_r3h :: aaV0 taV2 - {-# L #-} - xs_r3h -> - let { - ds_d1hQ :: taV2 -> aaV0 taV2 - {-# L #-} - ds_d1hQ = - \ x_r3j :: taV2 - {-# L #-} - x_r3j -> - return_a1he _@_ taV2 x_r3j - } in >>=_a1h7 _@_ taV2 _@_ taV2 xs_r3h ds_d1hQ; - } in f_aUS -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds010.stderr b/ghc/tests/deSugar/should_compile/ds010.stderr index cf2d931..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds010.stderr +++ b/ghc/tests/deSugar/should_compile/ds010.stderr @@ -1,282 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -z_aQq :: [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})] -{-# L #-} -z_aQq = - _letrec_ { - ds_dWs :: [PrelBase.Char{-38,W-}] - -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})] - {-# L #-} - ds_dWs = - \ ds_dWx :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_dWx -> - case ds_dWx of { - PrelBase.[]{-5i,w-}{i} -> - PrelBase.[]{-5i,w-}{i} - {_@_ (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})}; - PrelBase.:{-55,w-}{i} ds_dX5 ds_dXe -> - let { - a_r3d :: PrelBase.Char{-38,W-} - {-# L #-} - a_r3d = - ds_dX5 } in - _letrec_ { - ds_dXk :: [PrelBase.Char{-38,W-}] - -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})] - {-# L #-} - ds_dXk = - \ ds_dXp :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_dXp -> - case ds_dXp of { - PrelBase.[]{-5i,w-}{i} -> ds_dWs ds_dXe; - PrelBase.:{-55,w-}{i} ds_dXE ds_dXN -> - let { - b_r3f :: PrelBase.Char{-38,W-} - {-# L #-} - b_r3f = - ds_dXE } in - _letrec_ { - ds_dXT :: [PrelBase.Char{-38,W-}] - -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})] - {-# L #-} - ds_dXT = - \ ds_dXY :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_dXY -> - case ds_dXY of { - PrelBase.[]{-5i,w-}{i} -> ds_dXk ds_dXN; - PrelBase.:{-55,w-}{i} ds_dYd ds_dYm -> - let { - c_r3h :: PrelBase.Char{-38,W-} - {-# L #-} - c_r3h = - ds_dYd } in - _letrec_ { - ds_dYs :: [PrelBase.Char{-38,W-}] - -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})] - {-# L #-} - ds_dYs = - \ ds_dYx :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_dYx -> - case ds_dYx of { - PrelBase.[]{-5i,w-}{i} -> - ds_dXT ds_dYm; - PrelBase.:{-55,w-}{i} ds_dYM ds_dYV -> - let { - d_r3j :: PrelBase.Char{-38,W-} - {-# L #-} - d_r3j = - ds_dYM } in - _letrec_ { - ds_dZ1 :: [PrelBase.Char{-38,W-}] - -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})] - {-# L #-} - ds_dZ1 = - \ ds_dZ6 :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_dZ6 -> - case ds_dZ6 of { - PrelBase.[]{-5i,w-}{i} -> - ds_dYs ds_dYV; - PrelBase.:{-55,w-}{i} ds_dZl ds_dZu -> - let { - e_r3l :: PrelBase.Char{-38,W-} - {-# L #-} - e_r3l = - ds_dZl } in - _letrec_ { - ds_dZA :: [PrelBase.Char{-38,W-}] - -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})] - {-# L #-} - ds_dZA = - \ ds_dZF :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_dZF -> - case - ds_dZF - of { - PrelBase.[]{-5i,w-}{i} -> - ds_dZ1 - ds_dZu; - PrelBase.:{-55,w-}{i} ds_dZU ds_d103 -> - let { - f_r3n :: PrelBase.Char{-38,W-} - {-# L #-} - f_r3n = - ds_dZU } in - _letrec_ { - ds_d109 :: [PrelBase.Char{-38,W-}] - -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})] - {-# L #-} - ds_d109 = - \ ds_d10e :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d10e -> - case - ds_d10e - of { - PrelBase.[]{-5i,w-}{i} -> - ds_dZA - ds_d103; - PrelBase.:{-55,w-}{i} ds_d10t ds_d10C -> - let { - g_r3p :: PrelBase.Char{-38,W-} - {-# L #-} - g_r3p = - ds_d10t } in - _letrec_ { - ds_d10I :: [PrelBase.Char{-38,W-}] - -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})] - {-# L #-} - ds_d10I = - \ ds_d10N :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d10N -> - case - ds_d10N - of { - PrelBase.[]{-5i,w-}{i} -> - ds_d109 - ds_d10C; - PrelBase.:{-55,w-}{i} ds_d112 ds_d11b -> - let { - h_r3r :: PrelBase.Char{-38,W-} - {-# L #-} - h_r3r = - ds_d112 } in - _letrec_ { - ds_d11h :: [PrelBase.Char{-38,W-}] - -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})] - {-# L #-} - ds_d11h = - \ ds_d11m :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d11m -> - case - ds_d11m - of { - PrelBase.[]{-5i,w-}{i} -> - ds_d10I - ds_d11b; - PrelBase.:{-55,w-}{i} ds_d11B ds_d11K -> - let { - i_r3t :: PrelBase.Char{-38,W-} - {-# L #-} - i_r3t = - ds_d11B } in - _letrec_ { - ds_d11Q :: [PrelBase.Char{-38,W-}] - -> [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})] - {-# L #-} - ds_d11Q = - \ ds_d11V :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d11V -> - case - ds_d11V - of { - PrelBase.[]{-5i,w-}{i} -> - ds_d11h - ds_d11K; - PrelBase.:{-55,w-}{i} ds_d12a ds_d12t -> - let { - j_r3v :: PrelBase.Char{-38,W-} - {-# L #-} - j_r3v = - ds_d12a } in - let { - ds_d12m :: (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}) - {-# L #-} - ds_d12m = - PrelTup.(,,,,,,,,,){-6a,w-}{i} - {_@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - a_r3d - b_r3f - c_r3h - d_r3j - e_r3l - f_r3n - g_r3p - h_r3r - i_r3t - j_r3v} } in - let { - ds_d12q :: [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})] - {-# L #-} - ds_d12q = - ds_d11Q - ds_d12t - } in - PrelBase.:{-55,w-}{i} - {_@_ (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}) - ds_d12m - ds_d12q}; - }; - } in - ds_d11Q - _string_ "12"; - }; - } in - ds_d11h - _string_ "12"; - }; - } in - ds_d10I - _string_ "12"; - }; - } in - ds_d109 - _string_ "12"; - }; - } in - ds_dZA - _string_ "12"; - }; - } in ds_dZ1 _string_ "12"; - }; - } in ds_dYs _string_ "12"; - }; - } in ds_dXT _string_ "12"; - }; - } in ds_dXk _string_ "12"; - }; - } in ds_dWs _string_ "12" -z{-r3w,x-} :: [(PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})] -{-# L #-} -z{-r3w,x-} = - z_aQq -d.Monad_aRh :: {PrelBase.Monad{-28,p-} PrelBase.[]{-3j,W-}} -{-# L #-} -d.Monad_aRh = - PrelBase.$d25{-rpl,p-} ->>=_aWK :: _forall_ - [taRl taRm] - => - [taRl] -> (taRl -> [taRm]) -> [taRm] -{-# L #-} ->>=_aWK = - PrelBase.>>={-811,p-} _@_ PrelBase.[]{-3j,W-} d.Monad_aRh -d.Monad_aRk :: {PrelBase.Monad{-28,p-} PrelBase.[]{-3j,W-}} -{-# L #-} -d.Monad_aRk = - d.Monad_aRh -return_aWT :: _forall_ [taRn] => taRn -> [taRn] -{-# L #-} -return_aWT = - PrelBase.return{-816,p-} _@_ PrelBase.[]{-3j,W-} d.Monad_aRk -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds011.stderr b/ghc/tests/deSugar/should_compile/ds011.stderr index 86842d2..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds011.stderr +++ b/ghc/tests/deSugar/should_compile/ds011.stderr @@ -1,72 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -i{-r4,x-} :: _forall_ [take] => take -{-# L #-} -i{-r4,x-} = - _/\_ take -> - _letrec_ { - i_ak8 :: take - {-# L #-} - i_ak8 = - IOBase.error{-87,w-} _@_ take _string_ "foo"; - } in i_ak8 -h{-r5,x-} :: _forall_ [takm] => takm -{-# L #-} -h{-r5,x-} = - _/\_ takm -> - _letrec_ { - h_akg :: takm - {-# L #-} - h_akg = - let { ds_dn6 :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_dn6 = - let { - ds_dnh :: PrelBase.Char{-38,W-} - {-# L #-} - ds_dnh = - PrelBase.C#{-54,w-}{i} {'"'} } in - let { - ds_dnl :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_dnl = - PrelBase.[]{-5i,w-}{i} {_@_ PrelBase.Char{-38,W-}} - } in - PrelBase.:{-55,w-}{i} {_@_ PrelBase.Char{-38,W-} ds_dnh ds_dnl} - } in - IOBase.error{-87,w-} _@_ takm ds_dn6; - } in h_akg -g{-r6,x-} :: _forall_ [taku] => taku -{-# L #-} -g{-r6,x-} = - _/\_ taku -> - _letrec_ { - g_ako :: taku - {-# L #-} - g_ako = - let { - ds_dnO :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_dnO = - PrelBase.[]{-5i,w-}{i} {_@_ PrelBase.Char{-38,W-}} - } in IOBase.error{-87,w-} _@_ taku ds_dnO; - } in g_ako -f{-r7,x-} :: _forall_ [takD] => takD -{-# L #-} -f{-r7,x-} = - _/\_ takD -> - _letrec_ { - f_akw :: takD - {-# L #-} - f_akw = - let { - ds_doe :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_doe = - PrelBase.[]{-5i,w-}{i} _@_ PrelBase.Char{-38,W-} - } in IOBase.error{-87,w-} _@_ takD ds_doe; - } in f_akw -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds012.stderr b/ghc/tests/deSugar/should_compile/ds012.stderr index 9d54b35..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds012.stderr +++ b/ghc/tests/deSugar/should_compile/ds012.stderr @@ -1,211 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -h{-r3l,x-} :: _forall_ - [taC6 taC1] - => - {PrelBase.Num{-2c,p-} taC1} -> taC6 -> taC1 -{-# L #-} -h{-r3l,x-} = - _/\_ taC6 taC1 -> \ d.Num_aC8 :: {PrelBase.Num{-2c,p-} taC1} - {-# L #-} - d.Num_aC8 -> - _letrec_ { - +_aJx :: taC1 -> taC1 -> taC1 - {-# L #-} - +_aJx = - PrelBase.+{-r3k,p-} _@_ taC1 d.Num_aC8; - d.Num_aCb :: {PrelBase.Num{-2c,p-} taC1} - {-# L #-} - d.Num_aCb = - d.Num_aC8; - fromInteger_aJE :: PrelBase.Integer{-3h,W-} -> taC1 - {-# L #-} - fromInteger_aJE = - PrelBase.fromInteger{-8S,p-} _@_ taC1 d.Num_aCb; - lit_aJF :: taC1 - {-# L #-} - lit_aJF = - fromInteger_aJE - _integer_ 111111111111111111111111111111111111111111111111111111111111; - fromInteger_aJG :: PrelBase.Integer{-3h,W-} -> taC1 - {-# L #-} - fromInteger_aJG = - fromInteger_aJE; - lit_aJH :: taC1 - {-# L #-} - lit_aJH = - fromInteger_aJG - _integer_ 222222222222222222222222222222222222222222222222222222222222; - h_aBS :: taC6 -> taC1 - {-# L #-} - h_aBS = - \ x_r3j :: taC6 - {-# L #-} - x_r3j -> - +_aJx lit_aJF lit_aJH; - } in h_aBS -f{-r3n,x-} :: _forall_ - [taCE taCz] - => - {PrelBase.Num{-2c,p-} taCz} -> taCE -> taCz -{-# L #-} -f{-r3n,x-} = - _/\_ taCE taCz -> \ d.Num_aCG :: {PrelBase.Num{-2c,p-} taCz} - {-# L #-} - d.Num_aCG -> - _letrec_ { - +_aFs :: taCz -> taCz -> taCz - {-# L #-} - +_aFs = - PrelBase.+{-r3k,p-} _@_ taCz d.Num_aCG; - d.Num_aCI :: {PrelBase.Num{-2c,p-} taCz} - {-# L #-} - d.Num_aCI = - d.Num_aCG; - -_aFr :: taCz -> taCz -> taCz - {-# L #-} - -_aFr = - PrelBase.-{-817,p-} _@_ taCz d.Num_aCI; - +_aFt :: taCz -> taCz -> taCz - {-# L #-} - +_aFt = - +_aFs; - d.Num_aCL :: {PrelBase.Num{-2c,p-} taCz} - {-# L #-} - d.Num_aCL = - d.Num_aCG; - fromInt_aFu :: PrelBase.Int{-3g,W-} -> taCz - {-# L #-} - fromInt_aFu = - PrelBase.fromInt{-8R,p-} _@_ taCz d.Num_aCL; - lit_aFv :: taCz - {-# L #-} - lit_aFv = - let { - ds_dMB :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dMB = - PrelBase.I#{-5b,w-}{i} 1 - } in fromInt_aFu ds_dMB; - fromInt_aFw :: PrelBase.Int{-3g,W-} -> taCz - {-# L #-} - fromInt_aFw = - fromInt_aFu; - lit_aFx :: taCz - {-# L #-} - lit_aFx = - let { - ds_dMQ :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dMQ = - PrelBase.I#{-5b,w-}{i} 2 - } in fromInt_aFw ds_dMQ; - fromInt_aFy :: PrelBase.Int{-3g,W-} -> taCz - {-# L #-} - fromInt_aFy = - fromInt_aFu; - lit_aFz :: taCz - {-# L #-} - lit_aFz = - let { - ds_dN5 :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dN5 = - PrelBase.I#{-5b,w-}{i} 3 - } in fromInt_aFy ds_dN5; - d.Num_aCP :: {PrelBase.Num{-2c,p-} taCz} - {-# L #-} - d.Num_aCP = - d.Num_aCG; - *_aFA :: taCz -> taCz -> taCz - {-# L #-} - *_aFA = - PrelBase.*{-rfn,p-} _@_ taCz d.Num_aCP; - fromInt_aFB :: PrelBase.Int{-3g,W-} -> taCz - {-# L #-} - fromInt_aFB = - fromInt_aFu; - lit_aFC :: taCz - {-# L #-} - lit_aFC = - let { - ds_dNt :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dNt = - PrelBase.I#{-5b,w-}{i} 4 - } in fromInt_aFB ds_dNt; - fromInt_aFD :: PrelBase.Int{-3g,W-} -> taCz - {-# L #-} - fromInt_aFD = - fromInt_aFu; - lit_aFE :: taCz - {-# L #-} - lit_aFE = - let { - ds_dNI :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dNI = - PrelBase.I#{-5b,w-}{i} 5 - } in fromInt_aFD ds_dNI; - f_aCe :: taCE -> taCz - {-# L #-} - f_aCe = - \ x_r3f :: taCE - {-# L #-} - x_r3f -> - let { ds_dNZ :: taCz - {-# L #-} - ds_dNZ = - let { - ds_dOb :: taCz - {-# L #-} - ds_dOb = - +_aFt lit_aFv lit_aFx - } in -_aFr ds_dOb lit_aFz - } in - let { - ds_dO3 :: taCz - {-# L #-} - ds_dO3 = - *_aFA lit_aFC lit_aFE - } in +_aFs ds_dNZ ds_dO3; - } in f_aCe -g{-r3m,x-} :: _forall_ - [taD7] - => - {PrelBase.Num{-2c,p-} taD7} -> taD7 -> taD7 -{-# L #-} -g{-r3m,x-} = - _/\_ taD7 -> \ d.Num_aDa :: {PrelBase.Num{-2c,p-} taD7} - {-# L #-} - d.Num_aDa -> - _letrec_ { - +_aON :: taD7 -> taD7 -> taD7 - {-# L #-} - +_aON = - PrelBase.+{-r3k,p-} _@_ taD7 d.Num_aDa; - d.Num_aDc :: {PrelBase.Num{-2c,p-} taD7} - {-# L #-} - d.Num_aDc = - d.Num_aDa; - f_aOU :: taD7 -> taD7 - {-# L #-} - f_aOU = - f{-r3n,x-} _@_ taD7 _@_ taD7 d.Num_aDc; - g_aCT :: taD7 -> taD7 - {-# L #-} - g_aCT = - \ x_r3h :: taD7 - {-# L #-} - x_r3h -> - let { - ds_dPu :: taD7 - {-# L #-} - ds_dPu = - f_aOU x_r3h - } in +_aON x_r3h ds_dPu; - } in g_aCT -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds013.stderr b/ghc/tests/deSugar/should_compile/ds013.stderr index 9240f59..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds013.stderr +++ b/ghc/tests/deSugar/should_compile/ds013.stderr @@ -1,293 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -+_a14Y :: PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} -{-# L #-} -+_a14Y = - +_a13j -h_aUa :: PrelBase.Double{-3a,W-} -{-# L #-} -h_aUa = - let { ds_d18Q :: PrelBase.Double{-3a,W-} - {-# L #-} - ds_d18Q = - let { - ds_d192 :: PrelBase.Double{-3a,W-} - {-# L #-} - ds_d192 = - +_a14Y lit_a13l lit_a13m - } in -_a13k ds_d192 lit_a13n - } in - let { - ds_d18U :: PrelBase.Double{-3a,W-} - {-# L #-} - ds_d18U = - *_a13o lit_a13p lit_a13q - } in +_a13j ds_d18Q ds_d18U -h{-r4,x-} :: PrelBase.Double{-3a,W-} -{-# L #-} -h{-r4,x-} = - h_aUa -+_a148 :: PrelBase.Float{-3c,W-} - -> PrelBase.Float{-3c,W-} - -> PrelBase.Float{-3c,W-} -{-# L #-} -+_a148 = - +_a134 -g_aUB :: PrelBase.Float{-3c,W-} -{-# L #-} -g_aUB = - let { ds_d19B :: PrelBase.Float{-3c,W-} - {-# L #-} - ds_d19B = - let { - ds_d19N :: PrelBase.Float{-3c,W-} - {-# L #-} - ds_d19N = - +_a148 lit_a137 lit_a139 - } in -_a135 ds_d19N lit_a13b - } in - let { - ds_d19F :: PrelBase.Float{-3c,W-} - {-# L #-} - ds_d19F = - *_a13c lit_a13f lit_a13i - } in +_a134 ds_d19B ds_d19F -g{-r2,x-} :: PrelBase.Float{-3c,W-} -{-# L #-} -g{-r2,x-} = - g_aUB -+_a12R :: PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} -{-# L #-} -+_a12R = - +_a12S -f_aV2 :: PrelBase.Double{-3a,W-} -{-# L #-} -f_aV2 = - let { ds_d1am :: PrelBase.Double{-3a,W-} - {-# L #-} - ds_d1am = - let { - ds_d1ay :: PrelBase.Double{-3a,W-} - {-# L #-} - ds_d1ay = - +_a12R lit_a12U lit_a12W - } in -_a12Q ds_d1ay lit_a12Y - } in - let { - ds_d1aq :: PrelBase.Double{-3a,W-} - {-# L #-} - ds_d1aq = - *_a12Z lit_a131 lit_a133 - } in +_a12S ds_d1am ds_d1aq -f{-r5,x-} :: PrelBase.Double{-3a,W-} -{-# L #-} -f{-r5,x-} = - f_aV2 -d.Num_aWi :: {PrelBase.Num{-2c,p-} PrelBase.Double{-3a,W-}} -{-# L #-} -d.Num_aWi = - PrelNum.$d16{-rnW,p-} -+_a12S :: PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} -{-# L #-} -+_a12S = - PrelBase.+{-rfj,p-} _@_ PrelBase.Double{-3a,W-} d.Num_aWi -d.Num_aWl :: {PrelBase.Num{-2c,p-} PrelBase.Double{-3a,W-}} -{-# L #-} -d.Num_aWl = - d.Num_aWi --_a12Q :: PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} -{-# L #-} --_a12Q = - PrelBase.-{-817,p-} _@_ PrelBase.Double{-3a,W-} d.Num_aWl -d.Fractional_aWo :: {PrelNum.Fractional{-26,p-} PrelBase.Double{-3a,W-}} -{-# L #-} -d.Fractional_aWo = - PrelNum.$d14{-rnU,p-} -fromRational_a12T :: PrelNum.Rational{-3r,p-} - -> PrelBase.Double{-3a,W-} -{-# L #-} -fromRational_a12T = - PrelNum.fromRational{-8T,p-} - _@_ PrelBase.Double{-3a,W-} d.Fractional_aWo -lit_a12U :: PrelBase.Double{-3a,W-} -{-# L #-} -lit_a12U = - fromRational_a12T _rational_ 3 2 -fromRational_a12V :: PrelNum.Rational{-3r,p-} - -> PrelBase.Double{-3a,W-} -{-# L #-} -fromRational_a12V = - fromRational_a12T -lit_a12W :: PrelBase.Double{-3a,W-} -{-# L #-} -lit_a12W = - fromRational_a12V _rational_ 2 1 -fromRational_a12X :: PrelNum.Rational{-3r,p-} - -> PrelBase.Double{-3a,W-} -{-# L #-} -fromRational_a12X = - fromRational_a12T -lit_a12Y :: PrelBase.Double{-3a,W-} -{-# L #-} -lit_a12Y = - fromRational_a12X _rational_ 62831853 20000000 -d.Num_aWt :: {PrelBase.Num{-2c,p-} PrelBase.Double{-3a,W-}} -{-# L #-} -d.Num_aWt = - d.Num_aWi -*_a12Z :: PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} -{-# L #-} -*_a12Z = - PrelBase.*{-rX,p-} _@_ PrelBase.Double{-3a,W-} d.Num_aWt -fromRational_a130 :: PrelNum.Rational{-3r,p-} - -> PrelBase.Double{-3a,W-} -{-# L #-} -fromRational_a130 = - fromRational_a12T -lit_a131 :: PrelBase.Double{-3a,W-} -{-# L #-} -lit_a131 = - fromRational_a130 _rational_ 21 5 -fromRational_a132 :: PrelNum.Rational{-3r,p-} - -> PrelBase.Double{-3a,W-} -{-# L #-} -fromRational_a132 = - fromRational_a12T -lit_a133 :: PrelBase.Double{-3a,W-} -{-# L #-} -lit_a133 = - fromRational_a132 - _rational_ 5111111111111111111111111111 1000000000000000000000000000 -d.Num_aWx :: {PrelBase.Num{-2c,p-} PrelBase.Float{-3c,W-}} -{-# L #-} -d.Num_aWx = - PrelNum.$d25{-ro6,p-} -+_a134 :: PrelBase.Float{-3c,W-} - -> PrelBase.Float{-3c,W-} - -> PrelBase.Float{-3c,W-} -{-# L #-} -+_a134 = - PrelBase.+{-rfj,p-} _@_ PrelBase.Float{-3c,W-} d.Num_aWx -d.Num_aWA :: {PrelBase.Num{-2c,p-} PrelBase.Float{-3c,W-}} -{-# L #-} -d.Num_aWA = - d.Num_aWx --_a135 :: PrelBase.Float{-3c,W-} - -> PrelBase.Float{-3c,W-} - -> PrelBase.Float{-3c,W-} -{-# L #-} --_a135 = - PrelBase.-{-817,p-} _@_ PrelBase.Float{-3c,W-} d.Num_aWA -d.Fractional_aWD :: {PrelNum.Fractional{-26,p-} PrelBase.Float{-3c,W-}} -{-# L #-} -d.Fractional_aWD = - PrelNum.$d23{-ro4,p-} -fromRational_a136 :: PrelNum.Rational{-3r,p-} - -> PrelBase.Float{-3c,W-} -{-# L #-} -fromRational_a136 = - PrelNum.fromRational{-8T,p-} - _@_ PrelBase.Float{-3c,W-} d.Fractional_aWD -lit_a137 :: PrelBase.Float{-3c,W-} -{-# L #-} -lit_a137 = - fromRational_a136 _rational_ 3 2 -fromRational_a138 :: PrelNum.Rational{-3r,p-} - -> PrelBase.Float{-3c,W-} -{-# L #-} -fromRational_a138 = - fromRational_a136 -lit_a139 :: PrelBase.Float{-3c,W-} -{-# L #-} -lit_a139 = - fromRational_a138 _rational_ 2 1 -fromRational_a13a :: PrelNum.Rational{-3r,p-} - -> PrelBase.Float{-3c,W-} -{-# L #-} -fromRational_a13a = - fromRational_a136 -lit_a13b :: PrelBase.Float{-3c,W-} -{-# L #-} -lit_a13b = - fromRational_a13a _rational_ 62831853 20000000 -d.Num_aWI :: {PrelBase.Num{-2c,p-} PrelBase.Float{-3c,W-}} -{-# L #-} -d.Num_aWI = - d.Num_aWx -*_a13c :: PrelBase.Float{-3c,W-} - -> PrelBase.Float{-3c,W-} - -> PrelBase.Float{-3c,W-} -{-# L #-} -*_a13c = - PrelBase.*{-rX,p-} _@_ PrelBase.Float{-3c,W-} d.Num_aWI -fromRational_a13e :: PrelNum.Rational{-3r,p-} - -> PrelBase.Float{-3c,W-} -{-# L #-} -fromRational_a13e = - fromRational_a136 -lit_a13f :: PrelBase.Float{-3c,W-} -{-# L #-} -lit_a13f = - fromRational_a13e _rational_ 21 5 -fromRational_a13h :: PrelNum.Rational{-3r,p-} - -> PrelBase.Float{-3c,W-} -{-# L #-} -fromRational_a13h = - fromRational_a136 -lit_a13i :: PrelBase.Float{-3c,W-} -{-# L #-} -lit_a13i = - fromRational_a13h - _rational_ 5111111111111111111111111111 1000000000000000000000000000 -+_a13j :: PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} -{-# L #-} -+_a13j = - +_a12S --_a13k :: PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} -{-# L #-} --_a13k = - -_a12Q -lit_a13l :: PrelBase.Double{-3a,W-} -{-# L #-} -lit_a13l = - lit_a12U -lit_a13m :: PrelBase.Double{-3a,W-} -{-# L #-} -lit_a13m = - lit_a12W -lit_a13n :: PrelBase.Double{-3a,W-} -{-# L #-} -lit_a13n = - lit_a12Y -*_a13o :: PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} - -> PrelBase.Double{-3a,W-} -{-# L #-} -*_a13o = - *_a12Z -lit_a13p :: PrelBase.Double{-3a,W-} -{-# L #-} -lit_a13p = - lit_a131 -lit_a13q :: PrelBase.Double{-3a,W-} -{-# L #-} -lit_a13q = - lit_a133 -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds014.stderr b/ghc/tests/deSugar/should_compile/ds014.stderr index bd866849386ec13b3ea7a4956c6cc6b8f0e08727..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 100644 GIT binary patch literal 0 HcmV?d00001 literal 9761 zcmb{230E6c6bEp3?YQr|j-eJ6QZt!^O{oo8C}k~y7RtjoS%8!@KoXWVM*TQ`3_p(F zLhmwp^GKoZJ&&A|HmAM!-QT=C{+z>%<4ph0Urw&pKHd#lwd$0!TC2ESr&izH>y+!A zQjopxx>HlGyS37)HD-c#?Rs`EXm#WM#OS?vZ`mus+p5*CU9yJmw`Tl&~= zCSr+QGscGH8tfm8rEOZb!YVBi%QKyzU8&dM80;}t9}rOkFQufz()xlZF5eQxwGENS z*YcXkFWnKD?7Rp>S#(5GoQNIKf+|s*6S;-F$YnivCE?}6D`a35zLhiTkWLziPW-8GYV71{jnic(#;ljHf+{UiN+Ut) z<0t>vR2o)mq+gQM$4}n#Y@}*SU&!RB4e?8i~?0NDIbN zuGUCDXK5OxzLivIky09oQp~40V<}f_q@S@A^T|tDNtG5UrI9H0LAqcp$;xE2+{Vr8E+y9!OV>rChC%e#}x2rQ=porA10< zBuX)^){UiHt&x7jQVPcjE2+{Vr8E+xNzBs?Q)yVOk$ycCja)f(v=ETwR)TS=7`DW#Dp#kgu2OSxJj zeVwHgjt{J)N{f`zNR(n+9UDuzS|fdpr4)|)R#K%!N@*lYF|N*xrChC%zRFSx$A*l zjjx8Q2X=jH8*UQUQ&?e73-KtL;+N^LKff3lCFR7(JtKzH!>Q;wqx3G=&e&lM#cuNbns+SI03-tpLU3%50Oi`S#EuH;M@e5 zxQNR|xTyHzr$dx_UY#a66`(Dd?kN`!;M8;RwA57q${ttnGG?O7xa_b;JEU~5gj7!T z`r<(|sID}Q+i*#1d`VroEAl_P@nkT12oD0u|HAJL{{cR0)Ki|O8C-ARs;^d)_yeLm zhif_E0i(y5N;?OwpwTF~Tb-bg*>HGJ;cfNqp}7MrwC}%9`-k g5a%=%seyN)MtwJ^X+er$9x%$afy#N3J diff --git a/ghc/tests/deSugar/should_compile/ds015.stderr b/ghc/tests/deSugar/should_compile/ds015.stderr index f173af1..4c17fab 100644 --- a/ghc/tests/deSugar/should_compile/ds015.stderr +++ b/ghc/tests/deSugar/should_compile/ds015.stderr @@ -1,88 +1,3 @@ ds015.hs:9: Warning: Possibly incomplete patterns in a lambda abstraction: `(x PrelBase.: xs) -> ...' - - -================================================================================ -Desugared: -Rec { -h{-r3w,x-} :: _forall_ [takN takG] => [takG] -> takN -> takG -{-# L #-} -h{-r3w,x-} = - _/\_ takN takG -> - _letrec_ { - h_ako :: [takG] -> takN -> takG - {-# L #-} - h_ako = - \ x_r3r :: [takG] - {-# L #-} - x_r3r y_r3s :: takN - {-# L #-} - y_r3s -> - (\ ds_dpA :: [takG] - {-# L #-} - ds_dpA -> - let { - fail_dpJ :: takG - {-# L #-} - fail_dpJ = - GHCerr.patError{-8r,w-} _@_ takG _string_ "ds015.hs:9|lambda" - } in - case ds_dpA of { - PrelBase.[]{-5i,w-}{i} -> fail_dpJ; - PrelBase.:{-55,w-}{i} x_r3u xs_r3v -> x_r3u; - }) - x_r3r; - } in h_ako -g{-r3x,x-} :: _forall_ - [talp talr talt] - => - ((talt -> talt) -> talr) -> talp -> talr -{-# L #-} -g{-r3x,x-} = - _/\_ talp talr talt -> - _letrec_ { - g_akP :: ((talt -> talt) -> talr) -> talp -> talr - {-# L #-} - g_akP = - \ x_r3j :: (talt -> talt) -> talr - {-# L #-} - x_r3j y_r3k :: talp - {-# L #-} - y_r3k -> - (let { - ds_dql :: talt -> talt - {-# L #-} - ds_dql = - \ x_r3p :: talt - {-# L #-} - x_r3p -> - x_r3p - } in - (\ x_r3m :: talt -> talt - {-# L #-} - x_r3m y_r3n :: (talt -> talt) -> talr - {-# L #-} - y_r3n -> - y_r3n x_r3m) - ds_dql) - x_r3j; - } in g_akP -f{-r3y,x-} :: _forall_ [talL] => talL -> talL -{-# L #-} -f{-r3y,x-} = - _/\_ talL -> - _letrec_ { - f_alv :: talL -> talL - {-# L #-} - f_alv = - \ x_r3f :: talL - {-# L #-} - x_r3f -> - (\ x_r3h :: talL - {-# L #-} - x_r3h -> - x_r3h) - x_r3f; - } in f_alv -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds016.stderr b/ghc/tests/deSugar/should_compile/ds016.stderr index 114d751..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds016.stderr +++ b/ghc/tests/deSugar/should_compile/ds016.stderr @@ -1,148 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -f{-r3r,x-} :: _forall_ - [taRl taRH taRP] - => - [taRP] -> taRH -> [taRl] -> [taRl] -{-# L #-} -f{-r3r,x-} = - _/\_ taRl taRH taRP -> - _letrec_ { - ++_aTa :: _forall_ [taQZ] => [taQZ] -> [taQZ] -> [taQZ] - {-# L #-} - ++_aTa = - ++_aTb; - ++_aT9 :: _forall_ [taR6] => [taR6] -> [taR6] -> [taR6] - {-# L #-} - ++_aT9 = - ++_aTb; - ++_aTc :: _forall_ [taRd] => [taRd] -> [taRd] -> [taRd] - {-# L #-} - ++_aTc = - ++_aTb; - f_aQw :: [taRP] -> taRH -> [taRl] -> [taRl] - {-# L #-} - f_aQw = - \ x_r3d :: [taRP] - {-# L #-} - x_r3d y_r3e :: taRH - {-# L #-} - y_r3e z_r3f :: [taRl] - {-# L #-} - z_r3f -> - let { ds_dYt :: [taRP] - {-# L #-} - ds_dYt = - let { ds_dXM :: [taRP] - {-# L #-} - ds_dXM = - let { ds_dXZ :: [taRP] - {-# L #-} - ds_dXZ = - let { - ds_dYc :: [taRP] - {-# L #-} - ds_dYc = - ++_aTc _@_ taRP x_r3d x_r3d - } in ++_aT9 _@_ taRP x_r3d ds_dYc - } in - ++_aTa _@_ taRP x_r3d ds_dXZ - } in - ++_aTb _@_ taRP x_r3d ds_dXM - } in - case ds_dYt of { - PrelBase.[]{-5i,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taRl; - PrelBase.:{-55,w-}{i} a_r3i ds_dYL -> - let { fail_dZp :: [taRl] - {-# L #-} - fail_dZp = - let { - bs_r3q :: [taRP] - {-# L #-} - bs_r3q = - ds_dYL } in - let { - a_r3p :: taRP - {-# L #-} - a_r3p = - a_r3i } in - let { ds_dYY :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_dYY = - let { - ds_dZb :: PrelBase.Char{-38,W-} - {-# L #-} - ds_dZb = - PrelBase.C#{-54,w-}{i} {'4'} } in - let { - ds_dZf :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_dZf = - PrelBase.[]{-5i,w-}{i} {_@_ PrelBase.Char{-38,W-}} - } in - PrelBase.:{-55,w-}{i} {_@_ PrelBase.Char{-38,W-} ds_dZb ds_dZf} - } in - IOBase.error{-87,w-} _@_ [taRl] ds_dYY - } in - case ds_dYL of { - PrelBase.[]{-5i,w-}{i} -> - let { ds_dZD :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_dZD = - let { - ds_dZO :: PrelBase.Char{-38,W-} - {-# L #-} - ds_dZO = - PrelBase.C#{-54,w-}{i} {'2'} } in - let { - ds_dZS :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_dZS = - PrelBase.[]{-5i,w-}{i} {_@_ PrelBase.Char{-38,W-}} - } in - PrelBase.:{-55,w-}{i} {_@_ PrelBase.Char{-38,W-} ds_dZO ds_dZS} - } in - IOBase.error{-87,w-} _@_ [taRl] ds_dZD; - PrelBase.:{-55,w-}{i} b_r3l ds_d107 -> - case ds_d107 of { - PrelBase.[]{-5i,w-}{i} -> fail_dZp; - PrelBase.:{-55,w-}{i} c_r3m ds_d10k -> - case ds_d10k of { - PrelBase.:{-55,w-}{i} ds_d10r ds_d10s -> fail_dZp; - PrelBase.[]{-5i,w-}{i} -> - let { - a_r3k :: taRP - {-# L #-} - a_r3k = - a_r3i } in - let { - ds_d10B :: (taRH, [taRl], taRH, [taRl]) - {-# L #-} - ds_d10B = - PrelTup.(,,,){-64,w-}{i} - {_@_ taRH - _@_ [taRl] - _@_ taRH - _@_ [taRl] - y_r3e - z_r3f - y_r3e - z_r3f} - } in z_r3f; - }; - }; - }; - }; - } in f_aQw -d.MonadPlus_aRX :: {PrelBase.MonadPlus{-2a,p-} PrelBase.[]{-3j,W-}} -{-# L #-} -d.MonadPlus_aRX = - PrelBase.$d23{-roi,p-} -++_aTb :: _forall_ [taQR] => [taQR] -> [taQR] -> [taQR] -{-# L #-} -++_aTb = - PrelBase.++{-rnQ,p-} _@_ PrelBase.[]{-3j,W-} d.MonadPlus_aRX -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds017.stderr b/ghc/tests/deSugar/should_compile/ds017.stderr index e4096df..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds017.stderr +++ b/ghc/tests/deSugar/should_compile/ds017.stderr @@ -1,66 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -f{-r3n,x-} :: _forall_ - [tayF tayW taz2] - => - tayW -> ((tayF, tayF) -> taz2) -> tayF -> (taz2, [tayW]) -{-# L #-} -f{-r3n,x-} = - _/\_ tayF tayW taz2 -> - _letrec_ { - f_aya :: tayW -> ((tayF, tayF) -> taz2) -> tayF -> (taz2, [tayW]) - {-# L #-} - f_aya = - \ x_r3d :: tayW - {-# L #-} - x_r3d y_r3e :: (tayF, tayF) -> taz2 - {-# L #-} - y_r3e z_r3f :: tayF - {-# L #-} - z_r3f -> - let { c_ays :: taz2 - {-# L #-} - c_ays = - let { - ds_dCV :: (tayF, tayF) - {-# L #-} - ds_dCV = - PrelTup.(,){-62,w-}{i} {_@_ tayF _@_ tayF z_r3f z_r3f} - } in y_r3e ds_dCV - } in - let { - c_r3j :: taz2 - {-# L #-} - c_r3j = - c_ays } in - let { a_ayK :: [tayW] - {-# L #-} - a_ayK = - let { - ds_dDr :: [tayW] - {-# L #-} - ds_dDr = - PrelBase.[]{-5i,w-}{i} _@_ tayW - } in PrelBase.:{-55,w-}{i} _@_ tayW x_r3d ds_dDr - } in - let { - a_r3h :: [tayW] - {-# L #-} - a_r3h = - a_ayK } in - let { - b_ayS :: [tayW] - {-# L #-} - b_ayS = - PrelBase.:{-55,w-}{i} _@_ tayW x_r3d a_r3h } in - let { - b_r3i :: [tayW] - {-# L #-} - b_r3i = - b_ayS - } in PrelTup.(,){-62,w-}{i} {_@_ taz2 _@_ [tayW] c_r3j b_r3i}; - } in f_aya -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds018.stderr b/ghc/tests/deSugar/should_compile/ds018.stderr index 2f21228..c3f8846 100644 --- a/ghc/tests/deSugar/should_compile/ds018.stderr +++ b/ghc/tests/deSugar/should_compile/ds018.stderr @@ -4,672 +4,3 @@ ds018.hs:39: ds018.hs:41: Warning: Possibly incomplete patterns in the definition of function `fb' - - -================================================================================ -Desugared: -Rec { -gb2_azP :: PrelBase.(){-40,W-} -> PrelBase.(){-40,W-} -{-# L #-} -gb2_azP = - \ ds_d1bE :: PrelBase.(){-40,W-} - {-# L #-} - ds_d1bE -> - case ds_d1bE of { PrelBase.(){-60,w-}{i} -> - PrelBase.(){-60,w-}{i};} -gb2{-r4T,x-} :: PrelBase.(){-40,W-} -> PrelBase.(){-40,W-} -{-# L #-} -gb2{-r4T,x-} = - gb2_azP -gb{-r4U,x-} :: _forall_ - [taA5] - => - PrelBase.(){-40,W-} -> taA5 -> taA5 -{-# L #-} -gb{-r4U,x-} = - _/\_ taA5 -> - _letrec_ { - gb_azU :: PrelBase.(){-40,W-} -> taA5 -> taA5 - {-# L #-} - gb_azU = - \ ds_d1cC :: PrelBase.(){-40,W-} - {-# L #-} - ds_d1cC x_r4S :: taA5 - {-# L #-} - x_r4S -> - case ds_d1cC of { PrelBase.(){-60,w-}{i} -> x_r4S;}; - } in gb_azU -ga{-r4V,x-} :: _forall_ - [taB2 taB5 taB8 taBb taBe taBh taBk taBn taBq taBt taBw taBz taBC taBF taBI taBL taBO taBR taBU taBX taC0 taC3 taC6 taC9 taCc taCf taCi taCl taCo taCr taCu taCx taCA taCD taCG taCJ taCM taCP taCS taCV taCY taD1 taD4 taD7 taDa taDd taDg taDj taDm taDp taDs taDv] - => - (taB2, taB5, taB8, taBb, taBe, taBh, taBk, taBn, taBq, taBt, taBw, taBz, taBC, taBF, taBI, taBL, taBO, taBR, taBU, taBX, taC0, taC3, taC6, taC9, taCc, taCf, taCi, taCl, taCo, taCr, taCu, taCx, taCA, taCD, taCG, taCJ, taCM, taCP, taCS, taCV, taCY, taD1, taD4, taD7, taDa, taDd, taDg, taDj, taDm, taDp, taDs, taDv) - -> taC9 -{-# L #-} -ga{-r4V,x-} = - _/\_ taB2 taB5 taB8 taBb taBe taBh taBk taBn taBq taBt taBw taBz taBC taBF taBI taBL taBO taBR taBU taBX taC0 taC3 taC6 taC9 taCc taCf taCi taCl taCo taCr taCu taCx taCA taCD taCG taCJ taCM taCP taCS taCV taCY taD1 taD4 taD7 taDa taDd taDg taDj taDm taDp taDs taDv -> - _letrec_ { - ga_aA7 :: (taB2, taB5, taB8, taBb, taBe, taBh, taBk, taBn, taBq, taBt, taBw, taBz, taBC, taBF, taBI, taBL, taBO, taBR, taBU, taBX, taC0, taC3, taC6, taC9, taCc, taCf, taCi, taCl, taCo, taCr, taCu, taCx, taCA, taCD, taCG, taCJ, taCM, taCP, taCS, taCV, taCY, taD1, taD4, taD7, taDa, taDd, taDg, taDj, taDm, taDp, taDs, taDv) - -> taC9 - {-# L #-} - ga_aA7 = - \ ds_d1dO :: (taB2, taB5, taB8, taBb, taBe, taBh, taBk, taBn, taBq, taBt, taBw, taBz, taBC, taBF, taBI, taBL, taBO, taBR, taBU, taBX, taC0, taC3, taC6, taC9, taCc, taCf, taCi, taCl, taCo, taCr, taCu, taCx, taCA, taCD, taCG, taCJ, taCM, taCP, taCS, taCV, taCY, taD1, taD4, taD7, taDa, taDd, taDg, taDj, taDm, taDp, taDs, taDv) - {-# L #-} - ds_d1dO -> - case - ds_d1dO - of { - PrelTup.(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,){-6Q,w-}{i} a_r41 b_r42 c_r43 d_r44 e_r45 f_r46 g_r47 h_r48 i_r49 j_r4a k_r4b l_r4c m_r4d n_r4e o_r4f p_r4g q_r4h r_r4i s_r4j t_r4k u_r4l v_r4m w_r4n x_r4o y_r4p z_r4q aa_r4r ab_r4s ac_r4t ad_r4u ae_r4v af_r4w ag_r4x ah_r4y ai_r4z aj_r4A ak_r4B al_r4C am_r4D an_r4E ao_r4F ap_r4G aq_r4H ar_r4I as_r4J at_r4K au_r4L av_r4M aw_r4N ax_r4O ay_r4P az_r4Q -> - x_r4o;}; - } in ga_aA7 -fb{-r4W,x-} :: _forall_ [taDG taDJ] => [taDG] -> [taDJ] -{-# L #-} -fb{-r4W,x-} = - _/\_ taDG taDJ -> - _letrec_ { - fb_aDA :: [taDG] -> [taDJ] - {-# L #-} - fb_aDA = - \ ds_d1el :: [taDG] - {-# L #-} - ds_d1el -> - let { - fail_d1em :: [taDJ] - {-# L #-} - fail_d1em = - GHCerr.patError{-8r,w-} - _@_ [taDJ] _string_ "ds018.hs:41|function `fb'" - } in - case ds_d1el of { - PrelBase.:{-55,w-}{i} ds_d1et ds_d1eu -> fail_d1em; - PrelBase.[]{-5i,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taDJ; - }; - } in fb_aDA -fa{-r4X,x-} :: _forall_ [taEg] => [taEg] -> taEg -{-# L #-} -fa{-r4X,x-} = - _/\_ taEg -> - _letrec_ { - fa_aDL :: [taEg] -> taEg - {-# L #-} - fa_aDL = - \ ds_d1f2 :: [taEg] - {-# L #-} - ds_d1f2 -> - let { - fail_d1f3 :: taEg - {-# L #-} - fail_d1f3 = - GHCerr.patError{-8r,w-} - _@_ taEg _string_ "ds018.hs:39|function `fa'" - } in - case ds_d1f2 of { - PrelBase.[]{-5i,w-}{i} -> fail_d1f3; - PrelBase.:{-55,w-}{i} a_r3z ds_d1fg -> - case ds_d1fg of { - PrelBase.[]{-5i,w-}{i} -> fail_d1f3; - PrelBase.:{-55,w-}{i} b_r3A ds_d1ft -> - case ds_d1ft of { - PrelBase.[]{-5i,w-}{i} -> fail_d1f3; - PrelBase.:{-55,w-}{i} c_r3B ds_d1fG -> - case ds_d1fG of { - PrelBase.[]{-5i,w-}{i} -> fail_d1f3; - PrelBase.:{-55,w-}{i} d_r3C ds_d1fT -> - case ds_d1fT of { - PrelBase.[]{-5i,w-}{i} -> fail_d1f3; - PrelBase.:{-55,w-}{i} e_r3D ds_d1g6 -> - case ds_d1g6 of { - PrelBase.[]{-5i,w-}{i} -> fail_d1f3; - PrelBase.:{-55,w-}{i} f_r3E ds_d1gj -> - case ds_d1gj of { - PrelBase.[]{-5i,w-}{i} -> fail_d1f3; - PrelBase.:{-55,w-}{i} g_r3F ds_d1gw -> - case ds_d1gw of { - PrelBase.[]{-5i,w-}{i} -> fail_d1f3; - PrelBase.:{-55,w-}{i} h_r3G ds_d1gJ -> - case ds_d1gJ of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} i_r3H ds_d1gW -> - case ds_d1gW of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} j_r3I ds_d1h9 -> - case ds_d1h9 of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} k_r3J ds_d1hm -> - case - ds_d1hm - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} l_r3K ds_d1hz -> - case - ds_d1hz - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} m_r3L ds_d1hM -> - case - ds_d1hM - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} n_r3M ds_d1hZ -> - case - ds_d1hZ - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} o_r3N ds_d1ic -> - case - ds_d1ic - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} p_r3O ds_d1ip -> - case - ds_d1ip - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} q_r3P ds_d1iC -> - case - ds_d1iC - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} r_r3Q ds_d1iP -> - case - ds_d1iP - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} s_r3R ds_d1j2 -> - case - ds_d1j2 - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} t_r3S ds_d1jf -> - case - ds_d1jf - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} u_r3T ds_d1js -> - case - ds_d1js - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} v_r3U ds_d1jF -> - case - ds_d1jF - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} w_r3V ds_d1jS -> - case - ds_d1jS - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} x_r3W ds_d1k5 -> - case - ds_d1k5 - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} y_r3X ds_d1ki -> - case - ds_d1ki - of { - PrelBase.[]{-5i,w-}{i} -> - fail_d1f3; - PrelBase.:{-55,w-}{i} z_r3Y ds_d1kv -> - case - ds_d1kv - of { - PrelBase.:{-55,w-}{i} ds_d1kC ds_d1kD -> - fail_d1f3; - PrelBase.[]{-5i,w-}{i} -> - x_r3W; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - } in fa_aDL -g{-r4Y,x-} :: _forall_ - [taJN taJP taJR] - => - taJN - -> taJP - -> taJR - -> (taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR) -{-# L #-} -g{-r4Y,x-} = - _/\_ taJN taJP taJR -> - _letrec_ { - g_aEK :: taJN - -> taJP - -> taJR - -> (taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR, taJN, taJP, taJR) - {-# L #-} - g_aEK = - \ x_r3v :: taJN - {-# L #-} - x_r3v y_r3w :: taJP - {-# L #-} - y_r3w z_r3x :: taJR - {-# L #-} - z_r3x -> - PrelTup.(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,){-62q,w-}{i} - {_@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - _@_ taJN - _@_ taJP - _@_ taJR - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x - x_r3v - y_r3w - z_r3x}; - } in g_aEK -g1{-r4Z,x-} :: _forall_ - [taK6 taK8] - => - taK6 -> taK8 -> PrelBase.(){-40,W-} -{-# L #-} -g1{-r4Z,x-} = - _/\_ taK6 taK8 -> - _letrec_ { - g1_aJT :: taK6 -> taK8 -> PrelBase.(){-40,W-} - {-# L #-} - g1_aJT = - \ x_r3s :: taK6 - {-# L #-} - x_r3s y_r3t :: taK8 - {-# L #-} - y_r3t -> - PrelBase.(){-60,w-}{i}; - } in g1_aJT -f2{-r50,x-} :: _forall_ - [taKq taKs taKo] - => - taKq -> taKs -> [taKo] -{-# L #-} -f2{-r50,x-} = - _/\_ taKq taKs taKo -> - _letrec_ { - f2_aKa :: taKq -> taKs -> [taKo] - {-# L #-} - f2_aKa = - \ x_r3p :: taKq - {-# L #-} - x_r3p y_r3q :: taKs - {-# L #-} - y_r3q -> - PrelBase.[]{-5i,w-}{i} _@_ taKo; - } in f2_aKa -f{-r51,x-} :: _forall_ [taKN] => taKN -> taKN -> taKN -> [taKN] -{-# L #-} -f{-r51,x-} = - _/\_ taKN -> - _letrec_ { - f_aKu :: taKN -> taKN -> taKN -> [taKN] - {-# L #-} - f_aKu = - \ x_r3l :: taKN - {-# L #-} - x_r3l y_r3m :: taKN - {-# L #-} - y_r3m z_r3n :: taKN - {-# L #-} - z_r3n -> - let { ds_d1y6 :: [taKN] - {-# L #-} - ds_d1y6 = - let { ds_d1yi :: [taKN] - {-# L #-} - ds_d1yi = - let { ds_d1yu :: [taKN] - {-# L #-} - ds_d1yu = - let { ds_d1yG :: [taKN] - {-# L #-} - ds_d1yG = - let { ds_d1yS :: [taKN] - {-# L #-} - ds_d1yS = - let { - ds_d1z4 :: [taKN] - {-# L #-} - ds_d1z4 = - PrelBase.[]{-5i,w-}{i} {_@_ taKN} - } in PrelBase.:{-55,w-}{i} {_@_ taKN z_r3n ds_d1z4} - } in - PrelBase.:{-55,w-}{i} {_@_ taKN y_r3m ds_d1yS} - } in - PrelBase.:{-55,w-}{i} {_@_ taKN x_r3l ds_d1yG} - } in - PrelBase.:{-55,w-}{i} {_@_ taKN z_r3n ds_d1yu} - } in - PrelBase.:{-55,w-}{i} {_@_ taKN y_r3m ds_d1yi} - } in - PrelBase.:{-55,w-}{i} {_@_ taKN x_r3l ds_d1y6}; - } in f_aKu -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds019.stderr b/ghc/tests/deSugar/should_compile/ds019.stderr index 96f18d1..46e8eee 100644 --- a/ghc/tests/deSugar/should_compile/ds019.stderr +++ b/ghc/tests/deSugar/should_compile/ds019.stderr @@ -4,30 +4,3 @@ ds019.hs:7: ds019.hs:8: Warning: Pattern match(es) completely overlapped in the definition of function `f' - - -================================================================================ -Desugared: -Rec { -f{-r3y,x-} :: _forall_ - [tazA taz7 taza tazd tazq tazt tazy] - => - (taz7, taza, tazd) -> (tazq, tazt) -> tazA -> [tazy] -{-# L #-} -f{-r3y,x-} = - _/\_ tazA taz7 taza tazd tazq tazt tazy -> - _letrec_ { - f_ayl :: (taz7, taza, tazd) -> (tazq, tazt) -> tazA -> [tazy] - {-# L #-} - f_ayl = - \ ds_dEd :: (taz7, taza, tazd) - {-# L #-} - ds_dEd i_r3g :: (tazq, tazt) - {-# L #-} - i_r3g o_r3h :: tazA - {-# L #-} - o_r3h -> - case ds_dEd of { PrelTup.(,,){-63,w-}{i} a_r3d b_r3e c_r3f -> - PrelBase.[]{-5i,w-}{i} _@_ tazy;}; - } in f_ayl -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds020.stderr b/ghc/tests/deSugar/should_compile/ds020.stderr index b2d5859..5939b39 100644 --- a/ghc/tests/deSugar/should_compile/ds020.stderr +++ b/ghc/tests/deSugar/should_compile/ds020.stderr @@ -14,1448 +14,4 @@ ds020.hs:20: Warning: Pattern match(es) completely overlapped in the definition of function `f' - -================================================================================ -Desugared: -Rec { -==_a1Fg :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} -{-# L #-} -==_a1Fg = - ==_a1A2 -==_a1Fh :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} -{-# L #-} -==_a1Fh = - ==_a1A2 -lit_a1Fi :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1Fi = - lit_a1A4 -lit_a1Fj :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1Fj = - lit_a1A3 -ds_d1IS :: (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}) -{-# L #-} -ds_d1IS = - let { ds_d1RP :: (PrelBase.Char{-38,W-}, (PrelBase.Char{-38,W-}, (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}))) - {-# L #-} - ds_d1RP = - let { - eq4_aWR :: PrelBase.Bool{-34,W-} - {-# L #-} - eq4_aWR = - ==_a1Fh lit_a1Fi lit_a1Fj } in - let { - eq4_r49 :: PrelBase.Bool{-34,W-} - {-# L #-} - eq4_r49 = - eq4_aWR } in - let { - lit_a1MU :: PrelBase.Int{-3g,W-} - {-# L #-} - lit_a1MU = - lit_a1A5 } in - let { - eq3_aX5 :: PrelBase.Bool{-34,W-} - {-# L #-} - eq3_aX5 = - ==_a1Fg lit_a1A5 lit_a1MU } in - let { - eq3_r48 :: PrelBase.Bool{-34,W-} - {-# L #-} - eq3_r48 = - eq3_aX5 } in - let { - eq2_aXj :: PrelBase.Bool{-34,W-} - {-# L #-} - eq2_aXj = - ==_a1A2 lit_a1A3 lit_a1A4 } in - let { - eq2_r47 :: PrelBase.Bool{-34,W-} - {-# L #-} - eq2_r47 = - eq2_aXj - } in - case eq2_r47 of { - PrelBase.True{-5E,w-}{i} -> - let { - ds_d1Nw :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1Nw = - PrelBase.C#{-54,w-}{i} {'a'} } in - let { ds_d1NA :: (PrelBase.Char{-38,W-}, (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})) - {-# L #-} - ds_d1NA = - let { - ds_d1NQ :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1NQ = - PrelBase.C#{-54,w-}{i} {'a'} } in - let { ds_d1NU :: (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}) - {-# L #-} - ds_d1NU = - let { - ds_d1Oa :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1Oa = - PrelBase.C#{-54,w-}{i} {'a'} } in - let { - ds_d1Oe :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1Oe = - PrelBase.C#{-54,w-}{i} {'a'} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - ds_d1Oa - ds_d1Oe} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Char{-38,W-} - _@_ (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}) - ds_d1NQ - ds_d1NU} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Char{-38,W-} - _@_ (PrelBase.Char{-38,W-}, (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})) - ds_d1Nw - ds_d1NA}; - PrelBase.False{-58,w-}{i} -> - case eq3_r48 of { - PrelBase.True{-5E,w-}{i} -> - let { - ds_d1OI :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1OI = - PrelBase.C#{-54,w-}{i} {'b'} } in - let { ds_d1OM :: (PrelBase.Char{-38,W-}, (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})) - {-# L #-} - ds_d1OM = - let { - ds_d1P2 :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1P2 = - PrelBase.C#{-54,w-}{i} {'b'} } in - let { ds_d1P6 :: (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}) - {-# L #-} - ds_d1P6 = - let { - ds_d1Pm :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1Pm = - PrelBase.C#{-54,w-}{i} {'b'} } in - let { - ds_d1Pq :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1Pq = - PrelBase.C#{-54,w-}{i} {'b'} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - ds_d1Pm - ds_d1Pq} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Char{-38,W-} - _@_ (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}) - ds_d1P2 - ds_d1P6} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Char{-38,W-} - _@_ (PrelBase.Char{-38,W-}, (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})) - ds_d1OI - ds_d1OM}; - PrelBase.False{-58,w-}{i} -> - case eq4_r49 of { - PrelBase.True{-5E,w-}{i} -> - let { - ds_d1PU :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1PU = - PrelBase.C#{-54,w-}{i} {'c'} } in - let { ds_d1PY :: (PrelBase.Char{-38,W-}, (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})) - {-# L #-} - ds_d1PY = - let { - ds_d1Qe :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1Qe = - PrelBase.C#{-54,w-}{i} {'c'} } in - let { ds_d1Qi :: (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}) - {-# L #-} - ds_d1Qi = - let { - ds_d1Qy :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1Qy = - PrelBase.C#{-54,w-}{i} {'c'} } in - let { - ds_d1QC :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1QC = - PrelBase.C#{-54,w-}{i} {'c'} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - ds_d1Qy - ds_d1QC} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Char{-38,W-} - _@_ (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}) - ds_d1Qe - ds_d1Qi} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Char{-38,W-} - _@_ (PrelBase.Char{-38,W-}, (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})) - ds_d1PU - ds_d1PY}; - PrelBase.False{-58,w-}{i} -> - let { - ds_d1QY :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1QY = - PrelBase.C#{-54,w-}{i} {'d'} } in - let { ds_d1R2 :: (PrelBase.Char{-38,W-}, (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})) - {-# L #-} - ds_d1R2 = - let { - ds_d1Ri :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1Ri = - PrelBase.C#{-54,w-}{i} {'d'} } in - let { ds_d1Rm :: (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}) - {-# L #-} - ds_d1Rm = - let { - ds_d1RC :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1RC = - PrelBase.C#{-54,w-}{i} {'d'} } in - let { - ds_d1RG :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1RG = - PrelBase.C#{-54,w-}{i} {'d'} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - ds_d1RC - ds_d1RG} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Char{-38,W-} - _@_ (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-}) - ds_d1Ri - ds_d1Rm} - } in - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Char{-38,W-} - _@_ (PrelBase.Char{-38,W-}, (PrelBase.Char{-38,W-}, PrelBase.Char{-38,W-})) - ds_d1QY - ds_d1R2}; - }; - }; - } - } in - case ds_d1RP of { PrelTup.(,){-62,w-}{i} x4_aWs ds_d1RY -> - case ds_d1RY of { PrelTup.(,){-62,w-}{i} y4_aWt ds_d1S7 -> - case ds_d1S7 of { PrelTup.(,){-62,w-}{i} z4_aWu a4_aWv -> - PrelTup.(,,,){-64,w-}{i} - {_@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - _@_ PrelBase.Char{-38,W-} - x4_aWs - y4_aWt - z4_aWu - a4_aWv};};};} -x4_aWs :: PrelBase.Char{-38,W-} -{-# L #-} -x4_aWs = - case - ds_d1IS - of { - PrelTup.(,,,){-64,w-}{i} x4_aWs y4_aWt z4_aWu a4_aWv -> - x4_aWs;} -y4_aWt :: PrelBase.Char{-38,W-} -{-# L #-} -y4_aWt = - case - ds_d1IS - of { - PrelTup.(,,,){-64,w-}{i} x4_aWs y4_aWt z4_aWu a4_aWv -> - y4_aWt;} -z4_aWu :: PrelBase.Char{-38,W-} -{-# L #-} -z4_aWu = - case - ds_d1IS - of { - PrelTup.(,,,){-64,w-}{i} x4_aWs y4_aWt z4_aWu a4_aWv -> - z4_aWu;} -a4_aWv :: PrelBase.Char{-38,W-} -{-# L #-} -a4_aWv = - case - ds_d1IS - of { - PrelTup.(,,,){-64,w-}{i} x4_aWs y4_aWt z4_aWu a4_aWv -> - a4_aWv;} -x4{-r4d,x-} :: PrelBase.Char{-38,W-} -{-# L #-} -x4{-r4d,x-} = - x4_aWs -y4{-r4c,x-} :: PrelBase.Char{-38,W-} -{-# L #-} -y4{-r4c,x-} = - y4_aWt -z4{-r4b,x-} :: PrelBase.Char{-38,W-} -{-# L #-} -z4{-r4b,x-} = - z4_aWu -a4{-r4a,x-} :: PrelBase.Char{-38,W-} -{-# L #-} -a4{-r4a,x-} = - a4_aWv -lit_a1Jt :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1Jt = - lit_a1zW -ds_d1Jy :: (PrelBase.Int{-3g,W-}, PrelBase.Int{-3g,W-}) -{-# L #-} -ds_d1Jy = - case >_a1zV x3_aYi lit_a1zW of { - PrelBase.True{-5E,w-}{i} -> - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Int{-3g,W-} - _@_ PrelBase.Int{-3g,W-} - lit_a1zX - lit_a1zY}; - PrelBase.False{-58,w-}{i} -> - case <=_a1zZ x3_aYi lit_a1Jt of { - PrelBase.True{-5E,w-}{i} -> - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Int{-3g,W-} - _@_ PrelBase.Int{-3g,W-} - lit_a1A0 - lit_a1A1}; - PrelBase.False{-58,w-}{i} -> - GHCerr.nonExhaustiveGuardsError{-8l,w-} - _@_ (PrelBase.Int{-3g,W-}, PrelBase.Int{-3g,W-}) - _string_ "ds020.hs:42|"; - }; - } -x3_aYi :: PrelBase.Int{-3g,W-} -{-# L #-} -x3_aYi = - case ds_d1Jy of { PrelTup.(,){-62,w-}{i} x3_aYi y3_aYj -> x3_aYi;} -y3_aYj :: PrelBase.Int{-3g,W-} -{-# L #-} -y3_aYj = - case ds_d1Jy of { PrelTup.(,){-62,w-}{i} x3_aYi y3_aYj -> y3_aYj;} -x3{-r4f,x-} :: PrelBase.Int{-3g,W-} -{-# L #-} -x3{-r4f,x-} = - x3_aYi -y3{-r4e,x-} :: PrelBase.Int{-3g,W-} -{-# L #-} -y3{-r4e,x-} = - y3_aYj -ds_d1JT :: _forall_ [taZa] => (taZa, taZa, [taZa]) -{-# L #-} -ds_d1JT = - _/\_ taZa -> - _letrec_ { - ==_a1zQ :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1zQ = - ==_a1zR; - ==_a1A6 :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1A6 = - ==_a1zR; - lit_a1A7 :: PrelBase.Int{-3g,W-} - {-# L #-} - lit_a1A7 = - lit_a1zT; - lit_a1A8 :: PrelBase.Int{-3g,W-} - {-# L #-} - lit_a1A8 = - lit_a1zS; - ds_d1V4 :: (taZa, taZa, [taZa]) - {-# L #-} - ds_d1V4 = - let { ds_d1Xt :: [taZa] - {-# L #-} - ds_d1Xt = - let { - eq4_aZg :: PrelBase.Bool{-34,W-} - {-# L #-} - eq4_aZg = - ==_a1A6 lit_a1A7 lit_a1A8 } in - let { - eq4_r3Y :: PrelBase.Bool{-34,W-} - {-# L #-} - eq4_r3Y = - eq4_aZg } in - let { - lit_a1VR :: PrelBase.Int{-3g,W-} - {-# L #-} - lit_a1VR = - lit_a1zU } in - let { - eq3_aZu :: PrelBase.Bool{-34,W-} - {-# L #-} - eq3_aZu = - ==_a1zQ lit_a1zU lit_a1VR } in - let { - eq3_r3X :: PrelBase.Bool{-34,W-} - {-# L #-} - eq3_r3X = - eq3_aZu } in - let { - eq2_aZI :: PrelBase.Bool{-34,W-} - {-# L #-} - eq2_aZI = - ==_a1zR lit_a1zS lit_a1zT } in - let { - eq2_r3W :: PrelBase.Bool{-34,W-} - {-# L #-} - eq2_r3W = - eq2_aZI - } in - case eq2_r3W of { - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taZa; - PrelBase.False{-58,w-}{i} -> - case eq3_r3X of { - PrelBase.True{-5E,w-}{i} -> - let { - ds_d1WI :: [taZa] - {-# L #-} - ds_d1WI = - PrelBase.[]{-5i,w-}{i} {_@_ taZa} - } in PrelBase.:{-55,w-}{i} {_@_ taZa x2_aZ2 ds_d1WI}; - PrelBase.False{-58,w-}{i} -> - case eq4_r3Y of { - PrelBase.True{-5E,w-}{i} -> - let { - ds_d1X8 :: [taZa] - {-# L #-} - ds_d1X8 = - PrelBase.[]{-5i,w-}{i} {_@_ taZa} - } in PrelBase.:{-55,w-}{i} {_@_ taZa x2_aZ2 ds_d1X8}; - PrelBase.False{-58,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taZa; - }; - }; - } - } in - let { - fail_d1Xu :: (taZa, taZa, [taZa]) - {-# L #-} - fail_d1Xu = - GHCerr.irrefutPatError{-8g,w-} - _@_ (taZa, taZa, [taZa]) - _string_ "ds020.hs:39|(x2 PrelBase.: (xs2 PrelBase.: ys2))" - } in - case ds_d1Xt of { - PrelBase.[]{-5i,w-}{i} -> fail_d1Xu; - PrelBase.:{-55,w-}{i} x2_aZ2 ds_d1XH -> - case ds_d1XH of { - PrelBase.[]{-5i,w-}{i} -> fail_d1Xu; - PrelBase.:{-55,w-}{i} xs2_aZ3 ys2_aZ4 -> - PrelTup.(,,){-63,w-}{i} - {_@_ taZa _@_ taZa _@_ [taZa] x2_aZ2 xs2_aZ3 ys2_aZ4}; - }; - }; - x2_aZ2 :: taZa - {-# L #-} - x2_aZ2 = - case - ds_d1V4 - of { - PrelTup.(,,){-63,w-}{i} x2_aZ2 xs2_aZ3 ys2_aZ4 -> - x2_aZ2;}; - xs2_aZ3 :: taZa - {-# L #-} - xs2_aZ3 = - case - ds_d1V4 - of { - PrelTup.(,,){-63,w-}{i} x2_aZ2 xs2_aZ3 ys2_aZ4 -> - xs2_aZ3;}; - ys2_aZ4 :: [taZa] - {-# L #-} - ys2_aZ4 = - case - ds_d1V4 - of { - PrelTup.(,,){-63,w-}{i} x2_aZ2 xs2_aZ3 ys2_aZ4 -> - ys2_aZ4;}; - } in - PrelTup.(,,){-63,w-}{i} - {_@_ taZa _@_ taZa _@_ [taZa] x2_aZ2 xs2_aZ3 ys2_aZ4} -x2{-r3Z,x-} :: _forall_ [taZa] => taZa -{-# L #-} -x2{-r3Z,x-} = - _/\_ taZa -> - case - ds_d1JT _@_ taZa - of { - PrelTup.(,,){-63,w-}{i} ds_d1Z2 ds_d1Z3 ds_d1Z4 -> - ds_d1Z2;} -xs2{-r4h,x-} :: _forall_ [taZa] => taZa -{-# L #-} -xs2{-r4h,x-} = - _/\_ taZa -> - case - ds_d1JT _@_ taZa - of { - PrelTup.(,,){-63,w-}{i} ds_d1Zk ds_d1Zj ds_d1Zl -> - ds_d1Zj;} -ys2{-r4g,x-} :: _forall_ [taZa] => [taZa] -{-# L #-} -ys2{-r4g,x-} = - _/\_ taZa -> - case - ds_d1JT _@_ taZa - of { - PrelTup.(,,){-63,w-}{i} ds_d1ZB ds_d1ZC ds_d1ZA -> - ds_d1ZA;} -ds_d1Ka :: _forall_ [ta10j] => (ta10j, ta10j, [ta10j]) -{-# L #-} -ds_d1Ka = - _/\_ ta10j -> - _letrec_ { - ds_d1ZO :: (ta10j, ta10j, [ta10j]) - {-# L #-} - ds_d1ZO = - let { - ds_d208 :: [ta10j] - {-# L #-} - ds_d208 = - PrelBase.[]{-5i,w-}{i} _@_ ta10j } in - let { - fail_d20l :: (ta10j, ta10j, [ta10j]) - {-# L #-} - fail_d20l = - GHCerr.irrefutPatError{-8g,w-} - _@_ (ta10j, ta10j, [ta10j]) - _string_ "ds020.hs:30|(~x PrelBase.: (~xs PrelBase.: ~ys))" - } in - case ds_d208 of { - PrelBase.[]{-5i,w-}{i} -> fail_d20l; - PrelBase.:{-55,w-}{i} x_a10c ds_d20y -> - case ds_d20y of { - PrelBase.[]{-5i,w-}{i} -> fail_d20l; - PrelBase.:{-55,w-}{i} xs_a10d ys_a10e -> - let { - ys_a10e :: [ta10j] - {-# L #-} - ys_a10e = - ys_a10e } in - let { - xs_a10d :: ta10j - {-# L #-} - xs_a10d = - xs_a10d } in - let { - x_a10c :: ta10j - {-# L #-} - x_a10c = - x_a10c - } in - PrelTup.(,,){-63,w-}{i} - {_@_ ta10j _@_ ta10j _@_ [ta10j] x_a10c xs_a10d ys_a10e}; - }; - }; - x_a10c :: ta10j - {-# L #-} - x_a10c = - case - ds_d1ZO - of { - PrelTup.(,,){-63,w-}{i} x_a10c xs_a10d ys_a10e -> - x_a10c;}; - xs_a10d :: ta10j - {-# L #-} - xs_a10d = - case - ds_d1ZO - of { - PrelTup.(,,){-63,w-}{i} x_a10c xs_a10d ys_a10e -> - xs_a10d;}; - ys_a10e :: [ta10j] - {-# L #-} - ys_a10e = - case - ds_d1ZO - of { - PrelTup.(,,){-63,w-}{i} x_a10c xs_a10d ys_a10e -> - ys_a10e;}; - } in - PrelTup.(,,){-63,w-}{i} - {_@_ ta10j _@_ ta10j _@_ [ta10j] x_a10c xs_a10d ys_a10e} -x{-r4k,x-} :: _forall_ [ta10j] => ta10j -{-# L #-} -x{-r4k,x-} = - _/\_ ta10j -> - case - ds_d1Ka _@_ ta10j - of { - PrelTup.(,,){-63,w-}{i} ds_d222 ds_d223 ds_d224 -> - ds_d222;} -xs{-r4j,x-} :: _forall_ [ta10j] => ta10j -{-# L #-} -xs{-r4j,x-} = - _/\_ ta10j -> - case - ds_d1Ka _@_ ta10j - of { - PrelTup.(,,){-63,w-}{i} ds_d22k ds_d22j ds_d22l -> - ds_d22j;} -ys{-r4i,x-} :: _forall_ [ta10j] => [ta10j] -{-# L #-} -ys{-r4i,x-} = - _/\_ ta10j -> - case - ds_d1Ka _@_ ta10j - of { - PrelTup.(,,){-63,w-}{i} ds_d22B ds_d22C ds_d22A -> - ds_d22A;} -ds_d1Kr :: _forall_ [ta10z] => (ta10z, ta10z, [ta10z]) -{-# L #-} -ds_d1Kr = - _/\_ ta10z -> - _letrec_ { - ds_d22O :: (ta10z, ta10z, [ta10z]) - {-# L #-} - ds_d22O = - let { - ds_d238 :: [ta10z] - {-# L #-} - ds_d238 = - PrelBase.[]{-5i,w-}{i} _@_ ta10z } in - let { - fail_d23l :: (ta10z, ta10z, [ta10z]) - {-# L #-} - fail_d23l = - GHCerr.irrefutPatError{-8g,w-} - _@_ (ta10z, ta10z, [ta10z]) - _string_ "ds020.hs:29|(x1 PrelBase.: (xs1 PrelBase.: ys1))" - } in - case ds_d238 of { - PrelBase.[]{-5i,w-}{i} -> fail_d23l; - PrelBase.:{-55,w-}{i} x1_a10s ds_d23y -> - case ds_d23y of { - PrelBase.[]{-5i,w-}{i} -> fail_d23l; - PrelBase.:{-55,w-}{i} xs1_a10t ys1_a10u -> - PrelTup.(,,){-63,w-}{i} - {_@_ ta10z _@_ ta10z _@_ [ta10z] x1_a10s xs1_a10t ys1_a10u}; - }; - }; - x1_a10s :: ta10z - {-# L #-} - x1_a10s = - case - ds_d22O - of { - PrelTup.(,,){-63,w-}{i} x1_a10s xs1_a10t ys1_a10u -> - x1_a10s;}; - xs1_a10t :: ta10z - {-# L #-} - xs1_a10t = - case - ds_d22O - of { - PrelTup.(,,){-63,w-}{i} x1_a10s xs1_a10t ys1_a10u -> - xs1_a10t;}; - ys1_a10u :: [ta10z] - {-# L #-} - ys1_a10u = - case - ds_d22O - of { - PrelTup.(,,){-63,w-}{i} x1_a10s xs1_a10t ys1_a10u -> - ys1_a10u;}; - } in - PrelTup.(,,){-63,w-}{i} - {_@_ ta10z _@_ ta10z _@_ [ta10z] x1_a10s xs1_a10t ys1_a10u} -x1{-r4n,x-} :: _forall_ [ta10z] => ta10z -{-# L #-} -x1{-r4n,x-} = - _/\_ ta10z -> - case - ds_d1Kr _@_ ta10z - of { - PrelTup.(,,){-63,w-}{i} ds_d24T ds_d24U ds_d24V -> - ds_d24T;} -xs1{-r4m,x-} :: _forall_ [ta10z] => ta10z -{-# L #-} -xs1{-r4m,x-} = - _/\_ ta10z -> - case - ds_d1Kr _@_ ta10z - of { - PrelTup.(,,){-63,w-}{i} ds_d25b ds_d25a ds_d25c -> - ds_d25a;} -ys1{-r4l,x-} :: _forall_ [ta10z] => [ta10z] -{-# L #-} -ys1{-r4l,x-} = - _/\_ ta10z -> - case - ds_d1Kr _@_ ta10z - of { - PrelTup.(,,){-63,w-}{i} ds_d25s ds_d25t ds_d25r -> - ds_d25r;} -ds_d1KI :: PrelBase.(){-40,W-} -{-# L #-} -ds_d1KI = - let { ds_d26d :: ([GHC.Void{-3T,W-}], [GHC.Void{-3T,W-}], [GHC.Void{-3T,W-}]) - {-# L #-} - ds_d26d = - let { - ds_d25N :: [GHC.Void{-3T,W-}] - {-# L #-} - ds_d25N = - PrelBase.[]{-5i,w-}{i} _@_ GHC.Void{-3T,W-} } in - let { - ds_d25R :: [GHC.Void{-3T,W-}] - {-# L #-} - ds_d25R = - PrelBase.[]{-5i,w-}{i} _@_ GHC.Void{-3T,W-} } in - let { - ds_d25V :: [GHC.Void{-3T,W-}] - {-# L #-} - ds_d25V = - PrelBase.[]{-5i,w-}{i} _@_ GHC.Void{-3T,W-} - } in - PrelTup.(,,){-63,w-}{i} - {_@_ [GHC.Void{-3T,W-}] - _@_ [GHC.Void{-3T,W-}] - _@_ [GHC.Void{-3T,W-}] - ds_d25N - ds_d25R - ds_d25V} - } in - case - ds_d26d - of { - PrelTup.(,,){-63,w-}{i} ds_d26D ds_d26E ds_d26C -> - let { ds_d274 :: PrelBase.(){-40,W-} - {-# L #-} - ds_d274 = - let { - fail_d26F :: PrelBase.(){-40,W-} - {-# L #-} - fail_d26F = - GHCerr.irrefutPatError{-8g,w-} - _@_ PrelBase.(){-40,W-} _string_ "ds020.hs:27|PrelBase.[]" - } in - case ds_d26C of { - PrelBase.:{-55,w-}{i} ds_d26M ds_d26N -> fail_d26F; - PrelBase.[]{-5i,w-}{i} -> PrelBase.(){-60,w-}{i} {}; - } - } in - let { ds_d27u :: PrelBase.(){-40,W-} - {-# L #-} - ds_d27u = - let { - fail_d275 :: PrelBase.(){-40,W-} - {-# L #-} - fail_d275 = - GHCerr.irrefutPatError{-8g,w-} - _@_ PrelBase.(){-40,W-} _string_ "ds020.hs:27|PrelBase.[]" - } in - case ds_d26E of { - PrelBase.:{-55,w-}{i} ds_d27c ds_d27d -> fail_d275; - PrelBase.[]{-5i,w-}{i} -> PrelBase.(){-60,w-}{i} {}; - } - } in - let { ds_d2ql :: PrelBase.(){-40,W-} - {-# L #-} - ds_d2ql = - let { - fail_d27v :: PrelBase.(){-40,W-} - {-# L #-} - fail_d27v = - GHCerr.irrefutPatError{-8g,w-} - _@_ PrelBase.(){-40,W-} _string_ "ds020.hs:27|PrelBase.[]" - } in - case ds_d26D of { - PrelBase.:{-55,w-}{i} ds_d27C ds_d27D -> fail_d27v; - PrelBase.[]{-5i,w-}{i} -> PrelBase.(){-60,w-}{i} {}; - } - } in - PrelBase.(){-60,w-}{i} {};} -ds_d1KN :: PrelBase.(){-40,W-} -{-# L #-} -ds_d1KN = - let { ds_d28A :: ([GHC.Void{-3T,W-}], [GHC.Void{-3T,W-}], [GHC.Void{-3T,W-}]) - {-# L #-} - ds_d28A = - let { - ds_d283 :: [GHC.Void{-3T,W-}] - {-# L #-} - ds_d283 = - PrelBase.[]{-5i,w-}{i} _@_ GHC.Void{-3T,W-} } in - let { - ds_d287 :: [GHC.Void{-3T,W-}] - {-# L #-} - ds_d287 = - PrelBase.[]{-5i,w-}{i} _@_ GHC.Void{-3T,W-} } in - let { - ds_d28b :: [GHC.Void{-3T,W-}] - {-# L #-} - ds_d28b = - PrelBase.[]{-5i,w-}{i} _@_ GHC.Void{-3T,W-} - } in - PrelTup.(,,){-63,w-}{i} - {_@_ [GHC.Void{-3T,W-}] - _@_ [GHC.Void{-3T,W-}] - _@_ [GHC.Void{-3T,W-}] - ds_d283 - ds_d287 - ds_d28b} - } in - let { - fail_d28B :: PrelBase.(){-40,W-} - {-# L #-} - fail_d28B = - GHCerr.irrefutPatError{-8g,w-} - _@_ PrelBase.(){-40,W-} - _string_ "ds020.hs:26|(PrelBase.[], PrelBase.[], PrelBase.[])" - } in - case - ds_d28A - of { - PrelTup.(,,){-63,w-}{i} ds_d28K ds_d28L ds_d28M -> - case ds_d28K of { - PrelBase.:{-55,w-}{i} ds_d28T ds_d28U -> fail_d28B; - PrelBase.[]{-5i,w-}{i} -> - case ds_d28L of { - PrelBase.:{-55,w-}{i} ds_d297 ds_d298 -> fail_d28B; - PrelBase.[]{-5i,w-}{i} -> - case ds_d28M of { - PrelBase.:{-55,w-}{i} ds_d29l ds_d29m -> fail_d28B; - PrelBase.[]{-5i,w-}{i} -> PrelBase.(){-60,w-}{i} {}; - }; - }; - };} -g{-r4o,x-} :: _forall_ [ta11C ta11F] => [ta11C] -> [ta11F] -{-# L #-} -g{-r4o,x-} = - _/\_ ta11C ta11F -> - _letrec_ { - g_a11w :: [ta11C] -> [ta11F] - {-# L #-} - g_a11w = - \ ds_d2a5 :: [ta11C] - {-# L #-} - ds_d2a5 -> - let { ds_d2qm :: PrelBase.(){-40,W-} - {-# L #-} - ds_d2qm = - let { ds_d2qn :: PrelBase.(){-40,W-} - {-# L #-} - ds_d2qn = - let { ds_d2qo :: PrelBase.(){-40,W-} - {-# L #-} - ds_d2qo = - let { ds_d2qp :: PrelBase.(){-40,W-} - {-# L #-} - ds_d2qp = - let { - fail_d2a6 :: PrelBase.(){-40,W-} - {-# L #-} - fail_d2a6 = - GHCerr.irrefutPatError{-8g,w-} - _@_ PrelBase.(){-40,W-} _string_ "ds020.hs:22|PrelBase.[]" - } in - case ds_d2a5 of { - PrelBase.:{-55,w-}{i} ds_d2ad ds_d2ae -> fail_d2a6; - PrelBase.[]{-5i,w-}{i} -> PrelBase.(){-60,w-}{i} {}; - } - } in - PrelBase.(){-60,w-}{i} {} - } in - PrelBase.(){-60,w-}{i} {} - } in - PrelBase.(){-60,w-}{i} {} - } in - PrelBase.[]{-5i,w-}{i} _@_ ta11F; - } in g_a11w -f{-r4p,x-} :: _forall_ [ta11W ta11Y] => [ta11W] -> [ta11Y] -{-# L #-} -f{-r4p,x-} = - _/\_ ta11W ta11Y -> - _letrec_ { - f_a11H :: [ta11W] -> [ta11Y] - {-# L #-} - f_a11H = - \ x_r3R :: [ta11W] - {-# L #-} - x_r3R -> - let { x_r3R :: [ta11W] - {-# L #-} - x_r3R = - let { - fail_d2aQ :: [ta11W] - {-# L #-} - fail_d2aQ = - GHCerr.irrefutPatError{-8g,w-} - _@_ [ta11W] _string_ "ds020.hs:19|(x@PrelBase.[])" - } in - case x_r3R of { - PrelBase.:{-55,w-}{i} ds_d2aX ds_d2aY -> fail_d2aQ; - PrelBase.[]{-5i,w-}{i} -> x_r3R; - } - } in - PrelBase.[]{-5i,w-}{i} _@_ ta11Y; - } in f_a11H -d{-r4q,x-} :: _forall_ - [ta125 ta12z] - => - {PrelBase.Num{-2c,p-} ta125} - -> {PrelBase.Num{-2c,p-} ta12z} - -> {PrelBase.Ord{-2d,p-} ta125} - -> ta125 - -> ta12z -{-# L #-} -d{-r4q,x-} = - _/\_ ta125 ta12z -> \ d.Num_a12C :: {PrelBase.Num{-2c,p-} ta125} - {-# L #-} - d.Num_a12C d.Num_a12H :: {PrelBase.Num{-2c,p-} ta12z} - {-# L #-} - d.Num_a12H d.Ord_a12M :: {PrelBase.Ord{-2d,p-} ta125} - {-# L #-} - d.Ord_a12M -> - _letrec_ { - d.Eq_a12E :: {PrelBase.Eq{-23,p-} ta125} - {-# L #-} - d.Eq_a12E = - PrelBase.scsel_OrdPrelBaseEq{-a2bU,p-} _@_ ta125 d.Ord_a12M; - fromInt_a2bq :: PrelBase.Int{-3g,W-} -> ta125 - {-# L #-} - fromInt_a2bq = - PrelBase.fromInt{-8R,p-} _@_ ta125 d.Num_a12C; - lit_a2br :: ta125 - {-# L #-} - lit_a2br = - let { - ds_d2e5 :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d2e5 = - PrelBase.I#{-5b,w-}{i} 11 - } in fromInt_a2bq ds_d2e5; - ==_a2bs :: ta125 -> ta125 -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a2bs = - PrelBase.=={-8Y,p-} _@_ ta125 d.Eq_a12E; - fromInt_a2bt :: PrelBase.Int{-3g,W-} -> ta12z - {-# L #-} - fromInt_a2bt = - PrelBase.fromInt{-8R,p-} _@_ ta12z d.Num_a12H; - lit_a2bu :: ta12z - {-# L #-} - lit_a2bu = - let { - ds_d2ez :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d2ez = - PrelBase.I#{-5b,w-}{i} 4 - } in fromInt_a2bt ds_d2ez; - fromInt_a2bv :: PrelBase.Int{-3g,W-} -> ta125 - {-# L #-} - fromInt_a2bv = - fromInt_a2bq; - lit_a2bw :: ta125 - {-# L #-} - lit_a2bw = - let { - ds_d2eO :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d2eO = - PrelBase.I#{-5b,w-}{i} 12 - } in fromInt_a2bv ds_d2eO; - ==_a2bx :: ta125 -> ta125 -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a2bx = - ==_a2bs; - fromInt_a2by :: PrelBase.Int{-3g,W-} -> ta12z - {-# L #-} - fromInt_a2by = - fromInt_a2bt; - lit_a2bz :: ta12z - {-# L #-} - lit_a2bz = - let { - ds_d2f4 :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d2f4 = - PrelBase.I#{-5b,w-}{i} 3 - } in fromInt_a2by ds_d2f4; - fromInt_a2bA :: PrelBase.Int{-3g,W-} -> ta125 - {-# L #-} - fromInt_a2bA = - fromInt_a2bq; - lit_a2bB :: ta125 - {-# L #-} - lit_a2bB = - let { - ds_d2fj :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d2fj = - PrelBase.I#{-5b,w-}{i} 4 - } in fromInt_a2bA ds_d2fj; - >=_a2bC :: ta125 -> ta125 -> PrelBase.Bool{-34,W-} - {-# L #-} - >=_a2bC = - PrelBase.>={-8Z,p-} _@_ ta125 d.Ord_a12M; - d.Num_a12O :: {PrelBase.Num{-2c,p-} ta125} - {-# L #-} - d.Num_a12O = - d.Num_a12C; - -_a2bD :: ta125 -> ta125 -> ta125 - {-# L #-} - -_a2bD = - PrelBase.-{-817,p-} _@_ ta125 d.Num_a12O; - fromInt_a2bE :: PrelBase.Int{-3g,W-} -> ta12z - {-# L #-} - fromInt_a2bE = - fromInt_a2bt; - lit_a2bF :: ta12z - {-# L #-} - lit_a2bF = - let { - ds_d2fP :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d2fP = - PrelBase.I#{-5b,w-}{i} 2 - } in fromInt_a2bE ds_d2fP; - fromInt_a2bG :: PrelBase.Int{-3g,W-} -> ta125 - {-# L #-} - fromInt_a2bG = - fromInt_a2bq; - lit_a2bH :: ta125 - {-# L #-} - lit_a2bH = - let { - ds_d2g4 :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d2g4 = - PrelBase.I#{-5b,w-}{i} 43 - } in fromInt_a2bG ds_d2g4; - >=_a2bI :: ta125 -> ta125 -> PrelBase.Bool{-34,W-} - {-# L #-} - >=_a2bI = - >=_a2bC; - -_a2bJ :: ta125 -> ta125 -> ta125 - {-# L #-} - -_a2bJ = - -_a2bD; - fromInt_a2bK :: PrelBase.Int{-3g,W-} -> ta12z - {-# L #-} - fromInt_a2bK = - fromInt_a2bt; - lit_a2bL :: ta12z - {-# L #-} - lit_a2bL = - let { - ds_d2gl :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d2gl = - PrelBase.I#{-5b,w-}{i} 1 - } in fromInt_a2bK ds_d2gl; - fromInt_a2bM :: PrelBase.Int{-3g,W-} -> ta125 - {-# L #-} - fromInt_a2bM = - fromInt_a2bq; - lit_a2bN :: ta125 - {-# L #-} - lit_a2bN = - let { - ds_d2gA :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d2gA = - PrelBase.I#{-5b,w-}{i} 999 - } in fromInt_a2bM ds_d2gA; - >=_a2bO :: ta125 -> ta125 -> PrelBase.Bool{-34,W-} - {-# L #-} - >=_a2bO = - >=_a2bC; - -_a2bP :: ta125 -> ta125 -> ta125 - {-# L #-} - -_a2bP = - -_a2bD; - fromInt_a2bQ :: PrelBase.Int{-3g,W-} -> ta12z - {-# L #-} - fromInt_a2bQ = - fromInt_a2bt; - lit_a2bR :: ta12z - {-# L #-} - lit_a2bR = - let { - ds_d2gR :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d2gR = - PrelBase.I#{-5b,w-}{i} 0 - } in fromInt_a2bQ ds_d2gR; - d_a120 :: ta125 -> ta12z - {-# L #-} - d_a120 = - \ ds_d2hp :: ta125 - {-# L #-} - ds_d2hp -> - let { fail_d2ig :: ta12z - {-# L #-} - fail_d2ig = - let { ds_d2h9 :: PrelBase.(){-40,W-} - {-# L #-} - ds_d2h9 = - let { - fail_d2hC :: PrelBase.(){-40,W-} - {-# L #-} - fail_d2hC = - GHCerr.irrefutPatError{-8g,w-} - _@_ PrelBase.(){-40,W-} _string_ "ds020.hs:13|(n+4)" - } in - case - (\ ds_d2hw :: ta125 - {-# L #-} - ds_d2hw -> - >=_a2bC ds_d2hw lit_a2bB) - ds_d2hp - of { - PrelBase.True{-5E,w-}{i} -> - let { - n_r3L :: ta125 - {-# L #-} - n_r3L = - (\ ds_d2hV :: ta125 - {-# L #-} - ds_d2hV -> - -_a2bD ds_d2hV lit_a2bB) - ds_d2hp - } in PrelBase.(){-60,w-}{i} {}; - PrelBase.False{-58,w-}{i} -> fail_d2hC; - } - } in - lit_a2bF - } in - let { - fail_d2iA :: ta12z - {-# L #-} - fail_d2iA = - case ==_a2bx lit_a2bw ds_d2hp of { - PrelBase.True{-5E,w-}{i} -> lit_a2bz; - PrelBase.False{-58,w-}{i} -> fail_d2ig; - } - } in - case ==_a2bs lit_a2br ds_d2hp of { - PrelBase.True{-5E,w-}{i} -> lit_a2bu; - PrelBase.False{-58,w-}{i} -> fail_d2iA; - }; - } in d_a120 -c{-r4r,x-} :: _forall_ - [ta13o ta13b ta13i ta13q] - => - {PrelNum.Fractional{-26,p-} ta13i} - -> {PrelBase.Num{-2c,p-} ta13b} - -> ta13q - -> ta13o - -> ta13b - -> ta13i - -> ta13q -{-# L #-} -c{-r4r,x-} = - _/\_ ta13o ta13b ta13i ta13q -> \ d.Fractional_a13y :: {PrelNum.Fractional{-26,p-} ta13i} - {-# L #-} - d.Fractional_a13y d.Num_a13t :: {PrelBase.Num{-2c,p-} ta13b} - {-# L #-} - d.Num_a13t -> - _letrec_ { - d.Eq_a13v :: {PrelBase.Eq{-23,p-} ta13b} - {-# L #-} - d.Eq_a13v = - PrelBase.scsel_NumPrelBaseEq{-a2jg,p-} _@_ ta13b d.Num_a13t; - d.Num_a155 :: {PrelBase.Num{-2c,p-} ta13i} - {-# L #-} - d.Num_a155 = - PrelNum.scsel_FractionalPrelBaseNum{-a2jZ,p-} - _@_ ta13i d.Fractional_a13y; - d.Eq_a13A :: {PrelBase.Eq{-23,p-} ta13i} - {-# L #-} - d.Eq_a13A = - PrelBase.scsel_NumPrelBaseEq{-a2jg,p-} _@_ ta13i d.Num_a155; - fromInt_a2j8 :: PrelBase.Int{-3g,W-} -> ta13b - {-# L #-} - fromInt_a2j8 = - PrelBase.fromInt{-8R,p-} _@_ ta13b d.Num_a13t; - lit_a2j9 :: ta13b - {-# L #-} - lit_a2j9 = - let { - ds_d2km :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d2km = - PrelBase.I#{-5b,w-}{i} 11111 - } in fromInt_a2j8 ds_d2km; - ==_a2ja :: ta13b -> ta13b -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a2ja = - PrelBase.=={-8Y,p-} _@_ ta13b d.Eq_a13v; - fromRational_a2jb :: PrelNum.Rational{-3r,p-} -> ta13i - {-# L #-} - fromRational_a2jb = - PrelNum.fromRational{-8T,p-} _@_ ta13i d.Fractional_a13y; - lit_a2jc :: ta13i - {-# L #-} - lit_a2jc = - fromRational_a2jb _rational_ 62831853 20000000; - ==_a2jd :: ta13i -> ta13i -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a2jd = - PrelBase.=={-8Y,p-} _@_ ta13i d.Eq_a13A; - c_a12W :: ta13q -> ta13o -> ta13b -> ta13i -> ta13q - {-# L #-} - c_a12W = - \ x_r3H :: ta13q - {-# L #-} - x_r3H ds_d2lx :: ta13o - {-# L #-} - ds_d2lx ds_d2ly :: ta13b - {-# L #-} - ds_d2ly ds_d2lu :: ta13i - {-# L #-} - ds_d2lu -> - let { ds_d2m4 :: PrelBase.(){-40,W-} - {-# L #-} - ds_d2m4 = - let { - fail_d2lz :: PrelBase.(){-40,W-} - {-# L #-} - fail_d2lz = - GHCerr.irrefutPatError{-8g,w-} - _@_ PrelBase.(){-40,W-} _string_ "ds020.hs:11|3.1415926500000002" - } in - case ==_a2jd lit_a2jc ds_d2lu of { - PrelBase.True{-5E,w-}{i} -> PrelBase.(){-60,w-}{i} {}; - PrelBase.False{-58,w-}{i} -> fail_d2lz; - } - } in - let { ds_d2mh :: PrelBase.(){-40,W-} - {-# L #-} - ds_d2mh = - let { - fail_d2m5 :: PrelBase.(){-40,W-} - {-# L #-} - fail_d2m5 = - GHCerr.irrefutPatError{-8g,w-} - _@_ PrelBase.(){-40,W-} _string_ "ds020.hs:11|11111" - } in - case ==_a2ja lit_a2j9 ds_d2ly of { - PrelBase.True{-5E,w-}{i} -> PrelBase.(){-60,w-}{i} {}; - PrelBase.False{-58,w-}{i} -> fail_d2m5; - } - } in - let { - ds_d2lb :: PrelBase.(){-40,W-} - {-# L #-} - ds_d2lb = - PrelBase.(){-60,w-}{i} {} - } in x_r3H; - } in c_a12W -b{-r4s,x-} :: _forall_ [ta140 ta147] => [ta140] -> [ta147] -{-# L #-} -b{-r4s,x-} = - _/\_ ta140 ta147 -> - _letrec_ { - b_a13E :: [ta140] -> [ta147] - {-# L #-} - b_a13E = - \ ds_d2mU :: [ta140] - {-# L #-} - ds_d2mU -> - let { ds_d2nB :: (ta140, ta140, [ta140]) - {-# L #-} - ds_d2nB = - let { - fail_d2mV :: (ta140, ta140, [ta140]) - {-# L #-} - fail_d2mV = - GHCerr.irrefutPatError{-8g,w-} - _@_ (ta140, ta140, [ta140]) - _string_ "ds020.hs:8|(x PrelBase.: (xs PrelBase.: ys))" - } in - case ds_d2mU of { - PrelBase.[]{-5i,w-}{i} -> fail_d2mV; - PrelBase.:{-55,w-}{i} x_r3z ds_d2n8 -> - case ds_d2n8 of { - PrelBase.[]{-5i,w-}{i} -> fail_d2mV; - PrelBase.:{-55,w-}{i} xs_r3A ys_r3B -> - PrelTup.(,,){-63,w-}{i} - {_@_ ta140 _@_ ta140 _@_ [ta140] x_r3z xs_r3A ys_r3B}; - }; - } - } in - let { - x_r3z :: ta140 - {-# L #-} - x_r3z = - case ds_d2nB of { PrelTup.(,,){-63,w-}{i} x_r3z xs_r3A ys_r3B -> - x_r3z;} } in - let { - xs_r3A :: ta140 - {-# L #-} - xs_r3A = - case ds_d2nB of { PrelTup.(,,){-63,w-}{i} x_r3z xs_r3A ys_r3B -> - xs_r3A;} } in - let { - ys_r3B :: [ta140] - {-# L #-} - ys_r3B = - case ds_d2nB of { PrelTup.(,,){-63,w-}{i} x_r3z xs_r3A ys_r3B -> - ys_r3B;} - } in PrelBase.[]{-5i,w-}{i} _@_ ta147; - } in b_a13E -a{-r4t,x-} :: _forall_ - [ta14y ta14B ta14E ta14G] - => - ([ta14y], [ta14B], [ta14E]) -> [ta14G] -{-# L #-} -a{-r4t,x-} = - _/\_ ta14y ta14B ta14E ta14G -> - _letrec_ { - a_a149 :: ([ta14y], [ta14B], [ta14E]) -> [ta14G] - {-# L #-} - a_a149 = - \ ds_d2oz :: ([ta14y], [ta14B], [ta14E]) - {-# L #-} - ds_d2oz -> - let { ds_d2qq :: PrelBase.(){-40,W-} - {-# L #-} - ds_d2qq = - let { - fail_d2oA :: PrelBase.(){-40,W-} - {-# L #-} - fail_d2oA = - GHCerr.irrefutPatError{-8g,w-} - _@_ PrelBase.(){-40,W-} - _string_ "ds020.hs:5|(PrelBase.[], PrelBase.[], PrelBase.[])" - } in - case - ds_d2oz - of { - PrelTup.(,,){-63,w-}{i} ds_d2oJ ds_d2oK ds_d2oL -> - case ds_d2oJ of { - PrelBase.:{-55,w-}{i} ds_d2oS ds_d2oT -> fail_d2oA; - PrelBase.[]{-5i,w-}{i} -> - case ds_d2oK of { - PrelBase.:{-55,w-}{i} ds_d2p6 ds_d2p7 -> fail_d2oA; - PrelBase.[]{-5i,w-}{i} -> - case ds_d2oL of { - PrelBase.:{-55,w-}{i} ds_d2pk ds_d2pl -> fail_d2oA; - PrelBase.[]{-5i,w-}{i} -> PrelBase.(){-60,w-}{i} {}; - }; - }; - };} - } in - PrelBase.[]{-5i,w-}{i} _@_ ta14G; - } in a_a149 -d.Eq_a14Y :: {PrelBase.Eq{-23,p-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Eq_a14Y = - PrelBase.$d8{-rq4,p-} -==_a1zR :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} -{-# L #-} -==_a1zR = - PrelBase.=={-8Y,p-} _@_ PrelBase.Int{-3g,W-} d.Eq_a14Y -lit_a1zS :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1zS = - PrelBase.I#{-5b,w-}{i} 2 -lit_a1zT :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1zT = - PrelBase.I#{-5b,w-}{i} 4 -lit_a1zU :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1zU = - PrelBase.I#{-5b,w-}{i} 3 -d.Ord_a151 :: {PrelBase.Ord{-2d,p-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Ord_a151 = - PrelBase.$d7{-rq3,p-} ->_a1zV :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} -{-# L #-} ->_a1zV = - PrelBase.>{-ruE,p-} _@_ PrelBase.Int{-3g,W-} d.Ord_a151 -lit_a1zW :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1zW = - lit_a1zU -lit_a1zX :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1zX = - lit_a1zT -lit_a1zY :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1zY = - PrelBase.I#{-5b,w-}{i} 5 -d.Ord_a154 :: {PrelBase.Ord{-2d,p-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Ord_a154 = - d.Ord_a151 -<=_a1zZ :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} -{-# L #-} -<=_a1zZ = - PrelBase.<={-ruD,p-} _@_ PrelBase.Int{-3g,W-} d.Ord_a154 -lit_a1A0 :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1A0 = - lit_a1zS -lit_a1A1 :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1A1 = - lit_a1zU -==_a1A2 :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} -{-# L #-} -==_a1A2 = - ==_a1zR -lit_a1A3 :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1A3 = - lit_a1zS -lit_a1A4 :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1A4 = - lit_a1zT -lit_a1A5 :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1A5 = - lit_a1zU -end Rec } +NOTE: Simplifier still going after 4 iterations; bailing out. diff --git a/ghc/tests/deSugar/should_compile/ds021.stderr b/ghc/tests/deSugar/should_compile/ds021.stderr index 649c9b9..1dc6f97 100644 --- a/ghc/tests/deSugar/should_compile/ds021.stderr +++ b/ghc/tests/deSugar/should_compile/ds021.stderr @@ -1,57 +1,3 @@ ds021.hs:8: Warning: Possibly incomplete patterns in the definition of function `f' - - -================================================================================ -Desugared: -Rec { -f{-r3g,x-} :: _forall_ - [taBa taBj] - => - {PrelBase.Eq{-23,p-} taBa} -> taBa -> taBa -> taBa -> [taBj] -{-# L #-} -f{-r3g,x-} = - _/\_ taBa taBj -> \ d.Eq_aBl :: {PrelBase.Eq{-23,p-} taBa} - {-# L #-} - d.Eq_aBl -> - _letrec_ { - ==_aDt :: taBa -> taBa -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_aDt = - PrelBase.=={-8Y,p-} _@_ taBa d.Eq_aBl; - d.Eq_aBn :: {PrelBase.Eq{-23,p-} taBa} - {-# L #-} - d.Eq_aBn = - d.Eq_aBl; - /=_aDA :: taBa -> taBa -> PrelBase.Bool{-34,W-} - {-# L #-} - /=_aDA = - PrelBase./={-r9I,p-} _@_ taBa d.Eq_aBn; - f_aAK :: taBa -> taBa -> taBa -> [taBj] - {-# L #-} - f_aAK = - \ x_r3d :: taBa - {-# L #-} - x_r3d y_r3e :: taBa - {-# L #-} - y_r3e z_r3f :: taBa - {-# L #-} - z_r3f -> - let { - fail_dEl :: [taBj] - {-# L #-} - fail_dEl = - GHCerr.patError{-8r,w-} - _@_ [taBj] _string_ "ds021.hs:5|function `f'" - } in - case ==_aDt x_r3d y_r3e of { - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taBj; - PrelBase.False{-58,w-}{i} -> - case /=_aDA x_r3d z_r3f of { - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taBj; - PrelBase.False{-58,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taBj; - }; - }; - } in f_aAK -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds022.stderr b/ghc/tests/deSugar/should_compile/ds022.stderr index 38b9fa3..db28c9e 100644 --- a/ghc/tests/deSugar/should_compile/ds022.stderr +++ b/ghc/tests/deSugar/should_compile/ds022.stderr @@ -16,660 +16,3 @@ ds022.hs:23: ds022.hs:20: Warning: Possibly incomplete patterns in the definition of function `i' - - -================================================================================ -Desugared: -Rec { -i{-r3s,x-} :: _forall_ - [taUw taUD taVd] - => - {PrelNum.Fractional{-26,p-} taUD} - -> {PrelBase.Num{-2c,p-} taUw} - -> taUw - -> taUD - -> [taVd] -{-# L #-} -i{-r3s,x-} = - _/\_ taUw taUD taVd -> \ d.Fractional_aVl :: {PrelNum.Fractional{-26,p-} taUD} - {-# L #-} - d.Fractional_aVl d.Num_aVg :: {PrelBase.Num{-2c,p-} taUw} - {-# L #-} - d.Num_aVg -> - _letrec_ { - d.Eq_aVi :: {PrelBase.Eq{-23,p-} taUw} - {-# L #-} - d.Eq_aVi = - PrelBase.scsel_NumPrelBaseEq{-a1ls,p-} _@_ taUw d.Num_aVg; - d.Num_aY9 :: {PrelBase.Num{-2c,p-} taUD} - {-# L #-} - d.Num_aY9 = - PrelNum.scsel_FractionalPrelBaseNum{-a1nt,p-} - _@_ taUD d.Fractional_aVl; - d.Eq_aVn :: {PrelBase.Eq{-23,p-} taUD} - {-# L #-} - d.Eq_aVn = - PrelBase.scsel_NumPrelBaseEq{-a1ls,p-} _@_ taUD d.Num_aY9; - fromInt_a1l6 :: PrelBase.Int{-3g,W-} -> taUw - {-# L #-} - fromInt_a1l6 = - PrelBase.fromInt{-8R,p-} _@_ taUw d.Num_aVg; - lit_a1l7 :: taUw - {-# L #-} - lit_a1l7 = - let { - ds_d1nQ :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1nQ = - PrelBase.I#{-5b,w-}{i} 1 - } in fromInt_a1l6 ds_d1nQ; - ==_a1l8 :: taUw -> taUw -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1l8 = - PrelBase.=={-8Y,p-} _@_ taUw d.Eq_aVi; - fromRational_a1l9 :: PrelNum.Rational{-3r,p-} -> taUD - {-# L #-} - fromRational_a1l9 = - PrelNum.fromRational{-8T,p-} _@_ taUD d.Fractional_aVl; - lit_a1la :: taUD - {-# L #-} - lit_a1la = - fromRational_a1l9 _rational_ 11 10; - ==_a1lb :: taUD -> taUD -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1lb = - PrelBase.=={-8Y,p-} _@_ taUD d.Eq_aVn; - fromInt_a1lc :: PrelBase.Int{-3g,W-} -> taUw - {-# L #-} - fromInt_a1lc = - fromInt_a1l6; - lit_a1ld :: taUw - {-# L #-} - lit_a1ld = - let { - ds_d1oy :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1oy = - PrelBase.I#{-5b,w-}{i} 2 - } in fromInt_a1lc ds_d1oy; - ==_a1le :: taUw -> taUw -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1le = - ==_a1l8; - fromRational_a1lf :: PrelNum.Rational{-3r,p-} -> taUD - {-# L #-} - fromRational_a1lf = - fromRational_a1l9; - lit_a1lg :: taUD - {-# L #-} - lit_a1lg = - fromRational_a1lf _rational_ 11 5; - ==_a1lh :: taUD -> taUD -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1lh = - ==_a1lb; - lit_a1li :: taUw - {-# L #-} - lit_a1li = - lit_a1l7; - ==_a1lj :: taUw -> taUw -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1lj = - ==_a1l8; - lit_a1lk :: taUD - {-# L #-} - lit_a1lk = - lit_a1la; - ==_a1ll :: taUD -> taUD -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1ll = - ==_a1lb; - lit_a1lm :: taUw - {-# L #-} - lit_a1lm = - lit_a1ld; - ==_a1ln :: taUw -> taUw -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1ln = - ==_a1l8; - lit_a1lo :: taUD - {-# L #-} - lit_a1lo = - lit_a1lg; - ==_a1lp :: taUD -> taUD -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1lp = - ==_a1lb; - i_aUr :: taUw -> taUD -> [taVd] - {-# L #-} - i_aUr = - \ ds_d1pk :: taUw - {-# L #-} - ds_d1pk ds_d1pn :: taUD - {-# L #-} - ds_d1pn -> - let { - fail_d1po :: [taVd] - {-# L #-} - fail_d1po = - GHCerr.patError{-8r,w-} - _@_ [taVd] _string_ "ds022.hs:20|function `i'" } in - let { - fail_d1q6 :: [taVd] - {-# L #-} - fail_d1q6 = - case ==_a1le lit_a1ld ds_d1pk of { - PrelBase.True{-5E,w-}{i} -> - case ==_a1lh lit_a1lg ds_d1pn of { - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taVd; - PrelBase.False{-58,w-}{i} -> fail_d1po; - }; - PrelBase.False{-58,w-}{i} -> fail_d1po; - } - } in - case ==_a1l8 lit_a1l7 ds_d1pk of { - PrelBase.True{-5E,w-}{i} -> - case ==_a1lb lit_a1la ds_d1pn of { - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taVd; - PrelBase.False{-58,w-}{i} -> fail_d1q6; - }; - PrelBase.False{-58,w-}{i} -> fail_d1q6; - }; - } in i_aUr -h{-r3t,x-} :: _forall_ - [taVQ] - => - PrelBase.Char{-38,W-} -> [PrelBase.Char{-38,W-}] -> [taVQ] -{-# L #-} -h{-r3t,x-} = - _/\_ taVQ -> - _letrec_ { - ==_a1qR :: [PrelBase.Char{-38,W-}] - -> [PrelBase.Char{-38,W-}] - -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1qR = - ==_a1l5; - h_aVt :: PrelBase.Char{-38,W-} - -> [PrelBase.Char{-38,W-}] - -> [taVQ] - {-# L #-} - h_aVt = - \ ds_d1rb :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1rb ds_d1rc :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d1rc -> - let { - fail_d1rd :: [taVQ] - {-# L #-} - fail_d1rd = - GHCerr.patError{-8r,w-} - _@_ [taVQ] _string_ "ds022.hs:15|function `h'" - } in - case ds_d1rb of { PrelBase.C#{-54,w-}{i} ds_d1rm -> - case# ds_d1rm of { - 'a' -> - case ds_d1rc of { - PrelBase.:{-55,w-}{i} ds_d1rB ds_d1rC -> fail_d1rd; - PrelBase.[]{-5i,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taVQ; - }; - ''' -> - case ==_a1qR _string_ "foo" ds_d1rc of { - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taVQ; - PrelBase.False{-58,w-}{i} -> fail_d1rd; - }; - '"' -> - case ds_d1rc of { - PrelBase.[]{-5i,w-}{i} -> fail_d1rd; - PrelBase.:{-55,w-}{i} ds_d1su ds_d1sv -> - case ds_d1su of { PrelBase.C#{-54,w-}{i} ds_d1sE -> - case# ds_d1sE of { - 'b' -> - case ds_d1sv of { - PrelBase.[]{-5i,w-}{i} -> fail_d1rd; - PrelBase.:{-55,w-}{i} ds_d1sZ ds_d1t0 -> - case ds_d1sZ of { PrelBase.C#{-54,w-}{i} ds_d1t9 -> - case# ds_d1t9 of { - 'a' -> - case ds_d1t0 of { - PrelBase.[]{-5i,w-}{i} -> fail_d1rd; - PrelBase.:{-55,w-}{i} ds_d1tu ds_d1tv -> - case - ds_d1tu - of { - PrelBase.C#{-54,w-}{i} ds_d1tE -> - case# ds_d1tE of { - 'r' -> - case ds_d1tv of { - PrelBase.:{-55,w-}{i} ds_d1tT ds_d1tU -> - fail_d1rd; - PrelBase.[]{-5i,w-}{i} -> - PrelBase.[]{-5i,w-}{i} _@_ taVQ; - }; - ds_d1u5 -> fail_d1rd; - };}; - }; - ds_d1u8 -> fail_d1rd; - };}; - }; - ds_d1ub -> fail_d1rd; - };}; - }; - '¨' -> - let { - blob_r3r :: [PrelBase.Char{-38,W-}] - {-# L #-} - blob_r3r = - ds_d1rc - } in PrelBase.[]{-5i,w-}{i} _@_ taVQ; - ds_d1up -> fail_d1rd; - };}; - } in h_aVt -g{-r3u,x-} :: _forall_ - [taVZ taW6 taWG] - => - {PrelNum.Fractional{-26,p-} taW6} - -> {PrelBase.Num{-2c,p-} taVZ} - -> taVZ - -> taW6 - -> [taWG] -{-# L #-} -g{-r3u,x-} = - _/\_ taVZ taW6 taWG -> \ d.Fractional_aWO :: {PrelNum.Fractional{-26,p-} taW6} - {-# L #-} - d.Fractional_aWO d.Num_aWJ :: {PrelBase.Num{-2c,p-} taVZ} - {-# L #-} - d.Num_aWJ -> - _letrec_ { - d.Eq_aWL :: {PrelBase.Eq{-23,p-} taVZ} - {-# L #-} - d.Eq_aWL = - PrelBase.scsel_NumPrelBaseEq{-a1ls,p-} _@_ taVZ d.Num_aWJ; - d.Num_aYa :: {PrelBase.Num{-2c,p-} taW6} - {-# L #-} - d.Num_aYa = - PrelNum.scsel_FractionalPrelBaseNum{-a1nt,p-} - _@_ taW6 d.Fractional_aWO; - d.Eq_aWQ :: {PrelBase.Eq{-23,p-} taW6} - {-# L #-} - d.Eq_aWQ = - PrelBase.scsel_NumPrelBaseEq{-a1ls,p-} _@_ taW6 d.Num_aYa; - fromInteger_a1uM :: PrelBase.Integer{-3h,W-} -> taVZ - {-# L #-} - fromInteger_a1uM = - PrelBase.fromInteger{-8S,p-} _@_ taVZ d.Num_aWJ; - lit_a1uN :: taVZ - {-# L #-} - lit_a1uN = - fromInteger_a1uM _integer_ 11111111111111111111111; - ==_a1uO :: taVZ -> taVZ -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1uO = - PrelBase.=={-8Y,p-} _@_ taVZ d.Eq_aWL; - fromRational_a1uP :: PrelNum.Rational{-3r,p-} -> taW6 - {-# L #-} - fromRational_a1uP = - PrelNum.fromRational{-8T,p-} _@_ taW6 d.Fractional_aWO; - lit_a1uQ :: taW6 - {-# L #-} - lit_a1uQ = - fromRational_a1uP - _rational_ 111111111111111111 100000000000000000; - ==_a1uR :: taW6 -> taW6 -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1uR = - PrelBase.=={-8Y,p-} _@_ taW6 d.Eq_aWQ; - fromInteger_a1uS :: PrelBase.Integer{-3h,W-} -> taVZ - {-# L #-} - fromInteger_a1uS = - fromInteger_a1uM; - lit_a1uT :: taVZ - {-# L #-} - lit_a1uT = - fromInteger_a1uS _integer_ 22222222222222222222222; - ==_a1uU :: taVZ -> taVZ -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1uU = - ==_a1uO; - fromRational_a1uV :: PrelNum.Rational{-3r,p-} -> taW6 - {-# L #-} - fromRational_a1uV = - fromRational_a1uP; - lit_a1uW :: taW6 - {-# L #-} - lit_a1uW = - fromRational_a1uV _rational_ 111111111111111111 50000000000000000; - ==_a1uX :: taW6 -> taW6 -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1uX = - ==_a1uR; - fromInteger_a1uY :: PrelBase.Integer{-3h,W-} -> taVZ - {-# L #-} - fromInteger_a1uY = - fromInteger_a1uM; - lit_a1uZ :: taVZ - {-# L #-} - lit_a1uZ = - fromInteger_a1uY _integer_ 33333333333333333333333; - ==_a1v0 :: taVZ -> taVZ -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1v0 = - ==_a1uO; - fromRational_a1v1 :: PrelNum.Rational{-3r,p-} -> taW6 - {-# L #-} - fromRational_a1v1 = - fromRational_a1uP; - lit_a1v2 :: taW6 - {-# L #-} - lit_a1v2 = - fromRational_a1v1 - _rational_ 333333333333333333 100000000000000000; - ==_a1v3 :: taW6 -> taW6 -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1v3 = - ==_a1uR; - fromInteger_a1v4 :: PrelBase.Integer{-3h,W-} -> taVZ - {-# L #-} - fromInteger_a1v4 = - fromInteger_a1uM; - lit_a1v5 :: taVZ - {-# L #-} - lit_a1v5 = - fromInteger_a1v4 _integer_ 44444444444444444444444; - ==_a1v6 :: taVZ -> taVZ -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1v6 = - ==_a1uO; - fromRational_a1v7 :: PrelNum.Rational{-3r,p-} -> taW6 - {-# L #-} - fromRational_a1v7 = - fromRational_a1uP; - lit_a1v8 :: taW6 - {-# L #-} - lit_a1v8 = - fromRational_a1v7 _rational_ 111111111111111111 25000000000000000; - ==_a1v9 :: taW6 -> taW6 -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1v9 = - ==_a1uR; - g_aVU :: taVZ -> taW6 -> [taWG] - {-# L #-} - g_aVU = - \ ds_d1z4 :: taVZ - {-# L #-} - ds_d1z4 ds_d1z7 :: taW6 - {-# L #-} - ds_d1z7 -> - let { - fail_d1z8 :: [taWG] - {-# L #-} - fail_d1z8 = - GHCerr.patError{-8r,w-} - _@_ [taWG] _string_ "ds022.hs:10|function `g'" } in - let { fail_d1Bg :: [taWG] - {-# L #-} - fail_d1Bg = - let { fail_d1Ay :: [taWG] - {-# L #-} - fail_d1Ay = - let { - fail_d1zQ :: [taWG] - {-# L #-} - fail_d1zQ = - case ==_a1v6 lit_a1v5 ds_d1z4 of { - PrelBase.True{-5E,w-}{i} -> - case ==_a1v9 lit_a1v8 ds_d1z7 of { - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taWG; - PrelBase.False{-58,w-}{i} -> fail_d1z8; - }; - PrelBase.False{-58,w-}{i} -> fail_d1z8; - } - } in - case ==_a1v0 lit_a1uZ ds_d1z4 of { - PrelBase.True{-5E,w-}{i} -> - case ==_a1v3 lit_a1v2 ds_d1z7 of { - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taWG; - PrelBase.False{-58,w-}{i} -> fail_d1zQ; - }; - PrelBase.False{-58,w-}{i} -> fail_d1zQ; - } - } in - case ==_a1uU lit_a1uT ds_d1z4 of { - PrelBase.True{-5E,w-}{i} -> - case ==_a1uX lit_a1uW ds_d1z7 of { - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taWG; - PrelBase.False{-58,w-}{i} -> fail_d1Ay; - }; - PrelBase.False{-58,w-}{i} -> fail_d1Ay; - } - } in - case ==_a1uO lit_a1uN ds_d1z4 of { - PrelBase.True{-5E,w-}{i} -> - case ==_a1uR lit_a1uQ ds_d1z7 of { - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taWG; - PrelBase.False{-58,w-}{i} -> fail_d1Bg; - }; - PrelBase.False{-58,w-}{i} -> fail_d1Bg; - }; - } in g_aVU -f{-r3v,x-} :: _forall_ - [taX5 taXc taXM] - => - {PrelNum.Fractional{-26,p-} taXc} - -> {PrelBase.Num{-2c,p-} taX5} - -> taX5 - -> taXc - -> [taXM] -{-# L #-} -f{-r3v,x-} = - _/\_ taX5 taXc taXM -> \ d.Fractional_aXU :: {PrelNum.Fractional{-26,p-} taXc} - {-# L #-} - d.Fractional_aXU d.Num_aXP :: {PrelBase.Num{-2c,p-} taX5} - {-# L #-} - d.Num_aXP -> - _letrec_ { - d.Eq_aXR :: {PrelBase.Eq{-23,p-} taX5} - {-# L #-} - d.Eq_aXR = - PrelBase.scsel_NumPrelBaseEq{-a1ls,p-} _@_ taX5 d.Num_aXP; - d.Num_aYb :: {PrelBase.Num{-2c,p-} taXc} - {-# L #-} - d.Num_aYb = - PrelNum.scsel_FractionalPrelBaseNum{-a1nt,p-} - _@_ taXc d.Fractional_aXU; - d.Eq_aXW :: {PrelBase.Eq{-23,p-} taXc} - {-# L #-} - d.Eq_aXW = - PrelBase.scsel_NumPrelBaseEq{-a1ls,p-} _@_ taXc d.Num_aYb; - fromInt_a1Cb :: PrelBase.Int{-3g,W-} -> taX5 - {-# L #-} - fromInt_a1Cb = - PrelBase.fromInt{-8R,p-} _@_ taX5 d.Num_aXP; - lit_a1Cc :: taX5 - {-# L #-} - lit_a1Cc = - let { - ds_d1EP :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1EP = - PrelBase.I#{-5b,w-}{i} 1 - } in fromInt_a1Cb ds_d1EP; - ==_a1Cd :: taX5 -> taX5 -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1Cd = - PrelBase.=={-8Y,p-} _@_ taX5 d.Eq_aXR; - fromRational_a1Ce :: PrelNum.Rational{-3r,p-} -> taXc - {-# L #-} - fromRational_a1Ce = - PrelNum.fromRational{-8T,p-} _@_ taXc d.Fractional_aXU; - lit_a1Cf :: taXc - {-# L #-} - lit_a1Cf = - fromRational_a1Ce _rational_ 11 10; - ==_a1Cg :: taXc -> taXc -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1Cg = - PrelBase.=={-8Y,p-} _@_ taXc d.Eq_aXW; - fromInt_a1Ch :: PrelBase.Int{-3g,W-} -> taX5 - {-# L #-} - fromInt_a1Ch = - fromInt_a1Cb; - lit_a1Ci :: taX5 - {-# L #-} - lit_a1Ci = - let { - ds_d1Fx :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1Fx = - PrelBase.I#{-5b,w-}{i} 2 - } in fromInt_a1Ch ds_d1Fx; - ==_a1Cj :: taX5 -> taX5 -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1Cj = - ==_a1Cd; - fromRational_a1Ck :: PrelNum.Rational{-3r,p-} -> taXc - {-# L #-} - fromRational_a1Ck = - fromRational_a1Ce; - lit_a1Cl :: taXc - {-# L #-} - lit_a1Cl = - fromRational_a1Ck _rational_ 11 5; - ==_a1Cm :: taXc -> taXc -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1Cm = - ==_a1Cg; - fromInt_a1Cn :: PrelBase.Int{-3g,W-} -> taX5 - {-# L #-} - fromInt_a1Cn = - fromInt_a1Cb; - lit_a1Co :: taX5 - {-# L #-} - lit_a1Co = - let { - ds_d1FU :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1FU = - PrelBase.I#{-5b,w-}{i} 3 - } in fromInt_a1Cn ds_d1FU; - ==_a1Cp :: taX5 -> taX5 -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1Cp = - ==_a1Cd; - fromRational_a1Cq :: PrelNum.Rational{-3r,p-} -> taXc - {-# L #-} - fromRational_a1Cq = - fromRational_a1Ce; - lit_a1Cr :: taXc - {-# L #-} - lit_a1Cr = - fromRational_a1Cq _rational_ 33 10; - ==_a1Cs :: taXc -> taXc -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1Cs = - ==_a1Cg; - fromInt_a1Ct :: PrelBase.Int{-3g,W-} -> taX5 - {-# L #-} - fromInt_a1Ct = - fromInt_a1Cb; - lit_a1Cu :: taX5 - {-# L #-} - lit_a1Cu = - let { - ds_d1Gh :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1Gh = - PrelBase.I#{-5b,w-}{i} 4 - } in fromInt_a1Ct ds_d1Gh; - ==_a1Cv :: taX5 -> taX5 -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1Cv = - ==_a1Cd; - fromRational_a1Cw :: PrelNum.Rational{-3r,p-} -> taXc - {-# L #-} - fromRational_a1Cw = - fromRational_a1Ce; - lit_a1Cx :: taXc - {-# L #-} - lit_a1Cx = - fromRational_a1Cw _rational_ 22 5; - ==_a1Cy :: taXc -> taXc -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1Cy = - ==_a1Cg; - f_aX0 :: taX5 -> taXc -> [taXM] - {-# L #-} - f_aX0 = - \ ds_d1H3 :: taX5 - {-# L #-} - ds_d1H3 ds_d1H6 :: taXc - {-# L #-} - ds_d1H6 -> - let { - fail_d1H7 :: [taXM] - {-# L #-} - fail_d1H7 = - GHCerr.patError{-8r,w-} - _@_ [taXM] _string_ "ds022.hs:5|function `f'" } in - let { fail_d1Jf :: [taXM] - {-# L #-} - fail_d1Jf = - let { fail_d1Ix :: [taXM] - {-# L #-} - fail_d1Ix = - let { - fail_d1HP :: [taXM] - {-# L #-} - fail_d1HP = - case ==_a1Cv lit_a1Cu ds_d1H3 of { - PrelBase.True{-5E,w-}{i} -> - case ==_a1Cy lit_a1Cx ds_d1H6 of { - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taXM; - PrelBase.False{-58,w-}{i} -> fail_d1H7; - }; - PrelBase.False{-58,w-}{i} -> fail_d1H7; - } - } in - case ==_a1Cp lit_a1Co ds_d1H3 of { - PrelBase.True{-5E,w-}{i} -> - case ==_a1Cs lit_a1Cr ds_d1H6 of { - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taXM; - PrelBase.False{-58,w-}{i} -> fail_d1HP; - }; - PrelBase.False{-58,w-}{i} -> fail_d1HP; - } - } in - case ==_a1Cj lit_a1Ci ds_d1H3 of { - PrelBase.True{-5E,w-}{i} -> - case ==_a1Cm lit_a1Cl ds_d1H6 of { - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taXM; - PrelBase.False{-58,w-}{i} -> fail_d1Ix; - }; - PrelBase.False{-58,w-}{i} -> fail_d1Ix; - } - } in - case ==_a1Cd lit_a1Cc ds_d1H3 of { - PrelBase.True{-5E,w-}{i} -> - case ==_a1Cg lit_a1Cf ds_d1H6 of { - PrelBase.True{-5E,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taXM; - PrelBase.False{-58,w-}{i} -> fail_d1Jf; - }; - PrelBase.False{-58,w-}{i} -> fail_d1Jf; - }; - } in f_aX0 -d.Eq_aY8 :: {PrelBase.Eq{-23,p-} PrelBase.Char{-38,W-}} -{-# L #-} -d.Eq_aY8 = - PrelBase.$d34{-raE,p-} -d.Eq_aY6 :: {PrelBase.Eq{-23,p-} [PrelBase.Char{-38,W-}]} -{-# L #-} -d.Eq_aY6 = - PrelBase.$d28{-rax,p-} _@_ PrelBase.Char{-38,W-} d.Eq_aY8 -==_a1l5 :: [PrelBase.Char{-38,W-}] - -> [PrelBase.Char{-38,W-}] - -> PrelBase.Bool{-34,W-} -{-# L #-} -==_a1l5 = - PrelBase.=={-8Y,p-} _@_ [PrelBase.Char{-38,W-}] d.Eq_aY6 -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds023.stderr b/ghc/tests/deSugar/should_compile/ds023.stderr index 51a7d0a..955d1e1 100644 --- a/ghc/tests/deSugar/should_compile/ds023.stderr +++ b/ghc/tests/deSugar/should_compile/ds023.stderr @@ -1,102 +1,2 @@ - -================================================================================ -Desugared: -Rec { -ds_dEJ :: _forall_ - [taC5 taCc] - => - {PrelBase.Num{-2c,p-} taCc} - -> {PrelBase.Eq{-23,p-} taC5} - -> (taC5 -> taCc, PrelBase.Bool{-34,W-} -> taC5 -> taCc) -{-# L #-} -ds_dEJ = - _/\_ taC5 taCc -> \ d.Num_aCh :: {PrelBase.Num{-2c,p-} taCc} - {-# L #-} - d.Num_aCh d.Eq_aCf :: {PrelBase.Eq{-23,p-} taC5} - {-# L #-} - d.Eq_aCf -> - _letrec_ { - ==_aEY :: taC5 -> taC5 -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_aEY = - PrelBase.=={-8Y,p-} _@_ taC5 d.Eq_aCf; - abs_aF5 :: taCc -> taCc - {-# L #-} - abs_aF5 = - PrelBase.abs{-r3i,p-} _@_ taCc d.Num_aCh; - f_aBP :: taC5 -> taCc - {-# L #-} - f_aBP = - \ x_r3e :: taC5 - {-# L #-} - x_r3e -> - (let { - ds_dFM :: PrelBase.Bool{-34,W-} - {-# L #-} - ds_dFM = - ==_aEY x_r3e x_r3e - } in g_aBQ ds_dFM) - x_r3e; - g_aBQ :: PrelBase.Bool{-34,W-} -> taC5 -> taCc - {-# L #-} - g_aBQ = - \ b_r3g :: PrelBase.Bool{-34,W-} - {-# L #-} - b_r3g x_r3h :: taC5 - {-# L #-} - x_r3h -> - let { - ds_dG6 :: taCc - {-# L #-} - ds_dG6 = - f_aBP x_r3h - } in abs_aF5 ds_dG6; - } in - PrelTup.(,){-62,w-}{i} - {_@_ (taC5 -> taCc) - _@_ (PrelBase.Bool{-34,W-} -> taC5 -> taCc) - f_aBP - g_aBQ} -f{-r3k,x-} :: _forall_ - [taC5 taCc] - => - {PrelBase.Num{-2c,p-} taCc} - -> {PrelBase.Eq{-23,p-} taC5} - -> taC5 - -> taCc -{-# L #-} -f{-r3k,x-} = - _/\_ taC5 taCc -> \ d.Num_aCh :: {PrelBase.Num{-2c,p-} taCc} - {-# L #-} - d.Num_aCh d.Eq_aCf :: {PrelBase.Eq{-23,p-} taC5} - {-# L #-} - d.Eq_aCf -> - case - ds_dEJ _@_ taC5 _@_ taCc d.Num_aCh d.Eq_aCf - of { - PrelTup.(,){-62,w-}{i} ds_dGP ds_dGQ -> - ds_dGP;} -g{-r3j,x-} :: _forall_ - [taC5 taCc] - => - {PrelBase.Num{-2c,p-} taCc} - -> {PrelBase.Eq{-23,p-} taC5} - -> PrelBase.Bool{-34,W-} - -> taC5 - -> taCc -{-# L #-} -g{-r3j,x-} = - _/\_ taC5 taCc -> \ d.Num_aCh :: {PrelBase.Num{-2c,p-} taCc} - {-# L #-} - d.Num_aCh d.Eq_aCf :: {PrelBase.Eq{-23,p-} taC5} - {-# L #-} - d.Eq_aCf -> - case - ds_dEJ _@_ taC5 _@_ taCc d.Num_aCh d.Eq_aCf - of { - PrelTup.(,){-62,w-}{i} ds_dHh ds_dHg -> - ds_dHg;} -end Rec } - NOTE: Simplifier still going after 4 iterations; bailing out. diff --git a/ghc/tests/deSugar/should_compile/ds024.stderr b/ghc/tests/deSugar/should_compile/ds024.stderr index 77bca55..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds024.stderr +++ b/ghc/tests/deSugar/should_compile/ds024.stderr @@ -1,72 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -g{-r3h,x-} :: _forall_ - [tayq tayk taym tayo] - => - tayq -> ([tayk], [taym], [tayo]) -{-# L #-} -g{-r3h,x-} = - _/\_ tayq tayk taym tayo -> - _letrec_ { - g_ay5 :: tayq -> ([tayk], [taym], [tayo]) - {-# L #-} - g_ay5 = - \ x_r3g :: tayq - {-# L #-} - x_r3g -> - let { - ds_dAP :: [tayk] - {-# L #-} - ds_dAP = - PrelBase.[]{-5i,w-}{i} _@_ tayk } in - let { - ds_dAT :: [taym] - {-# L #-} - ds_dAT = - PrelBase.[]{-5i,w-}{i} _@_ taym } in - let { - ds_dAX :: [tayo] - {-# L #-} - ds_dAX = - PrelBase.[]{-5i,w-}{i} _@_ tayo - } in - PrelTup.(,,){-63,w-}{i} - {_@_ [tayk] _@_ [taym] _@_ [tayo] ds_dAP ds_dAT ds_dAX}; - } in g_ay5 -f{-r3i,x-} :: _forall_ [tayH tayF] => tayH -> [[tayF]] -{-# L #-} -f{-r3i,x-} = - _/\_ tayH tayF -> - _letrec_ { - f_ays :: tayH -> [[tayF]] - {-# L #-} - f_ays = - \ x_r3e :: tayH - {-# L #-} - x_r3e -> - let { - ds_dBF :: [tayF] - {-# L #-} - ds_dBF = - PrelBase.[]{-5i,w-}{i} _@_ tayF } in - let { ds_dBJ :: [[tayF]] - {-# L #-} - ds_dBJ = - let { - ds_dBZ :: [tayF] - {-# L #-} - ds_dBZ = - PrelBase.[]{-5i,w-}{i} _@_ tayF } in - let { - ds_dC3 :: [[tayF]] - {-# L #-} - ds_dC3 = - PrelBase.[]{-5i,w-}{i} {_@_ [tayF]} - } in PrelBase.:{-55,w-}{i} {_@_ [tayF] ds_dBZ ds_dC3} - } in - PrelBase.:{-55,w-}{i} {_@_ [tayF] ds_dBF ds_dBJ}; - } in f_ays -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds025.stderr b/ghc/tests/deSugar/should_compile/ds025.stderr index 77c98c5..0f5a9f0 100644 --- a/ghc/tests/deSugar/should_compile/ds025.stderr +++ b/ghc/tests/deSugar/should_compile/ds025.stderr @@ -1,344 +1,3 @@ ds025.hs:6: Warning: Possibly incomplete patterns in the definition of function `ehead' - - -================================================================================ -Desugared: -Rec { -assocMaybe{-r3h,x-} :: _forall_ - [taUL taUO] - => - {PrelBase.Eq{-23,p-} taUL} - -> taUL - -> [(taUL, taUO)] - -> PrelBase.Maybe{-rhk,p-} taUO -{-# L #-} -assocMaybe{-r3h,x-} = - _/\_ taUL taUO -> \ d.Eq_aVB :: {PrelBase.Eq{-23,p-} taUL} - {-# L #-} - d.Eq_aVB -> - _letrec_ { - d.Eq_aVD :: {PrelBase.Eq{-23,p-} taUL} - {-# L #-} - d.Eq_aVD = - d.Eq_aVB; - ==_a16L :: taUL -> taUL -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a16L = - PrelBase.=={-8Y,p-} _@_ taUL d.Eq_aVD; - assocMaybe_aUI :: taUL - -> [(taUL, taUO)] - -> PrelBase.Maybe{-rhk,p-} taUO - {-# L #-} - assocMaybe_aUI = - \ key_r3x :: taUL - {-# L #-} - key_r3x lst_r3y :: [(taUL, taUO)] - {-# L #-} - lst_r3y -> - let { res_aUQ :: [taUO] - {-# L #-} - res_aUQ = - _letrec_ { - ds_d18e :: [(taUL, taUO)] -> [taUO] - {-# L #-} - ds_d18e = - \ ds_d18j :: [(taUL, taUO)] - {-# L #-} - ds_d18j -> - case ds_d18j of { - PrelBase.[]{-5i,w-}{i} -> PrelBase.[]{-5i,w-}{i} {_@_ taUO}; - PrelBase.:{-55,w-}{i} ds_d18y ds_d18z -> - case ds_d18y of { PrelTup.(,){-62,w-}{i} key'_r3C val_r3D -> - case ==_a16L key_r3x key'_r3C of { - PrelBase.True{-5E,w-}{i} -> - let { - ds_d195 :: [taUO] - {-# L #-} - ds_d195 = - ds_d18e ds_d18z - } in PrelBase.:{-55,w-}{i} {_@_ taUO val_r3D ds_d195}; - PrelBase.False{-58,w-}{i} -> ds_d18e ds_d18z; - };}; - }; - } in ds_d18e lst_r3y - } in - let { - res_r3A :: [taUO] - {-# L #-} - res_r3A = - res_aUQ - } in - case PrelList.null{-r51,p-} _@_ taUO res_r3A of { - PrelBase.True{-5E,w-}{i} -> PrelBase.Nothing{-rbW,p-}{i} _@_ taUO; - PrelBase.False{-58,w-}{i} -> - let { - ds_d19W :: taUO - {-# L #-} - ds_d19W = - PrelList.head{-r3E,p-} _@_ taUO res_r3A - } in PrelBase.Just{-rbS,p-}{i} _@_ taUO ds_d19W; - }; - } in assocMaybe_aUI -ehead{-r3i,x-} :: _forall_ - [taWc] - => - [taWc] -> [PrelBase.Char{-38,W-}] -> taWc -{-# L #-} -ehead{-r3i,x-} = - _/\_ taWc -> - _letrec_ { - ehead_aVL :: [taWc] -> [PrelBase.Char{-38,W-}] -> taWc - {-# L #-} - ehead_aVL = - \ xs_r3l :: [taWc] - {-# L #-} - xs_r3l loc_r3m :: [PrelBase.Char{-38,W-}] - {-# L #-} - loc_r3m -> - let { - fail_d1aE :: taWc - {-# L #-} - fail_d1aE = - GHCerr.patError{-8r,w-} - _@_ taWc _string_ "ds025.hs:5|function `ehead'" - } in - case PrelList.null{-r51,p-} _@_ taWc xs_r3l of { - PrelBase.True{-5E,w-}{i} -> - let { ds_d1aS :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d1aS = - let { ds_d1b2 :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d1b2 = - let { - ds_d1bg :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1bg = - PrelBase.C#{-54,w-}{i} {'4'} } in - let { - ds_d1bk :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d1bk = - PrelBase.[]{-5i,w-}{i} {_@_ PrelBase.Char{-38,W-}} - } in - PrelBase.:{-55,w-}{i} {_@_ PrelBase.Char{-38,W-} ds_d1bg ds_d1bk} - } in - ++_a127 _@_ PrelBase.Char{-38,W-} ds_d1b2 loc_r3m - } in - IOBase.error{-87,w-} _@_ taWc ds_d1aS; - PrelBase.False{-58,w-}{i} -> - PrelList.head{-r3E,p-} _@_ taWc xs_r3l; - }; - } in ehead_aVL -assoc{-r3j,x-} :: _forall_ - [taXo taXr] - => - {PrelBase.Show{-2i,p-} taXo} - -> {PrelBase.Eq{-23,p-} taXo} - -> taXo - -> [(taXo, taXr)] - -> [PrelBase.Char{-38,W-}] - -> taXr -{-# L #-} -assoc{-r3j,x-} = - _/\_ taXo taXr -> \ d.Show_aXv :: {PrelBase.Show{-2i,p-} taXo} - {-# L #-} - d.Show_aXv d.Eq_aXx :: {PrelBase.Eq{-23,p-} taXo} - {-# L #-} - d.Eq_aXx -> - _letrec_ { - ++_a122 :: _forall_ [taXd] => [taXd] -> [taXd] -> [taXd] - {-# L #-} - ++_a122 = - ++_a123; - ++_a121 :: _forall_ [taXk] => [taXk] -> [taXk] -> [taXk] - {-# L #-} - ++_a121 = - ++_a123; - show_a12b :: taXo -> PrelBase.String{-rhB,p-} - {-# L #-} - show_a12b = - PrelBase.show{-rij,p-} _@_ taXo d.Show_aXv; - ==_a12c :: taXo -> taXo -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a12c = - PrelBase.=={-8Y,p-} _@_ taXo d.Eq_aXx; - assoc_aWg :: taXo - -> [(taXo, taXr)] - -> [PrelBase.Char{-38,W-}] - -> taXr - {-# L #-} - assoc_aWg = - \ key_r3o :: taXo - {-# L #-} - key_r3o lst_r3p :: [(taXo, taXr)] - {-# L #-} - lst_r3p loc_r3q :: [PrelBase.Char{-38,W-}] - {-# L #-} - loc_r3q -> - let { res_aWy :: [taXr] - {-# L #-} - res_aWy = - _letrec_ { - ds_d1cL :: [(taXo, taXr)] -> [taXr] - {-# L #-} - ds_d1cL = - \ ds_d1cQ :: [(taXo, taXr)] - {-# L #-} - ds_d1cQ -> - case ds_d1cQ of { - PrelBase.[]{-5i,w-}{i} -> PrelBase.[]{-5i,w-}{i} {_@_ taXr}; - PrelBase.:{-55,w-}{i} ds_d1d5 ds_d1d6 -> - case ds_d1d5 of { PrelTup.(,){-62,w-}{i} key'_r3u val_r3v -> - case ==_a12c key_r3o key'_r3u of { - PrelBase.True{-5E,w-}{i} -> - let { - ds_d1dC :: [taXr] - {-# L #-} - ds_d1dC = - ds_d1cL ds_d1d6 - } in PrelBase.:{-55,w-}{i} {_@_ taXr val_r3v ds_d1dC}; - PrelBase.False{-58,w-}{i} -> ds_d1cL ds_d1d6; - };}; - }; - } in ds_d1cL lst_r3p - } in - let { - res_r3s :: [taXr] - {-# L #-} - res_r3s = - res_aWy - } in - case PrelList.null{-r51,p-} _@_ taXr res_r3s of { - PrelBase.True{-5E,w-}{i} -> - let { ds_d1el :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d1el = - let { ds_d1ex :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d1ex = - let { - ds_d1eM :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1eM = - PrelBase.C#{-54,w-}{i} {'1'} } in - let { - ds_d1eQ :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d1eQ = - PrelBase.[]{-5i,w-}{i} {_@_ PrelBase.Char{-38,W-}} - } in - PrelBase.:{-55,w-}{i} {_@_ PrelBase.Char{-38,W-} ds_d1eM ds_d1eQ} - } in - let { ds_d1eB :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d1eB = - let { ds_d1f9 :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d1f9 = - let { ds_d1fl :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d1fl = - let { - ds_d1fA :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1fA = - PrelBase.C#{-54,w-}{i} {'2'} } in - let { - ds_d1fE :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d1fE = - PrelBase.[]{-5i,w-}{i} {_@_ PrelBase.Char{-38,W-}} - } in - PrelBase.:{-55,w-}{i} - {_@_ PrelBase.Char{-38,W-} ds_d1fA ds_d1fE} - } in - let { - ds_d1fp :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d1fp = - show_a12b key_r3o - } in ++_a121 _@_ PrelBase.Char{-38,W-} ds_d1fl ds_d1fp - } in - ++_a122 _@_ PrelBase.Char{-38,W-} loc_r3q ds_d1f9 - } in - ++_a123 _@_ PrelBase.Char{-38,W-} ds_d1ex ds_d1eB - } in - IOBase.error{-87,w-} _@_ taXr ds_d1el; - PrelBase.False{-58,w-}{i} -> - let { ds_d1ga :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d1ga = - let { - ds_d1gl :: PrelBase.Char{-38,W-} - {-# L #-} - ds_d1gl = - PrelBase.C#{-54,w-}{i} {'3'} } in - let { - ds_d1gp :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_d1gp = - PrelBase.[]{-5i,w-}{i} {_@_ PrelBase.Char{-38,W-}} - } in - PrelBase.:{-55,w-}{i} {_@_ PrelBase.Char{-38,W-} ds_d1gl ds_d1gp} - } in - ehead{-r3i,x-} _@_ taXr res_r3s ds_d1ga; - }; - } in assoc_aWg -d.MonadPlus_aXF :: {PrelBase.MonadPlus{-2a,p-} PrelBase.[]{-3j,W-}} -{-# L #-} -d.MonadPlus_aXF = - PrelBase.$d23{-rcg,p-} -++_a123 :: _forall_ [taX7] => [taX7] -> [taX7] -> [taX7] -{-# L #-} -++_a123 = - PrelBase.++{-rhm,p-} _@_ PrelBase.[]{-3j,W-} d.MonadPlus_aXF -d.Monad_aXI :: {PrelBase.Monad{-28,p-} PrelBase.[]{-3j,W-}} -{-# L #-} -d.Monad_aXI = - PrelBase.$d25{-rci,p-} ->>=_a124 :: _forall_ - [taXO taXP] - => - [taXO] -> (taXO -> [taXP]) -> [taXP] -{-# L #-} ->>=_a124 = - PrelBase.>>={-811,p-} _@_ PrelBase.[]{-3j,W-} d.Monad_aXI -d.Monad_aXL :: {PrelBase.Monad{-28,p-} PrelBase.[]{-3j,W-}} -{-# L #-} -d.Monad_aXL = - d.Monad_aXI -return_a125 :: _forall_ [taXQ] => taXQ -> [taXQ] -{-# L #-} -return_a125 = - PrelBase.return{-816,p-} _@_ PrelBase.[]{-3j,W-} d.Monad_aXL -d.MonadZero_aXN :: {PrelBase.MonadZero{-29,p-} PrelBase.[]{-3j,W-}} -{-# L #-} -d.MonadZero_aXN = - PrelBase.$d24{-rch,p-} -zero_a126 :: _forall_ [taXR] => [taXR] -{-# L #-} -zero_a126 = - PrelBase.zero{-810,p-} _@_ PrelBase.[]{-3j,W-} d.MonadZero_aXN -++_a127 :: _forall_ [taW6] => [taW6] -> [taW6] -> [taW6] -{-# L #-} -++_a127 = - ++_a123 ->>=_a128 :: _forall_ - [taXS taXT] - => - [taXS] -> (taXS -> [taXT]) -> [taXT] -{-# L #-} ->>=_a128 = - >>=_a124 -return_a129 :: _forall_ [taXU] => taXU -> [taXU] -{-# L #-} -return_a129 = - return_a125 -zero_a12a :: _forall_ [taXV] => [taXV] -{-# L #-} -zero_a12a = - zero_a126 -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds026.stderr b/ghc/tests/deSugar/should_compile/ds026.stderr index 5565a15..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds026.stderr +++ b/ghc/tests/deSugar/should_compile/ds026.stderr @@ -1,144 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -f{-r3w,x-} :: _forall_ - [taBw taBB] - => - {Noo{-r3x,x-} taBw} - -> {PrelBase.Eq{-23,p-} taBB} - -> taBw - -> taBB - -> taBw -{-# L #-} -f{-r3w,x-} = - _/\_ taBw taBB -> \ d.Noo_aBH :: {Noo{-r3x,x-} taBw} - {-# L #-} - d.Noo_aBH d.Eq_aBJ :: {PrelBase.Eq{-23,p-} taBB} - {-# L #-} - d.Eq_aBJ -> - _letrec_ { - d.Boo_aBL :: {Boo{-r3n,x-} taBw} - {-# L #-} - d.Boo_aBL = - scsel_NooShouldSucceedBoo{-aEv,x-} _@_ taBw d.Noo_aBH; - d.Foo_aBF :: {Foo{-r3s,x-} taBw} - {-# L #-} - d.Foo_aBF = - scsel_BooShouldSucceedFoo{-aEw,x-} _@_ taBw d.Boo_aBL; - op_aEx :: taBw -> taBw - {-# L #-} - op_aEx = - op{-r3y,x-} _@_ taBw d.Foo_aBF; - op2_aBC :: _forall_ - [taBy] - => - {PrelBase.Eq{-23,p-} taBy} -> taBw -> taBy -> taBw - {-# L #-} - op2_aBC = - op2{-r3A,x-} _@_ taBw d.Noo_aBH; - op2_aEy :: taBw -> taBB -> taBw - {-# L #-} - op2_aEy = - op2_aBC _@_ taBB d.Eq_aBJ; - f_aBf :: taBw -> taBB -> taBw - {-# L #-} - f_aBf = - \ x_r3j :: taBw - {-# L #-} - x_r3j y_r3k :: taBB - {-# L #-} - y_r3k -> - let { - ds_dG8 :: taBw - {-# L #-} - ds_dG8 = - op2_aEy x_r3j y_r3k - } in op_aEx ds_dG8; - } in f_aBf -scsel_NooShouldSucceedBoo{-aEv,x-} :: _forall_ - [a_tr3m] - => - {Noo{-r3x,x-} a_tr3m} -> {Boo{-r3n,x-} a_tr3m} -{-# L #-} -scsel_NooShouldSucceedBoo{-aEv,x-} = - _/\_ t12 -> \ tpl_B1 :: {Noo{-r3x,x-} t12} - {-# L #-} - tpl_B1 -> - case tpl_B1 of { PrelTup.(,){-62,w-}{i} tpl_B1 tpl_B2 -> tpl_B1;} -op2{-r3A,x-} :: _forall_ - [a_tr3m] - => - {Noo{-r3x,x-} a_tr3m} - -> (_forall_ - [b_tr3p] - => - {PrelBase.Eq{-23,p-} b_tr3p} -> a_tr3m -> b_tr3p -> a_tr3m) -{-# L #-} -op2{-r3A,x-} = - _/\_ t12 -> \ tpl_B1 :: {Noo{-r3x,x-} t12} - {-# L #-} - tpl_B1 -> - case tpl_B1 of { PrelTup.(,){-62,w-}{i} tpl_B1 tpl_B2 -> tpl_B2;} -ds_dEN :: _forall_ - [taBV] - => - {Noo{-r3x,x-} taBV} -> PrelBase.(){-40,W-} -{-# L #-} -ds_dEN = - _/\_ taBV -> \ d.Noo_aBO :: {Noo{-r3x,x-} taBV} - {-# L #-} - d.Noo_aBO -> - PrelBase.(){-60,w-}{i} {} -scsel_BooShouldSucceedFoo{-aEw,x-} :: _forall_ - [a_tr3r] - => - {Boo{-r3n,x-} a_tr3r} -> {Foo{-r3s,x-} a_tr3r} -{-# L #-} -scsel_BooShouldSucceedFoo{-aEw,x-} = - _/\_ t12 -> \ tpl_B1 :: {Boo{-r3n,x-} t12} - {-# L #-} - tpl_B1 -> - case tpl_B1 of { PrelTup.(,){-62,w-}{i} tpl_B1 tpl_B2 -> tpl_B1;} -op1{-r3z,x-} :: _forall_ - [a_tr3r] - => - {Boo{-r3n,x-} a_tr3r} -> a_tr3r -> a_tr3r -{-# L #-} -op1{-r3z,x-} = - _/\_ t12 -> \ tpl_B1 :: {Boo{-r3n,x-} t12} - {-# L #-} - tpl_B1 -> - case tpl_B1 of { PrelTup.(,){-62,w-}{i} tpl_B1 tpl_B2 -> tpl_B2;} -ds_dF0 :: _forall_ - [taBW] - => - {Boo{-r3n,x-} taBW} -> PrelBase.(){-40,W-} -{-# L #-} -ds_dF0 = - _/\_ taBW -> \ d.Boo_aBR :: {Boo{-r3n,x-} taBW} - {-# L #-} - d.Boo_aBR -> - PrelBase.(){-60,w-}{i} {} -op{-r3y,x-} :: _forall_ - [a_tr3v] - => - {Foo{-r3s,x-} a_tr3v} -> a_tr3v -> a_tr3v -{-# L #-} -op{-r3y,x-} = - _/\_ t12 -> \ tpl_B1 :: {Foo{-r3s,x-} t12} - {-# L #-} - tpl_B1 -> - tpl_B1 -ds_dF9 :: _forall_ - [taBX] - => - {Foo{-r3s,x-} taBX} -> PrelBase.(){-40,W-} -{-# L #-} -ds_dF9 = - _/\_ taBX -> \ d.Foo_aBU :: {Foo{-r3s,x-} taBX} - {-# L #-} - d.Foo_aBU -> - PrelBase.(){-60,w-}{i} {} -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds027.stderr b/ghc/tests/deSugar/should_compile/ds027.stderr index a5be5a5..a90c1ac 100644 --- a/ghc/tests/deSugar/should_compile/ds027.stderr +++ b/ghc/tests/deSugar/should_compile/ds027.stderr @@ -4,91 +4,3 @@ ds027.hs:9: ds027.hs:8: Warning: Possibly incomplete patterns in the definition of function `==' - - -================================================================================ -Desugared: -Rec { -Bar{-r4,x-}{i} :: Foo{-r3m,x-} -_A_ 0 {-# L #-} -Bar{-r4,x-}{i} = - Bar{-r4,x-}{i} {} -Baz{-r3,x-}{i} :: Foo{-r3m,x-} -_A_ 0 {-# L #-} -Baz{-r3,x-}{i} = - Baz{-r3,x-}{i} {} -d.Eval_aB7 :: {PrelBase.Eval{-24,p-} Foo{-r3m,x-}} -{-# L #-} -d.Eval_aB7 = - PrelBase.void{-8G,w-} -$d2{-rE9,x-} :: {PrelBase.Eval{-24,p-} Foo{-r3m,x-}} -{-# L #-} -$d2{-rE9,x-} = - d.Eval_aB7 -==_aBg :: Foo{-r3m,x-} -> Foo{-r3m,x-} -> PrelBase.Bool{-34,W-} -{-# L #-} -==_aBg = - \ ds_dEQ :: Foo{-r3m,x-} - {-# L #-} - ds_dEQ ds_dER :: Foo{-r3m,x-} - {-# L #-} - ds_dER -> - let { - fail_dES :: PrelBase.Bool{-34,W-} - {-# L #-} - fail_dES = - GHCerr.patError{-8r,w-} - _@_ PrelBase.Bool{-34,W-} _string_ "ds027.hs:8|function `=='" - } in - case ds_dEQ of { - Baz{-r3,x-}{i} -> fail_dES; - Bar{-r4,x-}{i} -> - case ds_dER of { - Bar{-r4,x-}{i} -> fail_dES; - Baz{-r3,x-}{i} -> PrelBase.True{-5E,w-}{i}; - }; - } -==_aEk :: Foo{-r3m,x-} -> Foo{-r3m,x-} -> PrelBase.Bool{-34,W-} -{-# L #-} -==_aEk = - ==_aBg -/=_aBl :: Foo{-r3m,x-} -> Foo{-r3m,x-} -> PrelBase.Bool{-34,W-} -{-# L #-} -/=_aBl = - \ ds_dFu :: Foo{-r3m,x-} - {-# L #-} - ds_dFu ds_dFv :: Foo{-r3m,x-} - {-# L #-} - ds_dFv -> - let { - fail_dFw :: PrelBase.Bool{-34,W-} - {-# L #-} - fail_dFw = - GHCerr.patError{-8r,w-} - _@_ PrelBase.Bool{-34,W-} _string_ "ds027.hs:9|function `/='" - } in - case ds_dFu of { - Baz{-r3,x-}{i} -> fail_dFw; - Bar{-r4,x-}{i} -> - case ds_dFv of { - Bar{-r4,x-}{i} -> fail_dFw; - Baz{-r3,x-}{i} -> PrelBase.False{-58,w-}{i}; - }; - } -/=_aEt :: Foo{-r3m,x-} -> Foo{-r3m,x-} -> PrelBase.Bool{-34,W-} -{-# L #-} -/=_aEt = - /=_aBl -d.Eq_aBc :: {PrelBase.Eq{-23,p-} Foo{-r3m,x-}} -{-# L #-} -d.Eq_aBc = - PrelTup.(,){-62,w-}{i} - {_@_ (Foo{-r3m,x-} -> Foo{-r3m,x-} -> PrelBase.Bool{-34,W-}) - _@_ (Foo{-r3m,x-} -> Foo{-r3m,x-} -> PrelBase.Bool{-34,W-}) - ==_aEk - /=_aEt} -$d1{-rEb,x-} :: {PrelBase.Eq{-23,p-} Foo{-r3m,x-}} -{-# L #-} -$d1{-rEb,x-} = - d.Eq_aBc -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds028.stderr b/ghc/tests/deSugar/should_compile/ds028.stderr index 528ce28..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds028.stderr +++ b/ghc/tests/deSugar/should_compile/ds028.stderr @@ -1,63 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -||||_akd :: PrelBase.Bool{-34,W-} - -> PrelBase.Bool{-34,W-} - -> PrelBase.Bool{-34,W-} -{-# L #-} -||||_akd = - \ ds_dnL :: PrelBase.Bool{-34,W-} - {-# L #-} - ds_dnL ds_dnU :: PrelBase.Bool{-34,W-} - {-# L #-} - ds_dnU -> - case ds_dnL of { - PrelBase.True{-5E,w-}{i} -> PrelBase.True{-5E,w-}{i}; - PrelBase.False{-58,w-}{i} -> ds_dnU; - } -||||{-r3m,x-} :: PrelBase.Bool{-34,W-} - -> PrelBase.Bool{-34,W-} - -> PrelBase.Bool{-34,W-} -{-# L #-} -||||{-r3m,x-} = - ||||_akd -mAp{-r3n,x-} :: _forall_ - [takK takO] - => - (takK -> takO) -> [takK] -> [takO] -{-# L #-} -mAp{-r3n,x-} = - _/\_ takK takO -> - _letrec_ { - mAp_akq :: (takK -> takO) -> [takK] -> [takO] - {-# L #-} - mAp_akq = - \ f_r3e :: takK -> takO - {-# L #-} - f_r3e ds_doq :: [takK] - {-# L #-} - ds_doq -> - case ds_doq of { - PrelBase.[]{-5i,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ takO; - PrelBase.:{-55,w-}{i} x_r3h xs_r3i -> - let { - f_r3g :: takK -> takO - {-# L #-} - f_r3g = - f_r3e } in - let { - ds_doQ :: takO - {-# L #-} - ds_doQ = - f_r3g x_r3h } in - let { - ds_doU :: [takO] - {-# L #-} - ds_doU = - mAp_akq f_r3g xs_r3i - } in PrelBase.:{-55,w-}{i} _@_ takO ds_doQ ds_doU; - }; - } in mAp_akq -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds029.stderr b/ghc/tests/deSugar/should_compile/ds029.stderr index 10856f1..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds029.stderr +++ b/ghc/tests/deSugar/should_compile/ds029.stderr @@ -1,132 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -f{-r3h,x-} :: _forall_ - [taSX taSv] - => - {PrelBase.Ord{-2d,p-} taSv} - -> {PrelBase.Num{-2c,p-} taSv} - -> taSX - -> taSv -{-# L #-} -f{-r3h,x-} = - _/\_ taSX taSv -> \ d.Ord_aSZ :: {PrelBase.Ord{-2d,p-} taSv} - {-# L #-} - d.Ord_aSZ d.Num_aT2 :: {PrelBase.Num{-2c,p-} taSv} - {-# L #-} - d.Num_aT2 -> - _letrec_ { - <_aXx :: taSv -> taSv -> PrelBase.Bool{-34,W-} - {-# L #-} - <_aXx = - PrelBase.<{-rfn,p-} _@_ taSv d.Ord_aSZ; - fromInt_aXE :: PrelBase.Int{-3g,W-} -> taSv - {-# L #-} - fromInt_aXE = - PrelBase.fromInt{-8R,p-} _@_ taSv d.Num_aT2; - lit_aXF :: taSv - {-# L #-} - lit_aXF = - let { - ds_dYN :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dYN = - PrelBase.I#{-5b,w-}{i} 0 - } in fromInt_aXE ds_dYN; - fromInt_aXG :: PrelBase.Int{-3g,W-} -> taSv - {-# L #-} - fromInt_aXG = - fromInt_aXE; - lit_aXH :: taSv - {-# L #-} - lit_aXH = - let { - ds_dZ2 :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dZ2 = - PrelBase.I#{-5b,w-}{i} 1 - } in fromInt_aXG ds_dZ2; - d.Ord_aT5 :: {PrelBase.Ord{-2d,p-} taSv} - {-# L #-} - d.Ord_aT5 = - d.Ord_aSZ; - >_aXI :: taSv -> taSv -> PrelBase.Bool{-34,W-} - {-# L #-} - >_aXI = - PrelBase.>{-rfp,p-} _@_ taSv d.Ord_aT5; - fromInt_aXK :: PrelBase.Int{-3g,W-} -> taSv - {-# L #-} - fromInt_aXK = - fromInt_aXE; - lit_aXL :: taSv - {-# L #-} - lit_aXL = - let { - ds_dZq :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dZq = - PrelBase.I#{-5b,w-}{i} 2 - } in fromInt_aXK ds_dZq; - fromInt_aXN :: PrelBase.Int{-3g,W-} -> taSv - {-# L #-} - fromInt_aXN = - fromInt_aXE; - lit_aXO :: taSv - {-# L #-} - lit_aXO = - let { - ds_dZF :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dZF = - PrelBase.I#{-5b,w-}{i} 3 - } in fromInt_aXN ds_dZF; - f_aS1 :: taSX -> taSv - {-# L #-} - f_aS1 = - \ x_r3d :: taSX - {-# L #-} - x_r3d -> - _letrec_ { - lit_aZY :: taSv - {-# L #-} - lit_aZY = - lit_aXH; - lit_a100 :: taSv - {-# L #-} - lit_a100 = - lit_aXL; - ds_d109 :: (taSv, taSv) - {-# L #-} - ds_d109 = - case <_aXx y_aS9 z_aSa of { - PrelBase.True{-5E,w-}{i} -> - PrelTup.(,){-62,w-}{i} {_@_ taSv _@_ taSv lit_aXF lit_aXH}; - PrelBase.False{-58,w-}{i} -> - case >_aXI y_aS9 z_aSa of { - PrelBase.True{-5E,w-}{i} -> - PrelTup.(,){-62,w-}{i} {_@_ taSv _@_ taSv lit_aZY lit_aXL}; - PrelBase.False{-58,w-}{i} -> - PrelTup.(,){-62,w-}{i} {_@_ taSv _@_ taSv lit_a100 lit_aXO}; - }; - }; - y_aS9 :: taSv - {-# L #-} - y_aS9 = - case ds_d109 of { PrelTup.(,){-62,w-}{i} y_aS9 z_aSa -> y_aS9;}; - z_aSa :: taSv - {-# L #-} - z_aSa = - case ds_d109 of { PrelTup.(,){-62,w-}{i} y_aS9 z_aSa -> z_aSa;}; - y_r3f :: taSv - {-# L #-} - y_r3f = - y_aS9; - z_r3g :: taSv - {-# L #-} - z_r3g = - z_aSa; - } in y_r3f; - } in f_aS1 -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds030.stderr b/ghc/tests/deSugar/should_compile/ds030.stderr index 1c144af..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds030.stderr +++ b/ghc/tests/deSugar/should_compile/ds030.stderr @@ -1,41 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -f{-r3e,x-} :: _forall_ [taBY] => [taBY] -> PrelBase.Int{-3g,W-} -{-# L #-} -f{-r3e,x-} = - _/\_ taBY -> - _letrec_ { - f_aBO :: [taBY] -> PrelBase.Int{-3g,W-} - {-# L #-} - f_aBO = - \ x_r3d :: [taBY] - {-# L #-} - x_r3d -> - let { - ds_dEM :: [taBY] - {-# L #-} - ds_dEM = - x_r3d } in - let { - fail_dEO :: PrelBase.Int{-3g,W-} - {-# L #-} - fail_dEO = - lit_aEC - } in - case ds_dEM of { - PrelBase.:{-55,w-}{i} ds_dEV ds_dEW -> fail_dEO; - PrelBase.[]{-5i,w-}{i} -> lit_aEA; - }; - } in f_aBO -lit_aEA :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_aEA = - PrelBase.I#{-5b,w-}{i} 3 -lit_aEC :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_aEC = - PrelBase.I#{-5b,w-}{i} 4 -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds031.stderr b/ghc/tests/deSugar/should_compile/ds031.stderr index d6c06e8..106ea38 100644 --- a/ghc/tests/deSugar/should_compile/ds031.stderr +++ b/ghc/tests/deSugar/should_compile/ds031.stderr @@ -1,103 +1,3 @@ ds031.hs:4: Warning: Possibly incomplete patterns in the definition of function `foldPair' - - -================================================================================ -Desugared: -Rec { -foldPair{-r3f,x-} :: _forall_ - [tayn tayo] - => - (tayn -> tayn -> tayn, tayo -> tayo -> tayo) - -> (tayn, tayo) - -> [(tayn, tayo)] - -> (tayn, tayo) -{-# L #-} -foldPair{-r3f,x-} = - _/\_ tayn tayo -> - _letrec_ { - foldPair_ayk :: (tayn -> tayn -> tayn, tayo -> tayo -> tayo) - -> (tayn, tayo) - -> [(tayn, tayo)] - -> (tayn, tayo) - {-# L #-} - foldPair_ayk = - \ fg_r3h :: (tayn -> tayn -> tayn, tayo -> tayo -> tayo) - {-# L #-} - fg_r3h ab_r3i :: (tayn, tayo) - {-# L #-} - ab_r3i ds_dDb :: [(tayn, tayo)] - {-# L #-} - ds_dDb -> - let { - fail_dDc :: (tayn, tayo) - {-# L #-} - fail_dDc = - GHCerr.patError{-8r,w-} - _@_ (tayn, tayo) _string_ "ds031.hs:4|function `foldPair'" } in - let { - fail_dF4 :: (tayn, tayo) - {-# L #-} - fail_dF4 = - case fg_r3h of { PrelTup.(,){-62,w-}{i} f_r3l g_r3m -> - case ds_dDb of { - PrelBase.[]{-5i,w-}{i} -> fail_dDc; - PrelBase.:{-55,w-}{i} ds_dDx abs_r3q -> - case ds_dDx of { PrelTup.(,){-62,w-}{i} a_r3o b_r3p -> - let { - ab_r3n :: (tayn, tayo) - {-# L #-} - ab_r3n = - ab_r3i } in - let { - fg_r3k :: (tayn -> tayn -> tayn, tayo -> tayo -> tayo) - {-# L #-} - fg_r3k = - fg_r3h } in - let { - ds_dEt :: (tayn, tayo) - {-# L #-} - ds_dEt = - foldPair{-r3f,x-} _@_ tayn _@_ tayo fg_r3k ab_r3n abs_r3q } in - let { - u_ayS :: tayn - {-# L #-} - u_ayS = - case ds_dEt of { PrelTup.(,){-62,w-}{i} u_ayS v_ayT -> - u_ayS;} } in - let { - v_ayT :: tayo - {-# L #-} - v_ayT = - case ds_dEt of { PrelTup.(,){-62,w-}{i} u_ayS v_ayT -> - v_ayT;} } in - let { - u_r3s :: tayn - {-# L #-} - u_r3s = - u_ayS } in - let { - v_r3t :: tayo - {-# L #-} - v_r3t = - v_ayT } in - let { - ds_dE2 :: tayn - {-# L #-} - ds_dE2 = - f_r3l a_r3o u_r3s } in - let { - ds_dE6 :: tayo - {-# L #-} - ds_dE6 = - g_r3m b_r3p v_r3t - } in PrelTup.(,){-62,w-}{i} {_@_ tayn _@_ tayo ds_dE2 ds_dE6};}; - };} - } in - case ds_dDb of { - PrelBase.:{-55,w-}{i} ds_dFb ds_dFc -> fail_dF4; - PrelBase.[]{-5i,w-}{i} -> ab_r3i; - }; - } in foldPair_ayk -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds032.stderr b/ghc/tests/deSugar/should_compile/ds032.stderr index 742fcea..b7e6ee4 100644 --- a/ghc/tests/deSugar/should_compile/ds032.stderr +++ b/ghc/tests/deSugar/should_compile/ds032.stderr @@ -1,164 +1,3 @@ ds032.hs:12: Warning: Possibly incomplete patterns in the definition of function `flatten' - - -================================================================================ -Desugared: -Rec { -==_a11H :: PrelBase.Float{-3c,W-} - -> PrelBase.Float{-3c,W-} - -> PrelBase.Bool{-34,W-} -{-# L #-} -==_a11H = - ==_a11J -flatten_aUn :: PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} - -> PrelBase.Float{-3c,W-} - -> [(PrelBase.Int{-3g,W-}, PrelBase.Float{-3c,W-})] - -> PrelBase.String{-rAJ,p-} -{-# L #-} -flatten_aUn = - \ n_r3i :: PrelBase.Int{-3g,W-} - {-# L #-} - n_r3i nlp_r3j :: PrelBase.Bool{-34,W-} - {-# L #-} - nlp_r3j ds_d13a :: PrelBase.Float{-3c,W-} - {-# L #-} - ds_d13a seqs_r3k :: [(PrelBase.Int{-3g,W-}, PrelBase.Float{-3c,W-})] - {-# L #-} - seqs_r3k -> - let { - fail_d13b :: PrelBase.String{-rAJ,p-} - {-# L #-} - fail_d13b = - GHCerr.patError{-8r,w-} - _@_ PrelBase.String{-rAJ,p-} - _string_ "ds032.hs:12|function `flatten'" - } in - case ds_d13a of { PrelBase.F#{-59,w-}{i} ds_d13k -> - case# ds_d13k of { - _float_ 0.0000000000000000 -> flattenS{-r3,x-} nlp_r3j seqs_r3k; - _float_ 1.0000000000000000 -> - let { - seqs_r3o :: [(PrelBase.Int{-3g,W-}, PrelBase.Float{-3c,W-})] - {-# L #-} - seqs_r3o = - seqs_r3k } in - let { - nlp_r3n :: PrelBase.Bool{-34,W-} - {-# L #-} - nlp_r3n = - nlp_r3j } in - let { - n_r3m :: PrelBase.Int{-3g,W-} - {-# L #-} - n_r3m = - n_r3i } in - let { ds_d13X :: [(PrelBase.Int{-3g,W-}, PrelBase.Float{-3c,W-})] - {-# L #-} - ds_d13X = - let { - ds_d14a :: (PrelBase.Int{-3g,W-}, PrelBase.Float{-3c,W-}) - {-# L #-} - ds_d14a = - PrelTup.(,){-62,w-}{i} - {_@_ PrelBase.Int{-3g,W-} - _@_ PrelBase.Float{-3c,W-} - n_r3m - lit_a11V} - } in - PrelBase.:{-55,w-}{i} - _@_ (PrelBase.Int{-3g,W-}, PrelBase.Float{-3c,W-}) ds_d14a seqs_r3o - } in - flatten{-r1,x-} n_r3m nlp_r3n lit_a11S ds_d13X; - ds_d14u -> fail_d13b; - };} -flattenS_aUo :: PrelBase.Bool{-34,W-} - -> [(PrelBase.Int{-3g,W-}, PrelBase.Float{-3c,W-})] - -> PrelBase.String{-rAJ,p-} -{-# L #-} -flattenS_aUo = - \ nlp_r3q :: PrelBase.Bool{-34,W-} - {-# L #-} - nlp_r3q ds_d14A :: [(PrelBase.Int{-3g,W-}, PrelBase.Float{-3c,W-})] - {-# L #-} - ds_d14A -> - case ds_d14A of { - PrelBase.[]{-5i,w-}{i} -> - PrelBase.[]{-5i,w-}{i} {_@_ PrelBase.Char{-38,W-}}; - PrelBase.:{-55,w-}{i} ds_d14P seqs_r3v -> - case ds_d14P of { PrelTup.(,){-62,w-}{i} col_r3t seq_r3u -> - let { - nlp_r3s :: PrelBase.Bool{-34,W-} - {-# L #-} - nlp_r3s = - nlp_r3q - } in flatten{-r1,x-} col_r3t nlp_r3s seq_r3u seqs_r3v;}; - } -flatten{-r1,x-} :: PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} - -> PrelBase.Float{-3c,W-} - -> [(PrelBase.Int{-3g,W-}, PrelBase.Float{-3c,W-})] - -> PrelBase.String{-rAJ,p-} -{-# L #-} -flatten{-r1,x-} = - flatten_aUn -flattenS{-r3,x-} :: PrelBase.Bool{-34,W-} - -> [(PrelBase.Int{-3g,W-}, PrelBase.Float{-3c,W-})] - -> PrelBase.String{-rAJ,p-} -{-# L #-} -flattenS{-r3,x-} = - flattenS_aUo -d.Fractional_aV4 :: {PrelNum.Fractional{-26,p-} PrelBase.Float{-3c,W-}} -{-# L #-} -d.Fractional_aV4 = - PrelNum.$d23{-rCU,p-} -fromRational_a11K :: PrelNum.Rational{-3r,p-} - -> PrelBase.Float{-3c,W-} -{-# L #-} -fromRational_a11K = - PrelNum.fromRational{-8T,p-} - _@_ PrelBase.Float{-3c,W-} d.Fractional_aV4 -lit_a11L :: PrelBase.Float{-3c,W-} -{-# L #-} -lit_a11L = - fromRational_a11K _rational_ 0 1 -d.Eq_aV7 :: {PrelBase.Eq{-23,p-} PrelBase.Float{-3c,W-}} -{-# L #-} -d.Eq_aV7 = - PrelNum.$d27{-rCY,p-} -==_a11J :: PrelBase.Float{-3c,W-} - -> PrelBase.Float{-3c,W-} - -> PrelBase.Bool{-34,W-} -{-# L #-} -==_a11J = - PrelBase.=={-8Y,p-} _@_ PrelBase.Float{-3c,W-} d.Eq_aV7 -fromRational_a11O :: PrelNum.Rational{-3r,p-} - -> PrelBase.Float{-3c,W-} -{-# L #-} -fromRational_a11O = - fromRational_a11K -lit_a11P :: PrelBase.Float{-3c,W-} -{-# L #-} -lit_a11P = - fromRational_a11O _rational_ 1 1 -fromRational_a11R :: PrelNum.Rational{-3r,p-} - -> PrelBase.Float{-3c,W-} -{-# L #-} -fromRational_a11R = - fromRational_a11K -lit_a11S :: PrelBase.Float{-3c,W-} -{-# L #-} -lit_a11S = - fromRational_a11R _rational_ 11 10 -fromRational_a11U :: PrelNum.Rational{-3r,p-} - -> PrelBase.Float{-3c,W-} -{-# L #-} -fromRational_a11U = - fromRational_a11K -lit_a11V :: PrelBase.Float{-3c,W-} -{-# L #-} -lit_a11V = - fromRational_a11U _rational_ 6 5 -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds033.stderr b/ghc/tests/deSugar/should_compile/ds033.stderr index bddc426..955d1e1 100644 --- a/ghc/tests/deSugar/should_compile/ds033.stderr +++ b/ghc/tests/deSugar/should_compile/ds033.stderr @@ -1,140 +1,2 @@ - -================================================================================ -Desugared: -Rec { -ds_dq1 :: _forall_ [takN takP] => (takP -> takN, takP -> takN) -{-# L #-} -ds_dq1 = - _/\_ takN takP -> - _letrec_ { - g4_akw :: takP -> takN - {-# L #-} - g4_akw = - \ y_r3w :: takP - {-# L #-} - y_r3w -> - f4_akx y_r3w; - f4_akx :: takP -> takN - {-# L #-} - f4_akx = - \ x_r3y :: takP - {-# L #-} - x_r3y -> - g4_akw x_r3y; - } in - PrelTup.(,){-62,w-}{i} - {_@_ (takP -> takN) _@_ (takP -> takN) g4_akw f4_akx} -g4{-r3A,x-} :: _forall_ [takN takP] => takP -> takN -{-# L #-} -g4{-r3A,x-} = - _/\_ takN takP -> - case - ds_dq1 _@_ takN _@_ takP - of { - PrelTup.(,){-62,w-}{i} ds_drz ds_drA -> - ds_drz;} -f4{-r3z,x-} :: _forall_ [takN takP] => takP -> takN -{-# L #-} -f4{-r3z,x-} = - _/\_ takN takP -> - case - ds_dq1 _@_ takN _@_ takP - of { - PrelTup.(,){-62,w-}{i} ds_drT ds_drS -> - ds_drS;} -ds_dqx :: _forall_ [tal8 tala] => (tala -> tal8, tala -> tal8) -{-# L #-} -ds_dqx = - _/\_ tal8 tala -> - _letrec_ { - f3_akR :: tala -> tal8 - {-# L #-} - f3_akR = - \ x_r3s :: tala - {-# L #-} - x_r3s -> - g3_akS x_r3s; - g3_akS :: tala -> tal8 - {-# L #-} - g3_akS = - \ y_r3u :: tala - {-# L #-} - y_r3u -> - f3_akR y_r3u; - } in - PrelTup.(,){-62,w-}{i} - {_@_ (tala -> tal8) _@_ (tala -> tal8) f3_akR g3_akS} -f3{-r3C,x-} :: _forall_ [tal8 tala] => tala -> tal8 -{-# L #-} -f3{-r3C,x-} = - _/\_ tal8 tala -> - case - ds_dqx _@_ tal8 _@_ tala - of { - PrelTup.(,){-62,w-}{i} ds_dsQ ds_dsR -> - ds_dsQ;} -g3{-r3B,x-} :: _forall_ [tal8 tala] => tala -> tal8 -{-# L #-} -g3{-r3B,x-} = - _/\_ tal8 tala -> - case - ds_dqx _@_ tal8 _@_ tala - of { - PrelTup.(,){-62,w-}{i} ds_dta ds_dt9 -> - ds_dt9;} -g2{-r3E,x-} :: _forall_ [tall] => tall -> tall -{-# L #-} -g2{-r3E,x-} = - _/\_ tall -> - _letrec_ { - g2_alc :: tall -> tall - {-# L #-} - g2_alc = - \ y_r3o :: tall - {-# L #-} - y_r3o -> - y_r3o; - } in g2_alc -f2{-r3D,x-} :: _forall_ [talw] => talw -> talw -{-# L #-} -f2{-r3D,x-} = - _/\_ talw -> - _letrec_ { - f2_aln :: talw -> talw - {-# L #-} - f2_aln = - \ x_r3q :: talw - {-# L #-} - x_r3q -> - g2{-r3E,x-} _@_ talw x_r3q; - } in f2_aln -g1{-r3F,x-} :: _forall_ [talH] => talH -> talH -{-# L #-} -g1{-r3F,x-} = - _/\_ talH -> - _letrec_ { - g1_aly :: talH -> talH - {-# L #-} - g1_aly = - \ y_r3m :: talH - {-# L #-} - y_r3m -> - y_r3m; - } in g1_aly -f1{-r3G,x-} :: _forall_ [talS] => talS -> talS -{-# L #-} -f1{-r3G,x-} = - _/\_ talS -> - _letrec_ { - f1_alJ :: talS -> talS - {-# L #-} - f1_alJ = - \ x_r3k :: talS - {-# L #-} - x_r3k -> - g1{-r3F,x-} _@_ talS x_r3k; - } in f1_alJ -end Rec } - NOTE: Simplifier still going after 4 iterations; bailing out. diff --git a/ghc/tests/deSugar/should_compile/ds034.stderr b/ghc/tests/deSugar/should_compile/ds034.stderr index b8bcc0e..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds034.stderr +++ b/ghc/tests/deSugar/should_compile/ds034.stderr @@ -1,78 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -op2_amz :: PrelBase.Int{-3g,W-} -> PrelBase.Int{-3g,W-} -{-# L #-} -op2_amz = - op2_amB -op1_amD :: PrelBase.Int{-3g,W-} -> PrelBase.Int{-3g,W-} -{-# L #-} -op1_amD = - op1_amE -op1_akv :: PrelBase.Int{-3g,W-} -> PrelBase.Int{-3g,W-} -{-# L #-} -op1_akv = - \ x_r3i :: PrelBase.Int{-3g,W-} - {-# L #-} - x_r3i -> - op2_amz x_r3i -op1_amE :: PrelBase.Int{-3g,W-} -> PrelBase.Int{-3g,W-} -{-# L #-} -op1_amE = - op1_akv -op2_akF :: PrelBase.Int{-3g,W-} -> PrelBase.Int{-3g,W-} -{-# L #-} -op2_akF = - \ y_r3m :: PrelBase.Int{-3g,W-} - {-# L #-} - y_r3m -> - op1_amD y_r3m -op2_amB :: PrelBase.Int{-3g,W-} -> PrelBase.Int{-3g,W-} -{-# L #-} -op2_amB = - op2_akF -d.Foo_akr :: {Foo{-r3q,x-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Foo_akr = - PrelTup.(,){-62,w-}{i} - {_@_ (PrelBase.Int{-3g,W-} -> PrelBase.Int{-3g,W-}) - _@_ (PrelBase.Int{-3g,W-} -> PrelBase.Int{-3g,W-}) - op1_amE - op2_amB} -$d1{-rmC,x-} :: {Foo{-r3q,x-} PrelBase.Int{-3g,W-}} -{-# L #-} -$d1{-rmC,x-} = - d.Foo_akr -op1{-r3r,x-} :: _forall_ - [a_tr3p] - => - {Foo{-r3q,x-} a_tr3p} -> a_tr3p -> a_tr3p -{-# L #-} -op1{-r3r,x-} = - _/\_ t12 -> \ tpl_B1 :: {Foo{-r3q,x-} t12} - {-# L #-} - tpl_B1 -> - case tpl_B1 of { PrelTup.(,){-62,w-}{i} tpl_B1 tpl_B2 -> tpl_B1;} -op2{-r3s,x-} :: _forall_ - [a_tr3p] - => - {Foo{-r3q,x-} a_tr3p} -> a_tr3p -> a_tr3p -{-# L #-} -op2{-r3s,x-} = - _/\_ t12 -> \ tpl_B1 :: {Foo{-r3q,x-} t12} - {-# L #-} - tpl_B1 -> - case tpl_B1 of { PrelTup.(,){-62,w-}{i} tpl_B1 tpl_B2 -> tpl_B2;} -ds_dnj :: _forall_ - [takP] - => - {Foo{-r3q,x-} takP} -> PrelBase.(){-40,W-} -{-# L #-} -ds_dnj = - _/\_ takP -> \ d.Foo_akO :: {Foo{-r3q,x-} takP} - {-# L #-} - d.Foo_akO -> - PrelBase.(){-60,w-}{i} {} -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds035.stderr b/ghc/tests/deSugar/should_compile/ds035.stderr index f8f13ab..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds035.stderr +++ b/ghc/tests/deSugar/should_compile/ds035.stderr @@ -1,112 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -CNil{-r7,x-}{i} :: CList{-r4u,x-} -_A_ 0 {-# L #-} -CNil{-r7,x-}{i} = - CNil{-r7,x-}{i} {} -CCons{-r6,x-}{i} :: GHC.Int#{-3f,W-} - -> CList{-r4u,x-} - -> CList{-r4u,x-} -_A_ 2 {-# L #-} -CCons{-r6,x-}{i} = - \ tpl_B1 :: GHC.Int#{-3f,W-} - {-# L #-} - tpl_B1 tpl_B2 :: CList{-r4u,x-} - {-# L #-} - tpl_B2 -> - CCons{-r6,x-}{i} {tpl_B1 tpl_B2} -clen_aGK :: CList{-r4u,x-} -> GHC.Int#{-3f,W-} -{-# L #-} -clen_aGK = - \ ds_dNA :: CList{-r4u,x-} - {-# L #-} - ds_dNA -> - case ds_dNA of { - CNil{-r7,x-}{i} -> 0; - CCons{-r6,x-}{i} ds_dNR cl_r4p -> - case# clen{-r9,x-} cl_r4p of { ds_dO1 -> - GHC.+#{-7D,w-}{I} 1 ds_dO1;}; - } -clen{-r9,x-} :: CList{-r4u,x-} -> GHC.Int#{-3f,W-} -{-# L #-} -clen{-r9,x-} = - clen_aGK -mk_aGP :: GHC.Int#{-3f,W-} -> CList{-r4u,x-} -{-# L #-} -mk_aGP = - \ n_r4k :: GHC.Int#{-3f,W-} - {-# L #-} - n_r4k -> - let { - ds_dOE :: PrelBase.Bool{-34,W-} - {-# L #-} - ds_dOE = - GHC.==#{-79,w-}{I} n_r4k 0 } in - let { fail_dOR :: CList{-r4u,x-} - {-# L #-} - fail_dOR = - let { - ds_dOs :: CList{-r4u,x-} - {-# L #-} - ds_dOs = - case# GHC.-#{-7E,w-}{I} n_r4k 1 of { ds_dOM -> mk{-r8,x-} ds_dOM;} - } in CCons{-r6,x-}{i} 1 ds_dOs - } in - case ds_dOE of { - PrelBase.True{-5E,w-}{i} -> fail_dOR; - PrelBase.False{-58,w-}{i} -> CNil{-r7,x-}{i}; - } -mk{-r8,x-} :: GHC.Int#{-3f,W-} -> CList{-r4u,x-} -{-# L #-} -mk{-r8,x-} = - mk_aGP -main_aH0 :: IOBase.IO{-3e,p-} PrelBase.(){-40,W-} -{-# L #-} -main_aH0 = - let { - list4_aGZ :: CList{-r4u,x-} - {-# L #-} - list4_aGZ = - mk{-r8,x-} 4 } in - let { - list4_r4r :: CList{-r4u,x-} - {-# L #-} - list4_r4r = - list4_aGZ - } in - case# clen{-r9,x-} list4_r4r of { len4_aH4 -> - case# len4_aH4 of { len4_r4s -> - case# GHC.+#{-7D,w-}{I} len4_r4s len4_r4s of { len4_twice_aH7 -> - case# len4_twice_aH7 of { len4_twice_r4t -> - let { - ds_dPl :: [PrelBase.Char{-38,W-}] - {-# L #-} - ds_dPl = - case# len4_twice_r4t of { ds_dPS -> - let { - fail_dPT :: PrelBase.String{-rgL,p-} - {-# L #-} - fail_dPT = - _string_ "oops\n" - } in - case# ds_dPS of { - 8 -> _string_ "bingo\n"; - ds_dQ1 -> fail_dPT; - };} - } in PrelIO.putStr{-rhQ,p-} ds_dPl;};};};} -main{-814,x-} :: IOBase.IO{-3e,p-} PrelBase.(){-40,W-} -{-# L #-} -main{-814,x-} = - main_aH0 -d.Eval_aHh :: {PrelBase.Eval{-24,p-} CList{-r4u,x-}} -{-# L #-} -d.Eval_aHh = - PrelBase.void{-8G,w-} -$d1{-rNv,x-} :: {PrelBase.Eval{-24,p-} CList{-r4u,x-}} -{-# L #-} -$d1{-rNv,x-} = - d.Eval_aHh -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds036.stderr b/ghc/tests/deSugar/should_compile/ds036.stderr index 3e91e7e..6608a1a 100644 --- a/ghc/tests/deSugar/should_compile/ds036.stderr +++ b/ghc/tests/deSugar/should_compile/ds036.stderr @@ -4,379 +4,3 @@ ds036.hs:22: ds036.hs:44: Warning: Possibly incomplete patterns in the definition of function `kh' - - -================================================================================ -Desugared: -Rec { -kh{-r3g,x-} :: _forall_ - [taSF] - => - {PrelBase.Num{-2c,p-} taSF} - -> {PrelBase.Ord{-2d,p-} taSF} - -> taSF - -> taSF - -> taSF -{-# L #-} -kh{-r3g,x-} = - _/\_ taSF -> \ d.Num_aSU :: {PrelBase.Num{-2c,p-} taSF} - {-# L #-} - d.Num_aSU d.Ord_aSW :: {PrelBase.Ord{-2d,p-} taSF} - {-# L #-} - d.Ord_aSW -> - _letrec_ { - fromInt_a14h :: PrelBase.Int{-3g,W-} -> taSF - {-# L #-} - fromInt_a14h = - PrelBase.fromInt{-8R,p-} _@_ taSF d.Num_aSU; - lit_a14t :: taSF - {-# L #-} - lit_a14t = - let { - ds_d16u :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d16u = - PrelBase.I#{-5b,w-}{i} 2 - } in fromInt_a14h ds_d16u; - >=_a14u :: taSF -> taSF -> PrelBase.Bool{-34,W-} - {-# L #-} - >=_a14u = - PrelBase.>={-8Z,p-} _@_ taSF d.Ord_aSW; - d.Num_aSY :: {PrelBase.Num{-2c,p-} taSF} - {-# L #-} - d.Num_aSY = - d.Num_aSU; - -_a14v :: taSF -> taSF -> taSF - {-# L #-} - -_a14v = - PrelBase.-{-817,p-} _@_ taSF d.Num_aSY; - d.Ord_aT0 :: {PrelBase.Ord{-2d,p-} taSF} - {-# L #-} - d.Ord_aT0 = - d.Ord_aSW; - >_a14w :: taSF -> taSF -> PrelBase.Bool{-34,W-} - {-# L #-} - >_a14w = - PrelBase.>{-rfI,p-} _@_ taSF d.Ord_aT0; - d.Num_aT2 :: {PrelBase.Num{-2c,p-} taSF} - {-# L #-} - d.Num_aT2 = - d.Num_aSU; - *_a14x :: taSF -> taSF -> taSF - {-# L #-} - *_a14x = - PrelBase.*{-rfB,p-} _@_ taSF d.Num_aT2; - lit_a14y :: taSF - {-# L #-} - lit_a14y = - lit_a14t; - fromInt_a14z :: PrelBase.Int{-3g,W-} -> taSF - {-# L #-} - fromInt_a14z = - fromInt_a14h; - lit_a14A :: taSF - {-# L #-} - lit_a14A = - let { - ds_d17j :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d17j = - PrelBase.I#{-5b,w-}{i} 1 - } in fromInt_a14z ds_d17j; - >=_a14B :: taSF -> taSF -> PrelBase.Bool{-34,W-} - {-# L #-} - >=_a14B = - >=_a14u; - -_a14C :: taSF -> taSF -> taSF - {-# L #-} - -_a14C = - -_a14v; - lit_a14D :: taSF - {-# L #-} - lit_a14D = - lit_a14A; - >=_a14E :: taSF -> taSF -> PrelBase.Bool{-34,W-} - {-# L #-} - >=_a14E = - >=_a14u; - -_a14F :: taSF -> taSF -> taSF - {-# L #-} - -_a14F = - -_a14v; - kh_aSk :: taSF -> taSF -> taSF - {-# L #-} - kh_aSk = - \ ds_d17R :: taSF - {-# L #-} - ds_d17R x_r3x :: taSF - {-# L #-} - x_r3x -> - let { - fail_d184 :: taSF - {-# L #-} - fail_d184 = - GHCerr.patError{-8r,w-} - _@_ taSF _string_ "ds036.hs:44|function `kh'" } in - let { - fail_d19w :: taSF - {-# L #-} - fail_d19w = - case - (\ ds_d17Y :: taSF - {-# L #-} - ds_d17Y -> - >=_a14B ds_d17Y lit_a14A) - ds_d17R - of { - PrelBase.True{-5E,w-}{i} -> - let { - x_r3z :: taSF - {-# L #-} - x_r3z = - (\ ds_d18o :: taSF - {-# L #-} - ds_d18o -> - -_a14C ds_d18o lit_a14A) - ds_d17R - } in - case - (\ ds_d18E :: taSF - {-# L #-} - ds_d18E -> - >=_a14E ds_d18E lit_a14D) - x_r3x - of { - PrelBase.True{-5E,w-}{i} -> - (\ ds_d192 :: taSF - {-# L #-} - ds_d192 -> - -_a14F ds_d192 lit_a14D) - x_r3x; - PrelBase.False{-58,w-}{i} -> fail_d184; - }; - PrelBase.False{-58,w-}{i} -> fail_d184; - } - } in - case - (\ ds_d19q :: taSF - {-# L #-} - ds_d19q -> - >=_a14u ds_d19q lit_a14t) - ds_d17R - of { - PrelBase.True{-5E,w-}{i} -> - let { - n_r3w :: taSF - {-# L #-} - n_r3w = - (\ ds_d19Q :: taSF - {-# L #-} - ds_d19Q -> - -_a14v ds_d19Q lit_a14t) - ds_d17R - } in - case >_a14w x_r3x n_r3w of { - PrelBase.True{-5E,w-}{i} -> *_a14x x_r3x lit_a14y; - PrelBase.False{-58,w-}{i} -> fail_d19w; - }; - PrelBase.False{-58,w-}{i} -> fail_d19w; - }; - } in kh_aSk -brack'{-r3f,x-} :: _forall_ - [taTa] - => - {PrelBase.Eq{-23,p-} taTa} - -> taTa - -> taTa - -> PrelBase.Int{-3g,W-} - -> [taTa] - -> ([taTa], [taTa]) -{-# L #-} -brack'{-r3f,x-} = - _/\_ taTa -> \ d.Eq_aU7 :: {PrelBase.Eq{-23,p-} taTa} - {-# L #-} - d.Eq_aU7 -> - _letrec_ { - lit_a1aE :: PrelBase.Int{-3g,W-} - {-# L #-} - lit_a1aE = - lit_a14q; - >=_a1aG :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} - {-# L #-} - >=_a1aG = - >=_a14r; - -_a1aH :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - {-# L #-} - -_a1aH = - -_a14s; - d.Eq_aUf :: {PrelBase.Eq{-23,p-} taTa} - {-# L #-} - d.Eq_aUf = - d.Eq_aU7; - ==_a1aI :: taTa -> taTa -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1aI = - PrelBase.=={-8Y,p-} _@_ taTa d.Eq_aUf; - brack'_aT7 :: taTa - -> taTa - -> PrelBase.Int{-3g,W-} - -> [taTa] - -> ([taTa], [taTa]) - {-# L #-} - brack'_aT7 = - \ open_r3i :: taTa - {-# L #-} - open_r3i close_r3j :: taTa - {-# L #-} - close_r3j ds_d1bB :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1bB xs_r3k :: [taTa] - {-# L #-} - xs_r3k -> - let { - fail_d1bO :: ([taTa], [taTa]) - {-# L #-} - fail_d1bO = - GHCerr.patError{-8r,w-} - _@_ ([taTa], [taTa]) _string_ "ds036.hs:22|function `brack''" } in - let { - fail_d1dT :: ([taTa], [taTa]) - {-# L #-} - fail_d1dT = - case - (\ ds_d1bI :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1bI -> - >=_a14r ds_d1bI lit_a14q) - ds_d1bB - of { - PrelBase.True{-5E,w-}{i} -> - let { - n_r3o :: PrelBase.Int{-3g,W-} - {-# L #-} - n_r3o = - (\ ds_d1c8 :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1c8 -> - -_a14s ds_d1c8 lit_a14q) - ds_d1bB - } in - case xs_r3k of { - PrelBase.[]{-5i,w-}{i} -> - let { - close_r3n :: taTa - {-# L #-} - close_r3n = - close_r3j } in - let { - open_r3m :: taTa - {-# L #-} - open_r3m = - open_r3i } in - let { - ds_d1cz :: [taTa] - {-# L #-} - ds_d1cz = - PrelBase.[]{-5i,w-}{i} _@_ taTa } in - let { - ds_d1cD :: [taTa] - {-# L #-} - ds_d1cD = - PrelBase.[]{-5i,w-}{i} _@_ taTa - } in - PrelTup.(,){-62,w-}{i} - {_@_ [taTa] _@_ [taTa] ds_d1cz ds_d1cD}; - PrelBase.:{-55,w-}{i} h_r3t t_r3u -> - let { - n_r3s :: PrelBase.Int{-3g,W-} - {-# L #-} - n_r3s = - n_r3o } in - let { - close_r3r :: taTa - {-# L #-} - close_r3r = - close_r3j } in - let { - open_r3q :: taTa - {-# L #-} - open_r3q = - open_r3i - } in - case ==_a1aI h_r3t open_r3q of { - PrelBase.True{-5E,w-}{i} -> - let { - ds_d1du :: [taTa] - {-# L #-} - ds_d1du = - PrelBase.[]{-5i,w-}{i} _@_ taTa } in - let { - ds_d1dy :: [taTa] - {-# L #-} - ds_d1dy = - PrelBase.[]{-5i,w-}{i} _@_ taTa - } in - PrelTup.(,){-62,w-}{i} - {_@_ [taTa] _@_ [taTa] ds_d1du ds_d1dy}; - PrelBase.False{-58,w-}{i} -> fail_d1bO; - }; - }; - PrelBase.False{-58,w-}{i} -> fail_d1bO; - } - } in - case ds_d1bB of { PrelBase.I#{-5b,w-}{i} ds_d1e2 -> - case# ds_d1e2 of { - 0 -> - let { - ds_d1eh :: [taTa] - {-# L #-} - ds_d1eh = - PrelBase.[]{-5i,w-}{i} _@_ taTa - } in - PrelTup.(,){-62,w-}{i} {_@_ [taTa] _@_ [taTa] ds_d1eh xs_r3k}; - ds_d1et -> fail_d1dT; - };}; - } in brack'_aT7 -lit_a14o :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a14o = - PrelBase.I#{-5b,w-}{i} 0 -d.Eq_aUh :: {PrelBase.Eq{-23,p-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Eq_aUh = - PrelBase.$d8{-rb8,p-} -==_a14p :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} -{-# L #-} -==_a14p = - PrelBase.=={-8Y,p-} _@_ PrelBase.Int{-3g,W-} d.Eq_aUh -lit_a14q :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a14q = - PrelBase.I#{-5b,w-}{i} 1 -d.Ord_aUk :: {PrelBase.Ord{-2d,p-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Ord_aUk = - PrelBase.$d7{-rb7,p-} ->=_a14r :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} -{-# L #-} ->=_a14r = - PrelBase.>={-8Z,p-} _@_ PrelBase.Int{-3g,W-} d.Ord_aUk -d.Num_aUn :: {PrelBase.Num{-2c,p-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Num_aUn = - PrelBase.$d4{-raL,p-} --_a14s :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} -{-# L #-} --_a14s = - PrelBase.-{-817,p-} _@_ PrelBase.Int{-3g,W-} d.Num_aUn -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds037.stderr b/ghc/tests/deSugar/should_compile/ds037.stderr index 4a05869..955d1e1 100644 --- a/ghc/tests/deSugar/should_compile/ds037.stderr +++ b/ghc/tests/deSugar/should_compile/ds037.stderr @@ -1,132 +1,2 @@ - -================================================================================ -Desugared: -Rec { -ds_dVA :: _forall_ - [taS9] - => - (PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> (taS9, PrelBase.Int{-3g,W-}), PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> (taS9, PrelBase.Int{-3g,W-})) -{-# L #-} -ds_dVA = - _/\_ taS9 -> - _letrec_ { - +_aTZ :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - {-# L #-} - +_aTZ = - +_aU0; - lit_aU2 :: PrelBase.Int{-3g,W-} - {-# L #-} - lit_aU2 = - lit_aU1; - f_aRp :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> (taS9, PrelBase.Int{-3g,W-}) - {-# L #-} - f_aRp = - \ x_r3e :: PrelBase.Int{-3g,W-} - {-# L #-} - x_r3e y_r3f :: PrelBase.Int{-3g,W-} - {-# L #-} - y_r3f -> - let { ds_dWx :: taS9 - {-# L #-} - ds_dWx = - let { - ds_dWN :: (taS9, PrelBase.Int{-3g,W-}) - {-# L #-} - ds_dWN = - g_aRq y_r3f x_r3e - } in PrelTup.fst{-rgQ,p-} _@_ PrelBase.Int{-3g,W-} _@_ taS9 ds_dWN - } in - let { - ds_dWB :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dWB = - +_aU0 x_r3e lit_aU1 - } in - PrelTup.(,){-62,w-}{i} - {_@_ taS9 _@_ PrelBase.Int{-3g,W-} ds_dWx ds_dWB}; - g_aRq :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> (taS9, PrelBase.Int{-3g,W-}) - {-# L #-} - g_aRq = - \ x_r3j :: PrelBase.Int{-3g,W-} - {-# L #-} - x_r3j y_r3k :: PrelBase.Int{-3g,W-} - {-# L #-} - y_r3k -> - let { ds_dXl :: taS9 - {-# L #-} - ds_dXl = - let { - ds_dXB :: (taS9, PrelBase.Int{-3g,W-}) - {-# L #-} - ds_dXB = - f_aRp x_r3j y_r3k - } in PrelTup.fst{-rgQ,p-} _@_ PrelBase.Int{-3g,W-} _@_ taS9 ds_dXB - } in - let { - ds_dXp :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dXp = - +_aTZ y_r3k lit_aU2 - } in - PrelTup.(,){-62,w-}{i} - {_@_ taS9 _@_ PrelBase.Int{-3g,W-} ds_dXl ds_dXp}; - } in - PrelTup.(,){-62,w-}{i} - {_@_ (PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> (taS9, PrelBase.Int{-3g,W-})) - _@_ (PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> (taS9, PrelBase.Int{-3g,W-})) - f_aRp - g_aRq} -f{-r3l,x-} :: _forall_ - [taS9] - => - PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> (taS9, PrelBase.Int{-3g,W-}) -{-# L #-} -f{-r3l,x-} = - _/\_ taS9 -> - case ds_dVA _@_ taS9 of { PrelTup.(,){-62,w-}{i} ds_dYl ds_dYm -> - ds_dYl;} -g{-r3g,x-} :: _forall_ - [taS9] - => - PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> (taS9, PrelBase.Int{-3g,W-}) -{-# L #-} -g{-r3g,x-} = - _/\_ taS9 -> - case ds_dVA _@_ taS9 of { PrelTup.(,){-62,w-}{i} ds_dYC ds_dYB -> - ds_dYB;} -d.Num_aSj :: {PrelBase.Num{-2c,p-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Num_aSj = - PrelBase.$d4{-ray,p-} -+_aU0 :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} -{-# L #-} -+_aU0 = - PrelBase.+{-r3m,p-} _@_ PrelBase.Int{-3g,W-} d.Num_aSj -lit_aU1 :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_aU1 = - PrelBase.I#{-5b,w-}{i} 1 -end Rec } - NOTE: Simplifier still going after 4 iterations; bailing out. diff --git a/ghc/tests/deSugar/should_compile/ds038.stderr b/ghc/tests/deSugar/should_compile/ds038.stderr index 05e67d5..b7355d7 100644 --- a/ghc/tests/deSugar/should_compile/ds038.stderr +++ b/ghc/tests/deSugar/should_compile/ds038.stderr @@ -1,131 +1,3 @@ ds038.hs:7: Warning: Possibly incomplete patterns in the definition of function `takeList' - - -================================================================================ -Desugared: -Rec { -takeList{-r3e,x-} :: _forall_ - [taCy] - => - PrelBase.Int{-3g,W-} -> [taCy] -> [taCy] -{-# L #-} -takeList{-r3e,x-} = - _/\_ taCy -> - _letrec_ { - lit_aHX :: PrelBase.Int{-3g,W-} - {-# L #-} - lit_aHX = - lit_aHZ; - >=_aI4 :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} - {-# L #-} - >=_aI4 = - >=_aI2; - -_aI5 :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - {-# L #-} - -_aI5 = - -_aI3; - takeList_aCs :: PrelBase.Int{-3g,W-} -> [taCy] -> [taCy] - {-# L #-} - takeList_aCs = - \ ds_dJb :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dJb ds_dJo :: [taCy] - {-# L #-} - ds_dJo -> - let { - fail_dJp :: [taCy] - {-# L #-} - fail_dJp = - GHCerr.patError{-8r,w-} - _@_ [taCy] _string_ "ds038.hs:7|function `takeList'" } in - let { - fail_dKA :: [taCy] - {-# L #-} - fail_dKA = - case - (\ ds_dJi :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dJi -> - >=_aI2 ds_dJi lit_aHZ) - ds_dJb - of { - PrelBase.True{-5E,w-}{i} -> - let { - n_r3h :: PrelBase.Int{-3g,W-} - {-# L #-} - n_r3h = - (\ ds_dJJ :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_dJJ -> - -_aI3 ds_dJJ lit_aHZ) - ds_dJb - } in - case ds_dJo of { - PrelBase.[]{-5i,w-}{i} -> PrelBase.[]{-5i,w-}{i} _@_ taCy; - PrelBase.:{-55,w-}{i} x_r3k xs_r3l -> - let { - n_r3j :: PrelBase.Int{-3g,W-} - {-# L #-} - n_r3j = - n_r3h } in - let { - ds_dKg :: [taCy] - {-# L #-} - ds_dKg = - takeList{-r3e,x-} _@_ taCy n_r3j xs_r3l - } in PrelBase.:{-55,w-}{i} _@_ taCy x_r3k ds_dKg; - }; - PrelBase.False{-58,w-}{i} -> fail_dJp; - } - } in - case ds_dJb of { PrelBase.I#{-5b,w-}{i} ds_dKJ -> - case# ds_dKJ of { - 0 -> PrelBase.[]{-5i,w-}{i} _@_ taCy; - ds_dKW -> fail_dKA; - };}; - } in takeList_aCs -lit_aI0 :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_aI0 = - PrelBase.I#{-5b,w-}{i} 0 -d.Eq_aD5 :: {PrelBase.Eq{-23,p-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Eq_aD5 = - PrelBase.$d8{-raT,p-} -==_aI1 :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} -{-# L #-} -==_aI1 = - PrelBase.=={-8Y,p-} _@_ PrelBase.Int{-3g,W-} d.Eq_aD5 -lit_aHZ :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_aHZ = - PrelBase.I#{-5b,w-}{i} 1 -d.Ord_aD8 :: {PrelBase.Ord{-2d,p-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Ord_aD8 = - PrelBase.$d7{-raS,p-} ->=_aI2 :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Bool{-34,W-} -{-# L #-} ->=_aI2 = - PrelBase.>={-8Z,p-} _@_ PrelBase.Int{-3g,W-} d.Ord_aD8 -d.Num_aDb :: {PrelBase.Num{-2c,p-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Num_aDb = - PrelBase.$d4{-raw,p-} --_aI3 :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} -{-# L #-} --_aI3 = - PrelBase.-{-817,p-} _@_ PrelBase.Int{-3g,W-} d.Num_aDb -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds039.stderr b/ghc/tests/deSugar/should_compile/ds039.stderr index fcc5f33..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds039.stderr +++ b/ghc/tests/deSugar/should_compile/ds039.stderr @@ -1,16 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -f{-r1,x-} :: _forall_ [tak6] => tak6 -> [tak6] -> [tak6] -{-# L #-} -f{-r1,x-} = - _/\_ tak6 -> - _letrec_ { - f_ak2 :: tak6 -> [tak6] -> [tak6] - {-# L #-} - f_ak2 = - PrelBase.:{-55,w-}{i} _@_ tak6; - } in f_ak2 -end Rec } diff --git a/ghc/tests/deSugar/should_compile/ds040.stderr b/ghc/tests/deSugar/should_compile/ds040.stderr index bee5ab6..e69de29 100644 --- a/ghc/tests/deSugar/should_compile/ds040.stderr +++ b/ghc/tests/deSugar/should_compile/ds040.stderr @@ -1,391 +0,0 @@ - - -================================================================================ -Desugared: -Rec { -^^^^{-r3g,x-} :: _forall_ - [taZJ taZG] - => - {PrelBase.Num{-2c,p-} taZG} - -> {PrelNum.Integral{-27,p-} taZJ} - -> taZG - -> taZJ - -> taZG -{-# L #-} -^^^^{-r3g,x-} = - _/\_ taZJ taZG -> \ d.Num_a11q :: {PrelBase.Num{-2c,p-} taZG} - {-# L #-} - d.Num_a11q d.Integral_a11r :: {PrelNum.Integral{-27,p-} taZJ} - {-# L #-} - d.Integral_a11r -> - _letrec_ { - d.Real_a11G :: {PrelNum.Real{-2f,p-} taZJ} - {-# L #-} - d.Real_a11G = - PrelNum.scsel_IntegralPrelNumReal{-a1eV,p-} - _@_ taZJ d.Integral_a11r; - d.Num_a11u :: {PrelBase.Num{-2c,p-} taZJ} - {-# L #-} - d.Num_a11u = - PrelNum.scsel_RealPrelBaseNum{-a1gK,p-} _@_ taZJ d.Real_a11G; - d.Ord_a11C :: {PrelBase.Ord{-2d,p-} taZJ} - {-# L #-} - d.Ord_a11C = - PrelNum.scsel_RealPrelBaseOrd{-a1gT,p-} _@_ taZJ d.Real_a11G; - d.Eq_a11w :: {PrelBase.Eq{-23,p-} taZJ} - {-# L #-} - d.Eq_a11w = - PrelBase.scsel_OrdPrelBaseEq{-a1h2,p-} _@_ taZJ d.Ord_a11C; - fromInt_a1eK :: PrelBase.Int{-3g,W-} -> taZJ - {-# L #-} - fromInt_a1eK = - PrelBase.fromInt{-8R,p-} _@_ taZJ d.Num_a11u; - lit_a1eL :: taZJ - {-# L #-} - lit_a1eL = - let { - ds_d1hh :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1hh = - PrelBase.I#{-5b,w-}{i} 0 - } in fromInt_a1eK ds_d1hh; - ==_a1eM :: taZJ -> taZJ -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1eM = - PrelBase.=={-8Y,p-} _@_ taZJ d.Eq_a11w; - d.Num_a11z :: {PrelBase.Num{-2c,p-} taZG} - {-# L #-} - d.Num_a11z = - d.Num_a11q; - fromInt_a1eN :: PrelBase.Int{-3g,W-} -> taZG - {-# L #-} - fromInt_a1eN = - PrelBase.fromInt{-8R,p-} _@_ taZG d.Num_a11z; - lit_a1eO :: taZG - {-# L #-} - lit_a1eO = - let { - ds_d1hM :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1hM = - PrelBase.I#{-5b,w-}{i} 1 - } in fromInt_a1eN ds_d1hM; - fromInt_a1eP :: PrelBase.Int{-3g,W-} -> taZJ - {-# L #-} - fromInt_a1eP = - fromInt_a1eK; - lit_a1eQ :: taZJ - {-# L #-} - lit_a1eQ = - let { - ds_d1i1 :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1i1 = - PrelBase.I#{-5b,w-}{i} 1 - } in fromInt_a1eP ds_d1i1; - >=_a1eR :: taZJ -> taZJ -> PrelBase.Bool{-34,W-} - {-# L #-} - >=_a1eR = - PrelBase.>={-8Z,p-} _@_ taZJ d.Ord_a11C; - d.Num_a11E :: {PrelBase.Num{-2c,p-} taZJ} - {-# L #-} - d.Num_a11E = - d.Num_a11u; - -_a1eS :: taZJ -> taZJ -> taZJ - {-# L #-} - -_a1eS = - PrelBase.-{-817,p-} _@_ taZJ d.Num_a11E; - d.Integral_a11h :: {PrelNum.Integral{-27,p-} taZJ} - {-# L #-} - d.Integral_a11h = - d.Integral_a11r; - d.Num_a11i :: {PrelBase.Num{-2c,p-} taZG} - {-# L #-} - d.Num_a11i = - d.Num_a11q; - ^^^^_aZD :: taZG -> taZJ -> taZG - {-# L #-} - ^^^^_aZD = - \ x_r3k :: taZG - {-# L #-} - x_r3k ds_d1iN :: taZJ - {-# L #-} - ds_d1iN -> - let { - fail_d1j0 :: taZG - {-# L #-} - fail_d1j0 = - IOBase.error{-87,w-} - _@_ taZG _string_ "(^^^^){Prelude}: negative exponent" } in - let { - fail_d1qc :: taZG - {-# L #-} - fail_d1qc = - case - (\ ds_d1iU :: taZJ - {-# L #-} - ds_d1iU -> - >=_a1eR ds_d1iU lit_a1eQ) - ds_d1iN - of { - PrelBase.True{-5E,w-}{i} -> - let { - n_r3n :: taZJ - {-# L #-} - n_r3n = - (\ ds_d1jp :: taZJ - {-# L #-} - ds_d1jp -> - -_a1eS ds_d1jp lit_a1eQ) - ds_d1iN } in - let { - x_r3m :: taZG - {-# L #-} - x_r3m = - x_r3k } in - _letrec_ { - f_r3p :: _forall_ - [ta10M ta10Q] - => - {PrelNum.Integral{-27,p-} ta10M} - -> {PrelBase.Num{-2c,p-} ta10Q} - -> ta10Q - -> ta10M - -> ta10Q - -> ta10Q - {-# L #-} - f_r3p = - _/\_ ta10M ta10Q -> \ d.Integral_a10Z :: {PrelNum.Integral{-27,p-} ta10M} - {-# L #-} - d.Integral_a10Z d.Num_a111 :: {PrelBase.Num{-2c,p-} ta10Q} - {-# L #-} - d.Num_a111 -> - _letrec_ { - d.Real_a119 :: {PrelNum.Real{-2f,p-} ta10M} - {-# L #-} - d.Real_a119 = - PrelNum.scsel_IntegralPrelNumReal{-a1eV,p-} - _@_ ta10M d.Integral_a10Z; - d.Num_a10V :: {PrelBase.Num{-2c,p-} ta10M} - {-# L #-} - d.Num_a10V = - PrelNum.scsel_RealPrelBaseNum{-a1gK,p-} - _@_ ta10M d.Real_a119; - d.Eq_a10X :: {PrelBase.Eq{-23,p-} ta10M} - {-# L #-} - d.Eq_a10X = - PrelBase.scsel_NumPrelBaseEq{-a1lq,p-} - _@_ ta10M d.Num_a10V; - fromInt_a1jV :: PrelBase.Int{-3g,W-} -> ta10M - {-# L #-} - fromInt_a1jV = - PrelBase.fromInt{-8R,p-} _@_ ta10M d.Num_a10V; - lit_a1jW :: ta10M - {-# L #-} - lit_a1jW = - let { - ds_d1lF :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1lF = - PrelBase.I#{-5b,w-}{i} 0 - } in fromInt_a1jV ds_d1lF; - ==_a1jX :: ta10M -> ta10M -> PrelBase.Bool{-34,W-} - {-# L #-} - ==_a1jX = - PrelBase.=={-8Y,p-} _@_ ta10M d.Eq_a10X; - even_a1jY :: ta10M -> PrelBase.Bool{-34,W-} - {-# L #-} - even_a1jY = - PrelNum.even{-ruE,p-} _@_ ta10M d.Integral_a10Z; - *_a1jZ :: ta10Q -> ta10Q -> ta10Q - {-# L #-} - *_a1jZ = - PrelBase.*{-ra3,p-} _@_ ta10Q d.Num_a111; - d.Integral_a113 :: {PrelNum.Integral{-27,p-} ta10M} - {-# L #-} - d.Integral_a113 = - d.Integral_a10Z; - quot_a1k0 :: ta10M -> ta10M -> ta10M - {-# L #-} - quot_a1k0 = - PrelNum.quot{-rh5,p-} _@_ ta10M d.Integral_a113; - fromInt_a1k1 :: PrelBase.Int{-3g,W-} -> ta10M - {-# L #-} - fromInt_a1k1 = - fromInt_a1jV; - lit_a1k2 :: ta10M - {-# L #-} - lit_a1k2 = - let { - ds_d1mr :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1mr = - PrelBase.I#{-5b,w-}{i} 2 - } in fromInt_a1k1 ds_d1mr; - d.Num_a116 :: {PrelBase.Num{-2c,p-} ta10M} - {-# L #-} - d.Num_a116 = - d.Num_a10V; - -_a1k3 :: ta10M -> ta10M -> ta10M - {-# L #-} - -_a1k3 = - PrelBase.-{-817,p-} _@_ ta10M d.Num_a116; - fromInt_a1k4 :: PrelBase.Int{-3g,W-} -> ta10M - {-# L #-} - fromInt_a1k4 = - fromInt_a1jV; - lit_a1k5 :: ta10M - {-# L #-} - lit_a1k5 = - let { - ds_d1mP :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1mP = - PrelBase.I#{-5b,w-}{i} 1 - } in fromInt_a1k4 ds_d1mP; - f_aZV :: ta10Q -> ta10M -> ta10Q -> ta10Q - {-# L #-} - f_aZV = - \ ds_d1n9 :: ta10Q - {-# L #-} - ds_d1n9 ds_d1n6 :: ta10M - {-# L #-} - ds_d1n6 y_r3r :: ta10Q - {-# L #-} - y_r3r -> - let { fail_d1pl :: ta10Q - {-# L #-} - fail_d1pl = - let { - y_r3v :: ta10Q - {-# L #-} - y_r3v = - y_r3r } in - let { - n_r3u :: ta10M - {-# L #-} - n_r3u = - ds_d1n6 } in - let { - x_r3t :: ta10Q - {-# L #-} - x_r3t = - ds_d1n9 } in - _letrec_ { - *_a1np :: ta10Q -> ta10Q -> ta10Q - {-# L #-} - *_a1np = - *_a1jZ; - g_a10m :: ta10Q -> ta10M -> ta10Q - {-# L #-} - g_a10m = - \ x_r3z :: ta10Q - {-# L #-} - x_r3z n_r3A :: ta10M - {-# L #-} - n_r3A -> - case even_a1jY n_r3A of { - PrelBase.True{-5E,w-}{i} -> - let { - ds_d1nU :: ta10M - {-# L #-} - ds_d1nU = - quot_a1k0 n_r3A lit_a1k2 - } in - (let { - ds_d1ob :: ta10Q - {-# L #-} - ds_d1ob = - *_a1jZ x_r3z x_r3z - } in g_a10m ds_d1ob) - ds_d1nU; - PrelBase.False{-58,w-}{i} -> - let { - ds_d1ow :: ta10Q - {-# L #-} - ds_d1ow = - *_a1np x_r3z y_r3v - } in - (let { - ds_d1oQ :: ta10M - {-# L #-} - ds_d1oQ = - -_a1k3 n_r3A lit_a1k5 - } in f_aZV x_r3z ds_d1oQ) - ds_d1ow; - }; - g_r3x :: ta10Q -> ta10M -> ta10Q - {-# L #-} - g_r3x = - g_a10m; - } in g_r3x x_r3t n_r3u - } in - case ==_a1jX lit_a1jW ds_d1n6 of { - PrelBase.True{-5E,w-}{i} -> y_r3r; - PrelBase.False{-58,w-}{i} -> fail_d1pl; - }; - } in f_aZV; - } in - let { - f_a1pD :: taZG -> taZJ -> taZG -> taZG - {-# L #-} - f_a1pD = - f_r3p _@_ taZJ _@_ taZG d.Integral_a11h d.Num_a11i - } in f_a1pD x_r3m n_r3n x_r3m; - PrelBase.False{-58,w-}{i} -> fail_d1j0; - } - } in - case ==_a1eM lit_a1eL ds_d1iN of { - PrelBase.True{-5E,w-}{i} -> lit_a1eO; - PrelBase.False{-58,w-}{i} -> fail_d1qc; - }; - } in ^^^^_aZD -^^^^_a1eG :: PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} - -> PrelBase.Int{-3g,W-} -{-# L #-} -^^^^_a1eG = - ^^^^{-r3g,x-} - _@_ PrelBase.Int{-3g,W-} - _@_ PrelBase.Int{-3g,W-} - d.Num_a127 - d.Integral_a128 -main_a11K :: IOBase.IO{-3e,p-} PrelBase.(){-40,W-} -{-# L #-} -main_a11K = - let { - ds_d1qH :: PrelBase.Int{-3g,W-} - {-# L #-} - ds_d1qH = - ^^^^_a1eG lit_a1eI lit_a1eJ - } in print_a1eH ds_d1qH -main{-814,x-} :: IOBase.IO{-3e,p-} PrelBase.(){-40,W-} -{-# L #-} -main{-814,x-} = - main_a11K -d.Show_a12a :: {PrelBase.Show{-2i,p-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Show_a12a = - PrelBase.$d3{-raC,p-} -print_a1eH :: PrelBase.Int{-3g,W-} - -> IOBase.IO{-3e,p-} PrelBase.(){-40,W-} -{-# L #-} -print_a1eH = - PrelIO.print{-rLi,p-} _@_ PrelBase.Int{-3g,W-} d.Show_a12a -d.Num_a127 :: {PrelBase.Num{-2c,p-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Num_a127 = - PrelBase.$d4{-raN,p-} -d.Integral_a128 :: {PrelNum.Integral{-27,p-} PrelBase.Int{-3g,W-}} -{-# L #-} -d.Integral_a128 = - PrelNum.$d36{-roC,p-} -lit_a1eI :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1eI = - PrelBase.I#{-5b,w-}{i} 4 -lit_a1eJ :: PrelBase.Int{-3g,W-} -{-# L #-} -lit_a1eJ = - PrelBase.I#{-5b,w-}{i} 6 -end Rec } diff --git a/ghc/tests/deSugar/should_run/Makefile b/ghc/tests/deSugar/should_run/Makefile index 41a6253..46c5287 100644 --- a/ghc/tests/deSugar/should_run/Makefile +++ b/ghc/tests/deSugar/should_run/Makefile @@ -1,21 +1,9 @@ -TOP = ../../../.. +TOP = ../.. include $(TOP)/mk/boilerplate.mk +include $(TOP)/mk/should_run.mk -HS_SRCS = $(wildcard *.hs) -BINS = $(patsubst %.o,%,$(HS_OBJS)) -RUNTESTS = $(patsubst %,%.run,$(BINS)) - -SRC_RUNTEST_OPTS += -o1 $*.stdout -o2 $*.stderr -x 0 HC_OPTS += -dcore-lint -all :: $(BINS) $(RUNTESTS) - -%.run : % - $(RUNTEST) $< $(RUNTEST_OPTS) - -% : %.o - $(HC) $(HC_OPTS) $< -o $@ - dsrun005_RUNTEST_OPTS = -x 1 include $(TOP)/mk/target.mk diff --git a/ghc/tests/deriving/should_compile/Makefile b/ghc/tests/deriving/should_compile/Makefile index 8a8af1e..bf5946f 100644 --- a/ghc/tests/deriving/should_compile/Makefile +++ b/ghc/tests/deriving/should_compile/Makefile @@ -2,6 +2,6 @@ TOP = ../.. include $(TOP)/mk/boilerplate.mk include $(TOP)/mk/should_compile.mk -HC_OPTS += -noC -dcore-lint -hi -ddump-tc +HC_OPTS += -noC -dcore-lint -hi include $(TOP)/mk/target.mk diff --git a/ghc/tests/deriving/should_compile/drv001.stderr b/ghc/tests/deriving/should_compile/drv001.stderr index 98dbd15..c16539d 100644 --- a/ghc/tests/deriving/should_compile/drv001.stderr +++ b/ghc/tests/deriving/should_compile/drv001.stderr @@ -1,261 +1,3 @@ - - -================================================================================ -Typechecked: -E1{-r3N,x-}{i} = _/\_ a_tr3A -> E1{-r3N,x-}{i} {_@_ a_tr3A} -D1{-rd,x-}{i} = _/\_ b_tr3C -> D1{-rd,x-}{i} {_@_ b_tr3C} -D2{-rc,x-}{i} = - _/\_ b_tr3C -> \ tpl_B1 -> D2{-rc,x-}{i} {_@_ b_tr3C tpl_B1} -C1{-r9,x-}{i} = - _/\_ a_tr3H b_tr3I -> \ tpl_B1 -> - C1{-r9,x-}{i} {_@_ a_tr3H _@_ b_tr3I tpl_B1} -C2{-r8,x-}{i} = - _/\_ a_tr3H b_tr3I -> \ tpl_B1 -> - C2{-r8,x-}{i} {_@_ a_tr3H _@_ b_tr3I tpl_B1} -C3{-rb,x-}{i} = - _/\_ a_tr3H b_tr3I -> \ tpl_B1 -> - C3{-rb,x-}{i} {_@_ a_tr3H _@_ b_tr3I tpl_B1} -AbsBinds [ta18z] [] [([ta18z], $d3{-r18X,x-}, d.Eval_aZt)] - d.Eval_aZt = ({-dict-} [] []) -AbsBinds [ta18A] [] [([ta18A], $d4{-r18Y,x-}, d.Eval_aZz)] - d.Eval_aZz = ({-dict-} [] []) -AbsBinds -[ta18B, ta18C] -[] -[([ta18B, ta18C], $d5{-r18Z,x-}, d.Eval_aZG)] - d.Eval_aZG = ({-dict-} [] []) -AbsBinds [ta100] [d.Eq_a11o] [([ta100], $d6{-r190,x-}, d.Read_aZM)] - d.Eq_a11G = PrelBase.$d8{-rbj,p-} - d.Eq_a11H = d.Eq_a11o - d.Read_a11E = - $d7{-r191,x-} [PrelBase.Int{-3g,W-}, ta100] [d.Eq_a11G, d.Eq_a11H] - readsPrec_a19o = - PrelRead.readsPrec{-rkH,p-} (X{-r3M,x-} PrelBase.Int{-3g,W-} ta100) - d.Read_a11E - readsPrec_a19p = readsPrec_a19q - AbsBinds [] [] [([], readsPrec_a19q, readsPrec_aZQ)] - ==_a19s = ==_a197 - >>=_a19t = >>=_a198 - return_a19u = return_a199 - zero_a19v = zero_a19a - readsPrec_aZQ a_rX0 b_rX1 - = ++_a196 (Y{-r3L,x-} ta100, PrelBase.String{-rfZ,p-}) - (PrelRead.readParen{-rkX,p-} - (Y{-r3L,x-} ta100) PrelBase.False{-58,w-}{i} - \ c_rX3 - -> [(D1{-rd,x-}{i} ta100, d_rX5) | - ("D1", d_rX5) <- PrelRead.lex{-rkK,p-} c_rX3] - b_rX1) - (PrelRead.readParen{-rkX,p-} (Y{-r3L,x-} ta100) a_rX0 - >_a19b lit_a19c - \ c_rX7 - -> [(D2{-rc,x-}{i} - ta100 a1_rXb, - b1_rXc) | - ("D2", d_rX9) <- PrelRead.lex{-rkK,p-} c_rX7, (a1_rXb, b1_rXc) <- readsPrec_a19o PrelBase.I#{-5b,w-}{i} 10# - d_rX9] - b_rX1) - AbsBinds [] [] [([], readList_a19r, readList_a11j)] - readList_a11j = PrelRead.readList__{-rhB,p-} - (Y{-r3L,x-} ta100) readsPrec_a19p PrelBase.I#{-5b,w-}{i} 0# - d.Read_aZM = ({-dict-} [] [readsPrec_a19q, readList_a19r]) -AbsBinds -[ta124, ta125] -[d.Eq_a14x, d.Eq_a14y] -[([ta124, ta125], $d7{-r191,x-}, d.Read_a11Q)] - d.Eq_a14K = d.Eq_a14x - d.Read_a14I = $d1{-r194,x-} ta124 d.Eq_a14K - readsPrec_a19w = - PrelRead.readsPrec{-rkH,p-} (T{-r3K,x-} ta124) d.Read_a14I - d.Eq_a14U = d.Eq_a14y - d.Read_a14S = $d6{-r190,x-} ta125 d.Eq_a14U - readsPrec_a19x = - PrelRead.readsPrec{-rkH,p-} (Y{-r3L,x-} ta125) d.Read_a14S - d.Eq_a14Y = d.Eq_a14y - d.Eq_a14Z = d.Eq_a14x - d.Read_a14W = $d7{-r191,x-} [ta125, ta124] [d.Eq_a14Y, d.Eq_a14Z] - readsPrec_a19y = - PrelRead.readsPrec{-rkH,p-} (X{-r3M,x-} ta125 ta124) d.Read_a14W - readsPrec_a19z = readsPrec_a19A - AbsBinds [] [] [([], readsPrec_a19A, readsPrec_a11U)] - ++_a19C = ++_a19d - >_a19D = >_a19e - lit_a19E = lit_a19f - ==_a19F = ==_a19g - >>=_a19G = >>=_a19h - return_a19H = return_a19i - zero_a19I = zero_a19j - >_a19J = >_a19e - lit_a19K = lit_a19f - ==_a19L = ==_a19g - >>=_a19M = >>=_a19h - return_a19N = return_a19i - zero_a19O = zero_a19j - readsPrec_a11U a_rXk b_rXl - = ++_a19d (X{-r3M,x-} ta124 ta125, PrelBase.String{-rfZ,p-}) - (PrelRead.readParen{-rkX,p-} (X{-r3M,x-} ta124 ta125) a_rXk - >_a19e lit_a19f - \ c_rXn - -> [(C1{-r9,x-}{i} - [ta124, ta125] a1_rXr, - b1_rXs) | - ("C1", d_rXp) <- PrelRead.lex{-rkK,p-} c_rXn, (a1_rXr, b1_rXs) <- readsPrec_a19w PrelBase.I#{-5b,w-}{i} 10# - d_rXp] - b_rXl) - (++_a19C (X{-r3M,x-} ta124 ta125, PrelBase.String{-rfZ,p-}) - (PrelRead.readParen{-rkX,p-} (X{-r3M,x-} ta124 ta125) a_rXk - >_a19D lit_a19E - \ c_rXu - -> [(C2{-r8,x-}{i} - [ta124, ta125] a1_rXy, - b1_rXz) | - ("C2", d_rXw) <- PrelRead.lex{-rkK,p-} c_rXu, (a1_rXy, b1_rXz) <- readsPrec_a19x PrelBase.I#{-5b,w-}{i} 10# - d_rXw] - b_rXl) - (PrelRead.readParen{-rkX,p-} (X{-r3M,x-} ta124 ta125) a_rXk - >_a19J lit_a19K - \ c_rXB - -> [(C3{-rb,x-}{i} - [ta124, ta125] a1_rXF, - b1_rXG) | - ("C3", d_rXD) <- PrelRead.lex{-rkK,p-} c_rXB, (a1_rXF, b1_rXG) <- readsPrec_a19y PrelBase.I#{-5b,w-}{i} 10# - d_rXD] - b_rXl)) - AbsBinds [] [] [([], readList_a19B, readList_a14s)] - readList_a14s = PrelRead.readList__{-rhB,p-} - (X{-r3M,x-} ta124 ta125) readsPrec_a19z PrelBase.I#{-5b,w-}{i} 0# - d.Read_a11Q = ({-dict-} [] [readsPrec_a19A, readList_a19B]) -AbsBinds -[ta15f] -[d.Eq_a15F] -[([ta15f], $d8{-r192,x-}, d.Show_a157)] - d.Eq_a15N = PrelBase.$d8{-rbj,p-} - d.Eq_a15O = d.Eq_a15F - d.Show_a15L = - $d9{-r193,x-} [PrelBase.Int{-3g,W-}, ta15f] [d.Eq_a15N, d.Eq_a15O] - showsPrec_a19P = - PrelBase.showsPrec{-rfW,p-} (X{-r3M,x-} PrelBase.Int{-3g,W-} ta15f) - d.Show_a15L - showsPrec_a19Q = showsPrec_a19R - AbsBinds [] [] [([], showsPrec_a19R, showsPrec_a15b)] - showsPrec_a15b a_rXO D1{-rd,x-}{i} - = PrelBase.showString{-rgN,p-} "D1" - showsPrec_a15b a_rXQ (D2{-rc,x-}{i} b1_rXR) - = PrelBase.showParen{-rgK,p-} a_rXQ >=_a19k lit_a19l - PrelBase..{-rfC,p-} - [PrelBase.String{-rfZ,p-}, PrelBase.String{-rfZ,p-}, PrelBase.String{-rfZ,p-}] PrelBase.showString{-rgN,p-} "D2 " - showsPrec_a19P PrelBase.I#{-5b,w-}{i} 10# - b1_rXR - AbsBinds [] [] [([], showList_a19S, showList_a15A)] - showList_a15A = PrelBase.showList__{-r3J,p-} - (Y{-r3L,x-} ta15f) showsPrec_a19Q PrelBase.I#{-5b,w-}{i} 0# - d.Show_a157 = ({-dict-} [] [showsPrec_a19R, showList_a19S]) -AbsBinds -[ta167, ta16a] -[d.Eq_a171, d.Eq_a172] -[([ta167, ta16a], $d9{-r193,x-}, d.Show_a15X)] - d.Eq_a17a = d.Eq_a171 - d.Show_a178 = $d2{-r195,x-} ta167 d.Eq_a17a - showsPrec_a19T = - PrelBase.showsPrec{-rfW,p-} (T{-r3K,x-} ta167) d.Show_a178 - d.Eq_a17e = d.Eq_a172 - d.Show_a17c = $d8{-r192,x-} ta16a d.Eq_a17e - showsPrec_a19U = - PrelBase.showsPrec{-rfW,p-} (Y{-r3L,x-} ta16a) d.Show_a17c - d.Eq_a17i = d.Eq_a172 - d.Eq_a17j = d.Eq_a171 - d.Show_a17g = $d9{-r193,x-} [ta16a, ta167] [d.Eq_a17i, d.Eq_a17j] - showsPrec_a19V = - PrelBase.showsPrec{-rfW,p-} (X{-r3M,x-} ta16a ta167) d.Show_a17g - showsPrec_a19W = showsPrec_a19X - AbsBinds [] [] [([], showsPrec_a19X, showsPrec_a161)] - >=_a19Z = >=_a19m - lit_a1a0 = lit_a19n - >=_a1a1 = >=_a19m - lit_a1a2 = lit_a19n - showsPrec_a161 a_rXZ (C1{-r9,x-}{i} b1_rY0) - = PrelBase.showParen{-rgK,p-} a_rXZ >=_a19m lit_a19n - PrelBase..{-rfC,p-} - [PrelBase.String{-rfZ,p-}, PrelBase.String{-rfZ,p-}, PrelBase.String{-rfZ,p-}] PrelBase.showString{-rgN,p-} "C1 " - showsPrec_a19T PrelBase.I#{-5b,w-}{i} 10# - b1_rY0 - showsPrec_a161 a_rY2 (C2{-r8,x-}{i} b1_rY3) - = PrelBase.showParen{-rgK,p-} a_rY2 >=_a19Z lit_a1a0 - PrelBase..{-rfC,p-} - [PrelBase.String{-rfZ,p-}, PrelBase.String{-rfZ,p-}, PrelBase.String{-rfZ,p-}] PrelBase.showString{-rgN,p-} "C2 " - showsPrec_a19U PrelBase.I#{-5b,w-}{i} 10# - b1_rY3 - showsPrec_a161 a_rY5 (C3{-rb,x-}{i} b1_rY6) - = PrelBase.showParen{-rgK,p-} a_rY5 >=_a1a1 lit_a1a2 - PrelBase..{-rfC,p-} - [PrelBase.String{-rfZ,p-}, PrelBase.String{-rfZ,p-}, PrelBase.String{-rfZ,p-}] PrelBase.showString{-rgN,p-} "C3 " - showsPrec_a19V PrelBase.I#{-5b,w-}{i} 10# - b1_rY6 - AbsBinds [] [] [([], showList_a19Y, showList_a16W)] - showList_a16W = PrelBase.showList__{-r3J,p-} - (X{-r3M,x-} ta167 ta16a) showsPrec_a19W PrelBase.I#{-5b,w-}{i} 0# - d.Show_a15X = ({-dict-} [] [showsPrec_a19X, showList_a19Y]) -AbsBinds -[ta17y] -[d.Eq_a17H] -[([ta17y], $d1{-r194,x-}, d.Read_a17r)] - d.Read_a17L = d.Read_a17r - $mreadList_a1a3 = - PrelRead.$mreadList{-rkF,p-} (T{-r3K,x-} ta17y) d.Read_a17L - AbsBinds [] [] [([], readsPrec_a1a4, readsPrec_a17v)] - readsPrec_a17v - = IOBase.error{-87,w-} - (PrelBase.Int{-3g,W-} - -> PrelBase.String{-rfZ,p-} - -> [(T{-r3K,x-} ta17y, PrelBase.String{-rfZ,p-})]) "read" - AbsBinds [] [] [([], readList_a1a5, readList_a17E)] - readList_a17E = $mreadList_a1a3 - d.Read_a17r = ({-dict-} [] [readsPrec_a1a4, readList_a1a5]) -AbsBinds -[ta17Z] -[d.Eq_a188] -[([ta17Z], $d2{-r195,x-}, d.Show_a17S)] - d.Show_a18c = d.Show_a17S - $mshowList_a1a6 = - PrelBase.$mshowList{-rfz,p-} (T{-r3K,x-} ta17Z) d.Show_a18c - AbsBinds [] [] [([], showsPrec_a1a7, showsPrec_a17W)] - showsPrec_a17W - = IOBase.error{-87,w-} - (PrelBase.Int{-3g,W-} - -> T{-r3K,x-} ta17Z - -> PrelBase.String{-rfZ,p-} - -> PrelBase.String{-rfZ,p-}) "show" - AbsBinds [] [] [([], showList_a1a8, showList_a185)] - showList_a185 = $mshowList_a1a6 - d.Show_a17S = ({-dict-} [] [showsPrec_a1a7, showList_a1a8]) -d.MonadPlus_a18f = PrelBase.$d23{-raE,p-} -++_a196 = PrelBase.++{-rfK,p-} PrelBase.[]{-3j,W-} d.MonadPlus_a18f -d.Eq_a18k = PrelBase.$d34{-raQ,p-} -d.Eq_a18i = PrelBase.$d28{-raJ,p-} PrelBase.Char{-38,W-} d.Eq_a18k -==_a197 = PrelBase.=={-8Y,p-} [PrelBase.Char{-38,W-}] d.Eq_a18i -d.Monad_a18n = PrelBase.$d25{-raG,p-} ->>=_a198 = PrelBase.>>={-811,p-} PrelBase.[]{-3j,W-} d.Monad_a18n -d.Monad_a18q = d.Monad_a18n -return_a199 = - PrelBase.return{-816,p-} PrelBase.[]{-3j,W-} d.Monad_a18q -d.MonadZero_a18s = PrelBase.$d24{-raF,p-} -zero_a19a = - PrelBase.zero{-810,p-} PrelBase.[]{-3j,W-} d.MonadZero_a18s -d.Ord_a18v = PrelBase.$d7{-rbi,p-} ->_a19b = PrelBase.>{-rfT,p-} PrelBase.Int{-3g,W-} d.Ord_a18v -lit_a19c = PrelBase.I#{-5b,w-}{i} 9# -++_a19d = ++_a196 ->_a19e = >_a19b -lit_a19f = lit_a19c -==_a19g = ==_a197 ->>=_a19h = >>=_a198 -return_a19i = return_a199 -zero_a19j = zero_a19a -d.Ord_a18y = d.Ord_a18v ->=_a19k = PrelBase.>={-8Z,p-} PrelBase.Int{-3g,W-} d.Ord_a18y -lit_a19l = PrelBase.I#{-5b,w-}{i} 10# ->=_a19m = >=_a19k -lit_a19n = lit_a19l ghc: module version changed to 1; reason: no old .hi file _interface_ ShouldSucceed 1 _instance_modules_ diff --git a/ghc/tests/deriving/should_compile/drv002.stderr b/ghc/tests/deriving/should_compile/drv002.stderr index 9668c0d..57fb93e 100644 --- a/ghc/tests/deriving/should_compile/drv002.stderr +++ b/ghc/tests/deriving/should_compile/drv002.stderr @@ -1,152 +1,3 @@ - - -================================================================================ -Typechecked: -E1{-r3D,x-}{i} = _/\_ a_tr3t -> E1{-r3D,x-}{i} {_@_ a_tr3t} -C1{-r6,x-}{i} = - _/\_ a_tr3v b_tr3w -> \ tpl_B1 -> - C1{-r6,x-}{i} {_@_ a_tr3v _@_ b_tr3w tpl_B1} -C2{-r5,x-}{i} = - _/\_ a_tr3v b_tr3w -> \ tpl_B1 -> - C2{-r5,x-}{i} {_@_ a_tr3v _@_ b_tr3w tpl_B1} -AbsBinds [ta13t] [] [([ta13t], $d3{-r13E,x-}, d.Eval_aYx)] - d.Eval_aYx = ({-dict-} [] []) -AbsBinds -[ta13u, ta13v] -[] -[([ta13u, ta13v], $d4{-r13F,x-}, d.Eval_aYE)] - d.Eval_aYE = ({-dict-} [] []) -AbsBinds -[taYZ, taZ0] -[d.Eq_a10G] -[([taYZ, taZ0], $d5{-r13G,x-}, d.Read_aYL)] - d.Eq_a10S = d.Eq_a10G - d.Read_a10Q = $d1{-r13I,x-} taYZ d.Eq_a10S - readsPrec_a13T = - PrelRead.readsPrec{-r6M,p-} (T{-r3B,x-} taYZ) d.Read_a10Q - d.Eq_a114 = d.Eq_a10G - d.Eq_a112 = PrelBase.$d28{-re2,p-} taYZ d.Eq_a114 - d.Read_a110 = $d5{-r13G,x-} [[taYZ], [taZ0]] d.Eq_a112 - readsPrec_a13U = - PrelRead.readsPrec{-r6M,p-} (Z{-r3C,x-} [taYZ] [taZ0]) d.Read_a110 - readsPrec_a13V = readsPrec_a13W - AbsBinds [] [] [([], readsPrec_a13W, readsPrec_aYP)] - >_a13Y = >_a13L - lit_a13Z = lit_a13M - ==_a140 = ==_a13N - >>=_a141 = >>=_a13O - return_a142 = return_a13P - zero_a143 = zero_a13Q - readsPrec_aYP a_rWJ b_rWK - = ++_a13K (Z{-r3C,x-} taYZ taZ0, PrelBase.String{-r79,p-}) - (PrelRead.readParen{-r72,p-} (Z{-r3C,x-} taYZ taZ0) a_rWJ - >_a13L lit_a13M - \ c_rWM - -> [(C1{-r6,x-}{i} - [taYZ, taZ0] a1_rWQ, - b1_rWR) | - ("C1", d_rWO) <- PrelRead.lex{-r6P,p-} c_rWM, (a1_rWQ, b1_rWR) <- readsPrec_a13T PrelBase.I#{-5b,w-}{i} 10# - d_rWO] - b_rWK) - (PrelRead.readParen{-r72,p-} (Z{-r3C,x-} taYZ taZ0) a_rWJ - >_a13Y lit_a13Z - \ c_rWT - -> [(C2{-r5,x-}{i} - [taYZ, taZ0] a1_rWX, - b1_rWY) | - ("C2", d_rWV) <- PrelRead.lex{-r6P,p-} c_rWT, (a1_rWX, b1_rWY) <- readsPrec_a13U PrelBase.I#{-5b,w-}{i} 10# - d_rWV] - b_rWK) - AbsBinds [] [] [([], readList_a13X, readList_a10B)] - readList_a10B = PrelRead.readList__{-r3A,p-} - (Z{-r3C,x-} taYZ taZ0) readsPrec_a13V PrelBase.I#{-5b,w-}{i} 0# - d.Read_aYL = ({-dict-} [] [readsPrec_a13W, readList_a13X]) -AbsBinds -[ta11m, ta11p] -[d.Eq_a120] -[([ta11m, ta11p], $d6{-r13H,x-}, d.Show_a11c)] - d.Eq_a128 = d.Eq_a120 - d.Show_a126 = $d2{-r13J,x-} ta11m d.Eq_a128 - showsPrec_a144 = - PrelBase.showsPrec{-rjf,p-} (T{-r3B,x-} ta11m) d.Show_a126 - d.Eq_a12e = d.Eq_a120 - d.Eq_a12c = PrelBase.$d28{-re2,p-} ta11m d.Eq_a12e - d.Show_a12a = $d6{-r13H,x-} [[ta11m], [ta11p]] d.Eq_a12c - showsPrec_a145 = - PrelBase.showsPrec{-rjf,p-} (Z{-r3C,x-} [ta11m] [ta11p]) - d.Show_a12a - showsPrec_a146 = showsPrec_a147 - AbsBinds [] [] [([], showsPrec_a147, showsPrec_a11g)] - >=_a149 = >=_a13R - lit_a14a = lit_a13S - showsPrec_a11g a_rX6 (C1{-r6,x-}{i} b1_rX7) - = PrelBase.showParen{-rk3,p-} a_rX6 >=_a13R lit_a13S - PrelBase..{-riV,p-} - [PrelBase.String{-r79,p-}, PrelBase.String{-r79,p-}, PrelBase.String{-r79,p-}] PrelBase.showString{-rk6,p-} "C1 " - showsPrec_a144 PrelBase.I#{-5b,w-}{i} 10# - b1_rX7 - showsPrec_a11g a_rX9 (C2{-r5,x-}{i} b1_rXa) - = PrelBase.showParen{-rk3,p-} a_rX9 >=_a149 lit_a14a - PrelBase..{-riV,p-} - [PrelBase.String{-r79,p-}, PrelBase.String{-r79,p-}, PrelBase.String{-r79,p-}] PrelBase.showString{-rk6,p-} "C2 " - showsPrec_a145 PrelBase.I#{-5b,w-}{i} 10# - b1_rXa - AbsBinds [] [] [([], showList_a148, showList_a11V)] - showList_a11V = PrelBase.showList__{-rk1,p-} - (Z{-r3C,x-} ta11m ta11p) showsPrec_a146 PrelBase.I#{-5b,w-}{i} 0# - d.Show_a11c = ({-dict-} [] [showsPrec_a147, showList_a148]) -AbsBinds -[ta12s] -[d.Eq_a12B] -[([ta12s], $d1{-r13I,x-}, d.Read_a12l)] - d.Read_a12F = d.Read_a12l - $mreadList_a14b = - PrelRead.$mreadList{-r6K,p-} (T{-r3B,x-} ta12s) d.Read_a12F - AbsBinds [] [] [([], readsPrec_a14c, readsPrec_a12p)] - readsPrec_a12p - = IOBase.error{-87,w-} - (PrelBase.Int{-3g,W-} - -> PrelBase.String{-r79,p-} - -> [(T{-r3B,x-} ta12s, PrelBase.String{-r79,p-})]) "read" - AbsBinds [] [] [([], readList_a14d, readList_a12y)] - readList_a12y = $mreadList_a14b - d.Read_a12l = ({-dict-} [] [readsPrec_a14c, readList_a14d]) -AbsBinds -[ta12T] -[d.Eq_a132] -[([ta12T], $d2{-r13J,x-}, d.Show_a12M)] - d.Show_a136 = d.Show_a12M - $mshowList_a14e = - PrelBase.$mshowList{-riS,p-} (T{-r3B,x-} ta12T) d.Show_a136 - AbsBinds [] [] [([], showsPrec_a14f, showsPrec_a12Q)] - showsPrec_a12Q - = IOBase.error{-87,w-} - (PrelBase.Int{-3g,W-} - -> T{-r3B,x-} ta12T - -> PrelBase.String{-r79,p-} - -> PrelBase.String{-r79,p-}) "show" - AbsBinds [] [] [([], showList_a14g, showList_a12Z)] - showList_a12Z = $mshowList_a14e - d.Show_a12M = ({-dict-} [] [showsPrec_a14f, showList_a14g]) -d.MonadPlus_a139 = PrelBase.$d23{-rdX,p-} -++_a13K = PrelBase.++{-rj3,p-} PrelBase.[]{-3j,W-} d.MonadPlus_a139 -d.Ord_a13c = PrelBase.$d7{-reB,p-} ->_a13L = PrelBase.>{-rjc,p-} PrelBase.Int{-3g,W-} d.Ord_a13c -lit_a13M = PrelBase.I#{-5b,w-}{i} 9# -d.Eq_a13h = PrelBase.$d34{-re9,p-} -d.Eq_a13f = PrelBase.$d28{-re2,p-} PrelBase.Char{-38,W-} d.Eq_a13h -==_a13N = PrelBase.=={-8Y,p-} [PrelBase.Char{-38,W-}] d.Eq_a13f -d.Monad_a13k = PrelBase.$d25{-rdZ,p-} ->>=_a13O = PrelBase.>>={-811,p-} PrelBase.[]{-3j,W-} d.Monad_a13k -d.Monad_a13n = d.Monad_a13k -return_a13P = - PrelBase.return{-816,p-} PrelBase.[]{-3j,W-} d.Monad_a13n -d.MonadZero_a13p = PrelBase.$d24{-rdY,p-} -zero_a13Q = - PrelBase.zero{-810,p-} PrelBase.[]{-3j,W-} d.MonadZero_a13p -d.Ord_a13s = d.Ord_a13c ->=_a13R = PrelBase.>={-8Z,p-} PrelBase.Int{-3g,W-} d.Ord_a13s -lit_a13S = PrelBase.I#{-5b,w-}{i} 10# ghc: module version changed to 1; reason: no old .hi file _interface_ ShouldSucceed 1 _instance_modules_ diff --git a/ghc/tests/deriving/should_compile/drv003.stderr b/ghc/tests/deriving/should_compile/drv003.stderr index fac639a..80eb5de 100644 --- a/ghc/tests/deriving/should_compile/drv003.stderr +++ b/ghc/tests/deriving/should_compile/drv003.stderr @@ -4,98 +4,6 @@ drv003.hs:15: No explicit method nor default method for `PrelBase.==' drv003.hs:12: No explicit method nor default method for `PrelBase.==' in an instance declaration for `PrelBase.Eq' - - -================================================================================ -Typechecked: -MkBar{-r3I,x-}{i} = - _/\_ a_tr3u -> \ tpl_B1 tpl_B2 -> - MkBar{-r3I,x-}{i} {_@_ a_tr3u tpl_B1 tpl_B2} -MkFoo{-r3H,x-}{i} = - _/\_ a_tr3z -> \ tpl_B1 tpl_B2 -> - MkFoo{-r3H,x-}{i} {_@_ a_tr3z tpl_B1 tpl_B2} -C1{-r9,x-}{i} = - _/\_ a_tr3B b_tr3C -> \ tpl_B1 tpl_B2 -> - C1{-r9,x-}{i} {_@_ a_tr3B _@_ b_tr3C tpl_B1 tpl_B2} -C2{-r8,x-}{i} = - _/\_ a_tr3B b_tr3C -> \ tpl_B1 tpl_B2 -> - C2{-r8,x-}{i} {_@_ a_tr3B _@_ b_tr3C tpl_B1 tpl_B2} -C3{-rb,x-}{i} = - _/\_ a_tr3B b_tr3C -> \ tpl_B1 -> - C3{-rb,x-}{i} {_@_ a_tr3B _@_ b_tr3C tpl_B1} -AbsBinds -[taCu, taCv] -[d.Eq_aDz, d.Ping_aDA, d.Eq_aDB, d.Ping_aDC] -[([taCu, taCv], $d3{-rFu,x-}, d.Eq_aCh)] - d.Eq_aDI = d.Eq_aDz - d.Eq_aDG = $d2{-rFC,x-} taCu d.Eq_aDI - ==_aFE = PrelBase.=={-8Y,p-} (Foo{-r3F,x-} taCu) d.Eq_aDG - d.Ping_aDM = d.Ping_aDC - d.Eq_aDK = $d1{-rFB,x-} taCv d.Ping_aDM - ==_aFF = PrelBase.=={-8Y,p-} (Bar{-r3E,x-} taCv) d.Eq_aDK - d.Eq_aDS = d.Eq_aDB - d.Ping_aDT = d.Ping_aDC - d.Eq_aDU = d.Eq_aDz - d.Ping_aDV = d.Ping_aDA - d.Eq_aDQ = - $d3{-rFu,x-} [taCv, taCu] - [d.Eq_aDS, d.Ping_aDT, d.Eq_aDU, d.Ping_aDV] - ==_aFG = PrelBase.=={-8Y,p-} (T{-r3G,x-} taCv taCu) d.Eq_aDQ - d.Eq_aDZ = d.Eq_aDz - d.Ping_aE0 = d.Ping_aDA - d.Eq_aE1 = d.Eq_aDz - d.Ping_aE2 = d.Ping_aDA - d.Eq_aDX = - $d3{-rFu,x-} [taCu, taCu] - [d.Eq_aDZ, d.Ping_aE0, d.Eq_aE1, d.Ping_aE2] - ==_aFH = PrelBase.=={-8Y,p-} (T{-r3G,x-} taCu taCu) d.Eq_aDX - ==_aFI = ==_aFJ - AbsBinds [] [] [([], ==_aFJ, ==_aCl)] - ==_aCl (C1{-r9,x-}{i} a1_rBE a2_rBF) (C1{-r9,x-}{i} b1_rBG b2_rBH) - = (a1_rBE ==_aFE b1_rBG) - PrelBase.&&{-rfy,p-} (a2_rBF ==_aFF b2_rBH) - ==_aCl (C2{-r8,x-}{i} a1_rBJ a2_rBK) (C2{-r8,x-}{i} b1_rBL b2_rBM) - = (a1_rBJ ==_aFD b1_rBL) - PrelBase.&&{-rfy,p-} (a2_rBK ==_aFG b2_rBM) - ==_aCl (C3{-rb,x-}{i} a1_rBO) (C3{-rb,x-}{i} b1_rBP) - = a1_rBO ==_aFH b1_rBP - ==_aCl a_rBR b_rBS = PrelBase.False{-58,w-}{i} - AbsBinds [] [] [([], /=_aFK, /=_aDs)] - /=_aDs a_rBW b_rBX = PrelBase.not{-r3D,p-} ==_aFI a_rBW b_rBX - d.Eq_aCh = ({-dict-} [] [==_aFJ, /=_aFK]) -AbsBinds [taFp] [] [([taFp], $d4{-rFw,x-}, d.Eval_aEc)] - d.Eval_aEc = ({-dict-} [] []) -AbsBinds [taFq] [] [([taFq], $d5{-rFy,x-}, d.Eval_aEi)] - d.Eval_aEi = ({-dict-} [] []) -AbsBinds [taFr, taFs] [] [([taFr, taFs], $d6{-rFA,x-}, d.Eval_aEp)] - d.Eval_aEp = ({-dict-} [] []) -AbsBinds [taED] [d.Ping_aEM] [([taED], $d1{-rFB,x-}, d.Eq_aEv)] - d.Eq_aEQ = d.Eq_aEv - $m/=_aFL = PrelBase.$m/={-rfk,p-} (Bar{-r3E,x-} taED) d.Eq_aEQ - AbsBinds [] [] [([], ==_aFM, ==_aEA)] - ==_aEA - = GHCerr.noDefaultMethodError{-8k,w-} - (Bar{-r3E,x-} taED - -> Bar{-r3E,x-} taED - -> PrelBase.Bool{-34,W-}) "|PrelBase.==" - AbsBinds [] [] [([], /=_aFN, /=_aEJ)] - /=_aEJ = $m/=_aFL - d.Eq_aEv = ({-dict-} [] [==_aFM, /=_aFN]) -AbsBinds [taF5] [d.Eq_aFe] [([taF5], $d2{-rFC,x-}, d.Eq_aEX)] - d.Eq_aFi = d.Eq_aEX - $m/=_aFO = PrelBase.$m/={-rfk,p-} (Foo{-r3F,x-} taF5) d.Eq_aFi - AbsBinds [] [] [([], ==_aFP, ==_aF2)] - ==_aF2 - = GHCerr.noDefaultMethodError{-8k,w-} - (Foo{-r3F,x-} taF5 - -> Foo{-r3F,x-} taF5 - -> PrelBase.Bool{-34,W-}) "|PrelBase.==" - AbsBinds [] [] [([], /=_aFQ, /=_aFb)] - /=_aFb = $m/=_aFO - d.Eq_aEX = ({-dict-} [] [==_aFP, /=_aFQ]) -AbsBinds [taFt] [d.Ping_aFm] [] -d.Eq_aFo = PrelBase.$d8{-rbg,p-} -==_aFD = PrelBase.=={-8Y,p-} PrelBase.Int{-3g,W-} d.Eq_aFo ghc: module version changed to 1; reason: no old .hi file _interface_ ShouldSucceed 1 _instance_modules_ diff --git a/ghc/tests/deriving/should_compile/drv004.stderr b/ghc/tests/deriving/should_compile/drv004.stderr index c92e43a..4c2be3e 100644 --- a/ghc/tests/deriving/should_compile/drv004.stderr +++ b/ghc/tests/deriving/should_compile/drv004.stderr @@ -1,188 +1,3 @@ - - -================================================================================ -Typechecked: -C1{-r4,x-}{i} = - _/\_ a_tr3j b_tr3k c_tr3l -> \ tpl_B1 tpl_B2 -> - C1{-r4,x-}{i} {_@_ a_tr3j _@_ b_tr3k _@_ c_tr3l tpl_B1 tpl_B2} -C2{-r3,x-}{i} = - _/\_ a_tr3j b_tr3k c_tr3l -> \ tpl_B1 tpl_B2 -> - C2{-r3,x-}{i} {_@_ a_tr3j _@_ b_tr3k _@_ c_tr3l tpl_B1 tpl_B2} -C3{-r6,x-}{i} = - _/\_ a_tr3j b_tr3k c_tr3l -> \ tpl_B1 tpl_B2 -> - C3{-r6,x-}{i} {_@_ a_tr3j _@_ b_tr3k _@_ c_tr3l tpl_B1 tpl_B2} -AbsBinds -[taEz, taEB, taEC] -[] -[([taEz, taEB, taEC], con2tag_Foo#_rBK, con2tag_Foo#_aE7)] - con2tag_Foo#_aE7 (C1{-r4,x-}{i} _ _) = 0# - con2tag_Foo#_aE7 (C2{-r3,x-}{i} _ _) = 1# - con2tag_Foo#_aE7 (C3{-r6,x-}{i} _ _) = 2# -AbsBinds -[taEU, taEX, taF0] -[d.Eq_aGk, d.Eq_aGl, d.Eq_aGm] -[([taEU, taEX, taF0], $d1{-rLl,x-}, d.Eq_aEK)] - d.Eq_aGq = d.Eq_aGk - ==_aLu = PrelBase.=={-8Y,p-} taEU d.Eq_aGq - d.Eq_aGu = d.Eq_aGl - ==_aLv = PrelBase.=={-8Y,p-} taEX d.Eq_aGu - d.Eq_aGy = d.Eq_aGm - ==_aLw = PrelBase.=={-8Y,p-} taF0 d.Eq_aGy - ==_aLx = ==_aLy - AbsBinds [] [] [([], ==_aLy, ==_aEO)] - ==_aEO (C1{-r4,x-}{i} a1_rBS a2_rBT) (C1{-r4,x-}{i} b1_rBU b2_rBV) - = (a1_rBS ==_aLu b1_rBU) - PrelBase.&&{-rfc,p-} (a2_rBT ==_aLo b2_rBV) - ==_aEO (C2{-r3,x-}{i} a1_rBX a2_rBY) (C2{-r3,x-}{i} b1_rBZ b2_rC0) - = (a1_rBX ==_aLv b1_rBZ) - PrelBase.&&{-rfc,p-} (a2_rBY ==_aLp b2_rC0) - ==_aEO (C3{-r6,x-}{i} a1_rC2 a2_rC3) (C3{-r6,x-}{i} b1_rC4 b2_rC5) - = (a1_rC2 ==_aLw b1_rC4) - PrelBase.&&{-rfc,p-} (a2_rC3 ==_aLq b2_rC5) - ==_aEO a_rC7 b_rC8 = PrelBase.False{-58,w-}{i} - AbsBinds [] [] [([], /=_aLz, /=_aGd)] - /=_aGd a_rCc b_rCd = PrelBase.not{-rga,p-} ==_aLx a_rCc b_rCd - d.Eq_aEK = ({-dict-} [] [==_aLy, /=_aLz]) -AbsBinds -[taLi, taLj, taLk] -[] -[([taLi, taLj, taLk], $d2{-rLm,x-}, d.Eval_aGL)] - d.Eval_aGL = ({-dict-} [] []) -AbsBinds -[taH0, taH1, taH2] -[d.Ord_aKA, d.Ord_aKB, d.Ord_aKC, d.Eq_aKD] -[([taH0, taH1, taH2], $d3{-rLn,x-}, d.Ord_aGT)] - d.Eq_aKz = d.Eq_aKD - d.Ord_aJb = d.Ord_aKA - d.Ord_aJc = d.Ord_aKB - d.Ord_aJd = d.Ord_aKC - compare_aLA = compare_aLG - compare_aLB = compare_aLG - compare_aLC = compare_aLG - compare_aLD = compare_aLG - compare_aLE = compare_aLG - compare_aLF = compare_aLG - AbsBinds [] [] [([], compare_aLG, compare_aGX)] - compare_aGX a_rD5 b_rD6 - = case con2tag_Foo#_rBK [taH2, taH0, taH1] a_rD5 of - a#_rDI - -> case con2tag_Foo#_rBK [taH2, taH0, taH1] b_rD6 of - b#_rDK - -> if a#_rDI GHC.==#{-79,w-}{I} b#_rDK then - case cmp_eq_aLN a_rD5 b_rD6 of - PrelBase.LT{-r9P,p-}{i} -> PrelBase.LT{-r9P,p-}{i} - PrelBase.EQ{-r3m,p-}{i} -> PrelBase.EQ{-r3m,p-}{i} - PrelBase.GT{-r9Q,p-}{i} -> PrelBase.GT{-r9Q,p-}{i} - else - if a#_rDI GHC.<#{-7b,w-}{I} b#_rDK then - PrelBase.LT{-r9P,p-}{i} - else - PrelBase.GT{-r9Q,p-}{i} - where - {- nonrec -} - AbsBinds - [taIi, taIj, taIm] - [d.Ord_aIx, d.Ord_aIB, d.Ord_aIF] - [([taIi, taIj, taIm], cmp_eq_rD8, cmp_eq_aH6)] - compare_aLO = PrelBase.compare{-rfr,p-} taIi d.Ord_aIx - compare_aLP = PrelBase.compare{-rfr,p-} taIj d.Ord_aIB - compare_aLQ = PrelBase.compare{-rfr,p-} taIm d.Ord_aIF - cmp_eq_aH6 (C1{-r4,x-}{i} a1_rDa a2_rDb) - (C1{-r4,x-}{i} b1_rDc b2_rDd) - = case compare_aLO a1_rDa b1_rDc of - PrelBase.LT{-r9P,p-}{i} -> PrelBase.LT{-r9P,p-}{i} - PrelBase.EQ{-r3m,p-}{i} - -> case compare_aLr a2_rDb b2_rDd of - PrelBase.LT{-r9P,p-}{i} -> PrelBase.LT{-r9P,p-}{i} - PrelBase.EQ{-r3m,p-}{i} -> PrelBase.EQ{-r3m,p-}{i} - PrelBase.GT{-r9Q,p-}{i} -> PrelBase.GT{-r9Q,p-}{i} - PrelBase.GT{-r9Q,p-}{i} -> PrelBase.GT{-r9Q,p-}{i} - cmp_eq_aH6 (C2{-r3,x-}{i} a1_rDl a2_rDm) - (C2{-r3,x-}{i} b1_rDn b2_rDo) - = case compare_aLP a1_rDl b1_rDn of - PrelBase.LT{-r9P,p-}{i} -> PrelBase.LT{-r9P,p-}{i} - PrelBase.EQ{-r3m,p-}{i} - -> case compare_aLs a2_rDm b2_rDo of - PrelBase.LT{-r9P,p-}{i} -> PrelBase.LT{-r9P,p-}{i} - PrelBase.EQ{-r3m,p-}{i} -> PrelBase.EQ{-r3m,p-}{i} - PrelBase.GT{-r9Q,p-}{i} -> PrelBase.GT{-r9Q,p-}{i} - PrelBase.GT{-r9Q,p-}{i} -> PrelBase.GT{-r9Q,p-}{i} - cmp_eq_aH6 (C3{-r6,x-}{i} a1_rDw a2_rDx) - (C3{-r6,x-}{i} b1_rDy b2_rDz) - = case compare_aLQ a1_rDw b1_rDy of - PrelBase.LT{-r9P,p-}{i} -> PrelBase.LT{-r9P,p-}{i} - PrelBase.EQ{-r3m,p-}{i} - -> case compare_aLt a2_rDx b2_rDz of - PrelBase.LT{-r9P,p-}{i} -> PrelBase.LT{-r9P,p-}{i} - PrelBase.EQ{-r3m,p-}{i} -> PrelBase.EQ{-r3m,p-}{i} - PrelBase.GT{-r9Q,p-}{i} -> PrelBase.GT{-r9Q,p-}{i} - PrelBase.GT{-r9Q,p-}{i} -> PrelBase.GT{-r9Q,p-}{i} - cmp_eq_aH6 _ _ - = IOBase.error{-87,w-} - PrelBase.Ordering{-3o,p-} "Urk! in TcGenDeriv" - {- nonrec -} - cmp_eq_aLN = - cmp_eq_rD8 [taH0, taH1, taH2] [d.Ord_aJb, d.Ord_aJc, d.Ord_aJd] - {- nonrec -} - AbsBinds [] [] [([], <_aLH, <_aJo)] - <_aJo a_rCj b_rCk - = case compare_aLA a_rCj b_rCk of - PrelBase.LT{-r9P,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.EQ{-r3m,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.GT{-r9Q,p-}{i} -> PrelBase.False{-58,w-}{i} - AbsBinds [] [] [([], <=_aLI, <=_aJB)] - <=_aJB a_rCr b_rCs - = case compare_aLB a_rCr b_rCs of - PrelBase.LT{-r9P,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.EQ{-r3m,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.GT{-r9Q,p-}{i} -> PrelBase.False{-58,w-}{i} - AbsBinds [] [] [([], >=_aLJ, >=_aJO)] - >=_aJO a_rCz b_rCA - = case compare_aLC a_rCz b_rCA of - PrelBase.LT{-r9P,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.EQ{-r3m,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.GT{-r9Q,p-}{i} -> PrelBase.True{-5E,w-}{i} - AbsBinds [] [] [([], >_aLK, >_aK1)] - >_aK1 a_rCH b_rCI - = case compare_aLD a_rCH b_rCI of - PrelBase.LT{-r9P,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.EQ{-r3m,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.GT{-r9Q,p-}{i} -> PrelBase.True{-5E,w-}{i} - AbsBinds [] [] [([], max_aLL, max_aKe)] - max_aKe a_rCP b_rCQ - = case compare_aLE a_rCP b_rCQ of - PrelBase.LT{-r9P,p-}{i} -> b_rCQ - PrelBase.EQ{-r3m,p-}{i} -> a_rCP - PrelBase.GT{-r9Q,p-}{i} -> a_rCP - AbsBinds [] [] [([], min_aLM, min_aKr)] - min_aKr a_rCX b_rCY - = case compare_aLF a_rCX b_rCY of - PrelBase.LT{-r9P,p-}{i} -> a_rCX - PrelBase.EQ{-r3m,p-}{i} -> b_rCY - PrelBase.GT{-r9Q,p-}{i} -> b_rCY - d.Ord_aGT = - ({-dict-} - [d.Eq_aKz] - [compare_aLG, <_aLH, <=_aLI, >=_aLJ, >_aLK, max_aLL, min_aLM]) -d.Eq_aKX = PrelBase.$d8{-raU,p-} -==_aLo = PrelBase.=={-8Y,p-} PrelBase.Int{-3g,W-} d.Eq_aKX -d.Eq_aL0 = PrelNum.$d18{-rtI,p-} -==_aLp = PrelBase.=={-8Y,p-} PrelBase.Double{-3a,W-} d.Eq_aL0 -d.Eq_aL5 = PrelBase.$d34{-rar,p-} -d.Eq_aL3 = PrelBase.$d28{-rak,p-} PrelBase.Char{-38,W-} d.Eq_aL5 -==_aLq = PrelBase.=={-8Y,p-} PrelBase.String{-rfA,p-} d.Eq_aL3 -d.Ord_aL8 = PrelBase.$d7{-raT,p-} -compare_aLr = - PrelBase.compare{-rfr,p-} PrelBase.Int{-3g,W-} d.Ord_aL8 -d.Ord_aLb = PrelNum.$d17{-rtH,p-} -compare_aLs = - PrelBase.compare{-rfr,p-} PrelBase.Double{-3a,W-} d.Ord_aLb -d.Ord_aLg = PrelBase.$d51{-raK,p-} -d.Eq_aLh = d.Eq_aL3 -d.Ord_aLe = - PrelBase.$d27{-raj,p-} PrelBase.Char{-38,W-} [d.Ord_aLg, d.Eq_aLh] -compare_aLt = - PrelBase.compare{-rfr,p-} PrelBase.String{-rfA,p-} d.Ord_aLe ghc: module version changed to 1; reason: no old .hi file _interface_ ShouldSucceed 1 _instance_modules_ diff --git a/ghc/tests/deriving/should_compile/drv005.stderr b/ghc/tests/deriving/should_compile/drv005.stderr index 08f43c3..4bc65f5 100644 --- a/ghc/tests/deriving/should_compile/drv005.stderr +++ b/ghc/tests/deriving/should_compile/drv005.stderr @@ -1,86 +1,3 @@ - - -================================================================================ -Typechecked: -Foo1{-r4,x-}{i} = Foo1{-r4,x-}{i} {} -Foo2{-r3,x-}{i} = Foo2{-r3,x-}{i} {} -Foo3{-r6,x-}{i} = Foo3{-r6,x-}{i} {} -Foo4{-r8,x-}{i} = Foo4{-r8,x-}{i} {} -Foo5{-ra,x-}{i} = Foo5{-ra,x-}{i} {} -Foo6{-rc,x-}{i} = Foo6{-rc,x-}{i} {} -Foo7{-re,x-}{i} = Foo7{-re,x-}{i} {} -Foo8{-rg,x-}{i} = Foo8{-rg,x-}{i} {} -AbsBinds [] [] [([], con2tag_Foo#_rBo, con2tag_Foo#_aCh)] - con2tag_Foo#_aCh Foo1{-r4,x-}{i} = 0# - con2tag_Foo#_aCh Foo2{-r3,x-}{i} = 1# - con2tag_Foo#_aCh Foo3{-r6,x-}{i} = 2# - con2tag_Foo#_aCh Foo4{-r8,x-}{i} = 3# - con2tag_Foo#_aCh Foo5{-ra,x-}{i} = 4# - con2tag_Foo#_aCh Foo6{-rc,x-}{i} = 5# - con2tag_Foo#_aCh Foo7{-re,x-}{i} = 6# - con2tag_Foo#_aCh Foo8{-rg,x-}{i} = 7# -AbsBinds [] [] [([], maxtag_Foo#_rBn, maxtag_Foo#_aCm)] - maxtag_Foo#_aCm = PrelBase.I#{-5b,w-}{i} 7# -AbsBinds [] [] [([], tag2con_Foo#_rBm, tag2con_Foo#_aCp)] - tag2con_Foo#_aCp (PrelBase.I#{-5b,w-}{i} 0#) = Foo1{-r4,x-}{i} - tag2con_Foo#_aCp (PrelBase.I#{-5b,w-}{i} 1#) = Foo2{-r3,x-}{i} - tag2con_Foo#_aCp (PrelBase.I#{-5b,w-}{i} 2#) = Foo3{-r6,x-}{i} - tag2con_Foo#_aCp (PrelBase.I#{-5b,w-}{i} 3#) = Foo4{-r8,x-}{i} - tag2con_Foo#_aCp (PrelBase.I#{-5b,w-}{i} 4#) = Foo5{-ra,x-}{i} - tag2con_Foo#_aCp (PrelBase.I#{-5b,w-}{i} 5#) = Foo6{-rc,x-}{i} - tag2con_Foo#_aCp (PrelBase.I#{-5b,w-}{i} 6#) = Foo7{-re,x-}{i} - tag2con_Foo#_aCp (PrelBase.I#{-5b,w-}{i} 7#) = Foo8{-rg,x-}{i} - tag2con_Foo#_aCp _ - = IOBase.error{-87,w-} Foo{-r12,x-} "Urk! in TcGenDeriv" -AbsBinds [] [] [([], $d1{-rEx,x-}, d.Enum_aCB)] - map_aEF = map_aEA - AbsBinds [] [] [([], toEnum_aEG, toEnum_aCF)] - toEnum_aCF a_rBL = tag2con_Foo#_rBm a_rBL - AbsBinds [] [] [([], fromEnum_aEH, fromEnum_aCL)] - fromEnum_aCL a_rC4 - = case con2tag_Foo#_rBo a_rC4 of - a#_rC6 -> PrelBase.I#{-5b,w-}{i} a#_rC6 - AbsBinds [] [] [([], enumFrom_aEI, enumFrom_aCV)] - enumFrom_aCV a_rBP - = case con2tag_Foo#_rBo a_rBP of - a#_rBR - -> map_aEA [PrelBase.Int{-3g,W-}, Foo{-r12,x-}] tag2con_Foo#_rBm - enumFromTo_aEB PrelBase.I#{-5b,w-}{i} a#_rBR - maxtag_Foo#_rBn - AbsBinds [] [] [([], enumFromThen_aEJ, enumFromThen_aDk)] - enumFromThen_aDk a_rBV b_rBW - = case con2tag_Foo#_rBo a_rBV of - a#_rBY - -> case con2tag_Foo#_rBo b_rBW of - b#_rC0 - -> map_aEF [PrelBase.Int{-3g,W-}, Foo{-r12,x-}] tag2con_Foo#_rBm - enumFromThenTo_aEC PrelBase.I#{-5b,w-}{i} a#_rBY - PrelBase.I#{-5b,w-}{i} b#_rC0 - maxtag_Foo#_rBn - AbsBinds [] [] [([], enumFromTo_aEK, enumFromTo_aDP)] - enumFromTo_aDP = $menumFromTo_aED - AbsBinds [] [] [([], enumFromThenTo_aEL, enumFromThenTo_aDZ)] - enumFromThenTo_aDZ = $menumFromThenTo_aEE - d.Enum_aCB = - ({-dict-} - [] - [toEnum_aEG, fromEnum_aEH, enumFrom_aEI, enumFromThen_aEJ, enumFromTo_aEK, enumFromThenTo_aEL]) -AbsBinds [] [] [([], $d2{-rEz,x-}, d.Eval_aEj)] - d.Eval_aEj = ({-dict-} [] []) -d.Functor_aEl = PrelBase.$d26{-raq,p-} -map_aEA = PrelBase.map{-r11,p-} PrelBase.[]{-3j,W-} d.Functor_aEl -d.Enum_aEo = PrelBase.$d6{-rb0,p-} -enumFromTo_aEB = - PrelBase.enumFromTo{-8W,p-} PrelBase.Int{-3g,W-} d.Enum_aEo -d.Enum_aEr = d.Enum_aEo -enumFromThenTo_aEC = - PrelBase.enumFromThenTo{-8X,p-} PrelBase.Int{-3g,W-} d.Enum_aEr -d.Enum_aEt = $d1{-rEx,x-} -$menumFromTo_aED = - PrelBase.$menumFromTo{-rfe,p-} Foo{-r12,x-} d.Enum_aEt -d.Enum_aEw = d.Enum_aEt -$menumFromThenTo_aEE = - PrelBase.$menumFromThenTo{-rfd,p-} Foo{-r12,x-} d.Enum_aEw ghc: module version changed to 1; reason: no old .hi file _interface_ ShouldSucceed 1 _instance_modules_ diff --git a/ghc/tests/deriving/should_compile/drv006.stderr b/ghc/tests/deriving/should_compile/drv006.stderr index 70f99a0..7f6d758 100644 --- a/ghc/tests/deriving/should_compile/drv006.stderr +++ b/ghc/tests/deriving/should_compile/drv006.stderr @@ -1,200 +1,4 @@ - -================================================================================ -Typechecked: -MkBar{-r4A,x-}{i} = - _/\_ a_tr4s b_tr4t -> \ tpl_B1 tpl_B2 tpl_B3 tpl_B4 tpl_B5 -> - MkBar{-r4A,x-}{i} - {_@_ a_tr4s _@_ b_tr4t tpl_B1 tpl_B2 tpl_B3 tpl_B4 tpl_B5} -Foo1{-r6,x-}{i} = Foo1{-r6,x-}{i} {} -Foo2{-r5,x-}{i} = Foo2{-r5,x-}{i} {} -Foo3{-r8,x-}{i} = Foo3{-r8,x-}{i} {} -Foo4{-ra,x-}{i} = Foo4{-ra,x-}{i} {} -Foo5{-rc,x-}{i} = Foo5{-rc,x-}{i} {} -Foo6{-re,x-}{i} = Foo6{-re,x-}{i} {} -Foo7{-rg,x-}{i} = Foo7{-rg,x-}{i} {} -Foo8{-ri,x-}{i} = Foo8{-ri,x-}{i} {} -AbsBinds [] [] [([], con2tag_Foo#_rUI, con2tag_Foo#_aYg)] - con2tag_Foo#_aYg Foo1{-r6,x-}{i} = 0# - con2tag_Foo#_aYg Foo2{-r5,x-}{i} = 1# - con2tag_Foo#_aYg Foo3{-r8,x-}{i} = 2# - con2tag_Foo#_aYg Foo4{-ra,x-}{i} = 3# - con2tag_Foo#_aYg Foo5{-rc,x-}{i} = 4# - con2tag_Foo#_aYg Foo6{-re,x-}{i} = 5# - con2tag_Foo#_aYg Foo7{-rg,x-}{i} = 6# - con2tag_Foo#_aYg Foo8{-ri,x-}{i} = 7# -AbsBinds [] [] [([], maxtag_Foo#_rUH, maxtag_Foo#_aYl)] - maxtag_Foo#_aYl = PrelBase.I#{-5b,w-}{i} 7# -AbsBinds [] [] [([], tag2con_Foo#_rUG, tag2con_Foo#_aYo)] - tag2con_Foo#_aYo (PrelBase.I#{-5b,w-}{i} 0#) = Foo1{-r6,x-}{i} - tag2con_Foo#_aYo (PrelBase.I#{-5b,w-}{i} 1#) = Foo2{-r5,x-}{i} - tag2con_Foo#_aYo (PrelBase.I#{-5b,w-}{i} 2#) = Foo3{-r8,x-}{i} - tag2con_Foo#_aYo (PrelBase.I#{-5b,w-}{i} 3#) = Foo4{-ra,x-}{i} - tag2con_Foo#_aYo (PrelBase.I#{-5b,w-}{i} 4#) = Foo5{-rc,x-}{i} - tag2con_Foo#_aYo (PrelBase.I#{-5b,w-}{i} 5#) = Foo6{-re,x-}{i} - tag2con_Foo#_aYo (PrelBase.I#{-5b,w-}{i} 6#) = Foo7{-rg,x-}{i} - tag2con_Foo#_aYo (PrelBase.I#{-5b,w-}{i} 7#) = Foo8{-ri,x-}{i} - tag2con_Foo#_aYo _ - = IOBase.error{-87,w-} Foo{-r4z,x-} "Urk! in TcGenDeriv" -AbsBinds [] [] [([], $d1{-r13o,x-}, d.Eq_aYA)] - ==_a13w = ==_a13x - AbsBinds [] [] [([], ==_a13x, ==_aYE)] - ==_aYE a_rV5 b_rV6 - = case con2tag_Foo#_rUI a_rV5 of - a#_rV8 - -> case con2tag_Foo#_rUI b_rV6 of - b#_rVa - -> if a#_rV8 GHC.==#{-79,w-}{I} b#_rVa then - PrelBase.True{-5E,w-}{i} - else - PrelBase.False{-58,w-}{i} - AbsBinds [] [] [([], /=_a13y, /=_aYT)] - /=_aYT a_rVe b_rVf = PrelBase.not{-ri1,p-} ==_a13w a_rVe b_rVf - d.Eq_aYA = ({-dict-} [] [==_a13x, /=_a13y]) -AbsBinds -[ta13m, ta13n] -[] -[([ta13m, ta13n], $d2{-r13p,x-}, d.Eval_aZ7)] - d.Eval_aZ7 = ({-dict-} [] []) -AbsBinds [] [] [([], $d3{-r13q,x-}, d.Eval_aZc)] - d.Eval_aZc = ({-dict-} [] []) -AbsBinds [] [] [([], $d4{-r13r,x-}, d.Ord_aZh)] - d.Eq_a110 = $d1{-r13o,x-} - compare_a13z = compare_a13F - compare_a13A = compare_a13F - compare_a13B = compare_a13F - compare_a13C = compare_a13F - compare_a13D = compare_a13F - compare_a13E = compare_a13F - AbsBinds [] [] [([], compare_a13F, compare_aZl)] - compare_aZl a_rW8 b_rW9 - = case con2tag_Foo#_rUI a_rW8 of - a#_rWe - -> case con2tag_Foo#_rUI b_rW9 of - b#_rWg - -> if a#_rWe GHC.==#{-79,w-}{I} b#_rWg then - PrelBase.EQ{-rb0,p-}{i} - else - if a#_rWe GHC.<#{-7b,w-}{I} b#_rWg then - PrelBase.LT{-rb1,p-}{i} - else - PrelBase.GT{-rb2,p-}{i} - where - {- nonrec -} - AbsBinds [taZE, taZG] [] [([taZE, taZG], cmp_eq_rWb, cmp_eq_aZp)] - cmp_eq_aZp _ _ = PrelBase.EQ{-rb0,p-}{i} - {- nonrec -} - {- nonrec -} - AbsBinds [] [] [([], <_a13G, <_aZT)] - <_aZT a_rVm b_rVn - = case compare_a13z a_rVm b_rVn of - PrelBase.LT{-rb1,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.EQ{-rb0,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.GT{-rb2,p-}{i} -> PrelBase.False{-58,w-}{i} - AbsBinds [] [] [([], <=_a13H, <=_a105)] - <=_a105 a_rVu b_rVv - = case compare_a13A a_rVu b_rVv of - PrelBase.LT{-rb1,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.EQ{-rb0,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.GT{-rb2,p-}{i} -> PrelBase.False{-58,w-}{i} - AbsBinds [] [] [([], >=_a13I, >=_a10h)] - >=_a10h a_rVC b_rVD - = case compare_a13B a_rVC b_rVD of - PrelBase.LT{-rb1,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.EQ{-rb0,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.GT{-rb2,p-}{i} -> PrelBase.True{-5E,w-}{i} - AbsBinds [] [] [([], >_a13J, >_a10t)] - >_a10t a_rVK b_rVL - = case compare_a13C a_rVK b_rVL of - PrelBase.LT{-rb1,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.EQ{-rb0,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.GT{-rb2,p-}{i} -> PrelBase.True{-5E,w-}{i} - AbsBinds [] [] [([], max_a13K, max_a10F)] - max_a10F a_rVS b_rVT - = case compare_a13D a_rVS b_rVT of - PrelBase.LT{-rb1,p-}{i} -> b_rVT - PrelBase.EQ{-rb0,p-}{i} -> a_rVS - PrelBase.GT{-rb2,p-}{i} -> a_rVS - AbsBinds [] [] [([], min_a13L, min_a10R)] - min_a10R a_rW0 b_rW1 - = case compare_a13E a_rW0 b_rW1 of - PrelBase.LT{-rb1,p-}{i} -> a_rW0 - PrelBase.EQ{-rb0,p-}{i} -> b_rW1 - PrelBase.GT{-rb2,p-}{i} -> b_rW1 - d.Ord_aZh = - ({-dict-} - [d.Eq_a110] - [compare_a13F, <_a13G, <=_a13H, >=_a13I, >_a13J, max_a13K, min_a13L]) -AbsBinds [] [] [([], $d5{-r13s,x-}, d.Show_a117)] - showsPrec_a13M = showsPrec_a13N - AbsBinds [] [] [([], showsPrec_a13N, showsPrec_a11b)] - showsPrec_a11b a_rWl Foo1{-r6,x-}{i} - = PrelBase.showString{-rif,p-} "Foo1" - showsPrec_a11b a_rWn Foo2{-r5,x-}{i} - = PrelBase.showString{-rif,p-} "Foo2" - showsPrec_a11b a_rWp Foo3{-r8,x-}{i} - = PrelBase.showString{-rif,p-} "Foo3" - showsPrec_a11b a_rWr Foo4{-ra,x-}{i} - = PrelBase.showString{-rif,p-} "Foo4" - showsPrec_a11b a_rWt Foo5{-rc,x-}{i} - = PrelBase.showString{-rif,p-} "Foo5" - showsPrec_a11b a_rWv Foo6{-re,x-}{i} - = PrelBase.showString{-rif,p-} "Foo6" - showsPrec_a11b a_rWx Foo7{-rg,x-}{i} - = PrelBase.showString{-rif,p-} "Foo7" - showsPrec_a11b a_rWz Foo8{-ri,x-}{i} - = PrelBase.showString{-rif,p-} "Foo8" - AbsBinds [] [] [([], showList_a13O, showList_a11o)] - showList_a11o = PrelBase.showList__{-r4x,p-} - Foo{-r4z,x-} showsPrec_a13M PrelBase.I#{-5b,w-}{i} 0# - d.Show_a117 = ({-dict-} [] [showsPrec_a13N, showList_a13O]) -AbsBinds [] [] [([], $d6{-r13t,x-}, d.Ix_a11z)] - d.Show_a136 = $d5{-r13s,x-} - d.Ord_a137 = $d4{-r13r,x-} - inRange_a13P = inRange_a13S - AbsBinds [] [] [([], range_a13Q, range_a11D)] - range_a11D (a_rWH, b_rWI) - = case con2tag_Foo#_rUI a_rWH of - a#_rWK - -> case con2tag_Foo#_rUI b_rWI of - b#_rWM - -> map_a13u [PrelBase.Int{-3g,W-}, Foo{-r4z,x-}] tag2con_Foo#_rUG - enumFromTo_a13v PrelBase.I#{-5b,w-}{i} a#_rWK - PrelBase.I#{-5b,w-}{i} b#_rWM - AbsBinds [] [] [([], index_a13R, index_a12d)] - index_a12d (c_rWQ@(a_rWR, b_rWS)) d_rWT - = if inRange_a13P c_rWQ d_rWT then - case con2tag_Foo#_rUI a_rWR of - a#_rWV - -> case con2tag_Foo#_rUI d_rWT of - d#_rWX - -> case d#_rWX GHC.-#{-7E,w-}{I} a#_rWV of - c_rWZ -> PrelBase.I#{-5b,w-}{i} c_rWZ - else - IOBase.error{-87,w-} - PrelBase.Int{-3g,W-} "Ix.Foo.index: out of range\n" - AbsBinds [] [] [([], inRange_a13S, inRange_a12K)] - inRange_a12K (a_rX3, b_rX4) c_rX5 - = case con2tag_Foo#_rUI a_rX3 of - a#_rX7 - -> case con2tag_Foo#_rUI b_rX4 of - b#_rX9 - -> case con2tag_Foo#_rUI c_rX5 of - c#_rXb - -> if c#_rXb GHC.>=#{-78,w-}{I} a#_rX7 then - c#_rXb GHC.<=#{-7c,w-}{I} b#_rX9 - else - PrelBase.False{-58,w-}{i} - d.Ix_a11z = - ({-dict-} - [d.Show_a136, d.Ord_a137] - [range_a13Q, index_a13R, inRange_a13S]) -d.Functor_a13i = PrelBase.$d26{-rc9,p-} -map_a13u = PrelBase.map{-rh9,p-} PrelBase.[]{-3j,W-} d.Functor_a13i -d.Enum_a13l = PrelBase.$d6{-rcJ,p-} -enumFromTo_a13v = - PrelBase.enumFromTo{-8W,p-} PrelBase.Int{-3g,W-} d.Enum_a13l - NOTE: Simplifier still going after 4 iterations; bailing out. ghc: module version changed to 1; reason: no old .hi file _interface_ ShouldSucceed 1 diff --git a/ghc/tests/deriving/should_compile/drv008.stderr b/ghc/tests/deriving/should_compile/drv008.stderr index 6d714d8..0b32c3b 100644 --- a/ghc/tests/deriving/should_compile/drv008.stderr +++ b/ghc/tests/deriving/should_compile/drv008.stderr @@ -1,171 +1,4 @@ - -================================================================================ -Typechecked: -A{-r4,x-}{i} = A{-r4,x-}{i} {} -B{-r3,x-}{i} = B{-r3,x-}{i} {} -C{-r6,x-}{i} = C{-r6,x-}{i} {} -D{-r8,x-}{i} = D{-r8,x-}{i} {} -AbsBinds [] [] [([], con2tag_AD#_rUn, con2tag_AD#_aXE)] - con2tag_AD#_aXE A{-r4,x-}{i} = 0# - con2tag_AD#_aXE B{-r3,x-}{i} = 1# - con2tag_AD#_aXE C{-r6,x-}{i} = 2# - con2tag_AD#_aXE D{-r8,x-}{i} = 3# -AbsBinds [] [] [([], maxtag_AD#_rUm, maxtag_AD#_aXJ)] - maxtag_AD#_aXJ = PrelBase.I#{-5b,w-}{i} 3# -AbsBinds [] [] [([], tag2con_AD#_rUl, tag2con_AD#_aXM)] - tag2con_AD#_aXM (PrelBase.I#{-5b,w-}{i} 0#) = A{-r4,x-}{i} - tag2con_AD#_aXM (PrelBase.I#{-5b,w-}{i} 1#) = B{-r3,x-}{i} - tag2con_AD#_aXM (PrelBase.I#{-5b,w-}{i} 2#) = C{-r6,x-}{i} - tag2con_AD#_aXM (PrelBase.I#{-5b,w-}{i} 3#) = D{-r8,x-}{i} - tag2con_AD#_aXM _ - = IOBase.error{-87,w-} AD{-r4h,x-} "Urk! in TcGenDeriv" -AbsBinds [] [] [([], $d1{-r12z,x-}, d.Eq_aXY)] - ==_a12G = ==_a12H - AbsBinds [] [] [([], ==_a12H, ==_aY2)] - ==_aY2 a_rUC b_rUD - = case con2tag_AD#_rUn a_rUC of - a#_rUF - -> case con2tag_AD#_rUn b_rUD of - b#_rUH - -> if a#_rUF GHC.==#{-79,w-}{I} b#_rUH then - PrelBase.True{-5E,w-}{i} - else - PrelBase.False{-58,w-}{i} - AbsBinds [] [] [([], /=_a12I, /=_aYh)] - /=_aYh a_rUL b_rUM = PrelBase.not{-rhL,p-} ==_a12G a_rUL b_rUM - d.Eq_aXY = ({-dict-} [] [==_a12H, /=_a12I]) -AbsBinds [] [] [([], $d2{-r12A,x-}, d.Eval_aYt)] - d.Eval_aYt = ({-dict-} [] []) -AbsBinds [] [] [([], $d3{-r12B,x-}, d.Ord_aYy)] - d.Eq_a10h = $d1{-r12z,x-} - compare_a12J = compare_a12P - compare_a12K = compare_a12P - compare_a12L = compare_a12P - compare_a12M = compare_a12P - compare_a12N = compare_a12P - compare_a12O = compare_a12P - AbsBinds [] [] [([], compare_a12P, compare_aYC)] - compare_aYC a_rVE b_rVF - = case con2tag_AD#_rUn a_rVE of - a#_rVK - -> case con2tag_AD#_rUn b_rVF of - b#_rVM - -> if a#_rVK GHC.==#{-79,w-}{I} b#_rVM then - PrelBase.EQ{-raK,p-}{i} - else - if a#_rVK GHC.<#{-7b,w-}{I} b#_rVM then - PrelBase.LT{-raL,p-}{i} - else - PrelBase.GT{-raM,p-}{i} - where - {- nonrec -} - AbsBinds [taYV, taYX] [] [([taYV, taYX], cmp_eq_rVH, cmp_eq_aYG)] - cmp_eq_aYG _ _ = PrelBase.EQ{-raK,p-}{i} - {- nonrec -} - {- nonrec -} - AbsBinds [] [] [([], <_a12Q, <_aZa)] - <_aZa a_rUS b_rUT - = case compare_a12J a_rUS b_rUT of - PrelBase.LT{-raL,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.EQ{-raK,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.GT{-raM,p-}{i} -> PrelBase.False{-58,w-}{i} - AbsBinds [] [] [([], <=_a12R, <=_aZm)] - <=_aZm a_rV0 b_rV1 - = case compare_a12K a_rV0 b_rV1 of - PrelBase.LT{-raL,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.EQ{-raK,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.GT{-raM,p-}{i} -> PrelBase.False{-58,w-}{i} - AbsBinds [] [] [([], >=_a12S, >=_aZy)] - >=_aZy a_rV8 b_rV9 - = case compare_a12L a_rV8 b_rV9 of - PrelBase.LT{-raL,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.EQ{-raK,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.GT{-raM,p-}{i} -> PrelBase.True{-5E,w-}{i} - AbsBinds [] [] [([], >_a12T, >_aZK)] - >_aZK a_rVg b_rVh - = case compare_a12M a_rVg b_rVh of - PrelBase.LT{-raL,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.EQ{-raK,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.GT{-raM,p-}{i} -> PrelBase.True{-5E,w-}{i} - AbsBinds [] [] [([], max_a12U, max_aZW)] - max_aZW a_rVo b_rVp - = case compare_a12N a_rVo b_rVp of - PrelBase.LT{-raL,p-}{i} -> b_rVp - PrelBase.EQ{-raK,p-}{i} -> a_rVo - PrelBase.GT{-raM,p-}{i} -> a_rVo - AbsBinds [] [] [([], min_a12V, min_a108)] - min_a108 a_rVw b_rVx - = case compare_a12O a_rVw b_rVx of - PrelBase.LT{-raL,p-}{i} -> a_rVw - PrelBase.EQ{-raK,p-}{i} -> b_rVx - PrelBase.GT{-raM,p-}{i} -> b_rVx - d.Ord_aYy = - ({-dict-} - [d.Eq_a10h] - [compare_a12P, <_a12Q, <=_a12R, >=_a12S, >_a12T, max_a12U, min_a12V]) -AbsBinds [] [] [([], $d4{-r12C,x-}, d.Show_a10o)] - showsPrec_a12W = showsPrec_a12X - AbsBinds [] [] [([], showsPrec_a12X, showsPrec_a10s)] - showsPrec_a10s a_rVR A{-r4,x-}{i} - = PrelBase.showString{-ri0,p-} "A" - showsPrec_a10s a_rVT B{-r3,x-}{i} - = PrelBase.showString{-ri0,p-} "B" - showsPrec_a10s a_rVV C{-r6,x-}{i} - = PrelBase.showString{-ri0,p-} "C" - showsPrec_a10s a_rVX D{-r8,x-}{i} - = PrelBase.showString{-ri0,p-} "D" - AbsBinds [] [] [([], showList_a12Y, showList_a10B)] - showList_a10B = PrelBase.showList__{-rhV,p-} - AD{-r4h,x-} showsPrec_a12W PrelBase.I#{-5b,w-}{i} 0# - d.Show_a10o = ({-dict-} [] [showsPrec_a12X, showList_a12Y]) -AbsBinds [] [] [([], $d5{-r12D,x-}, d.Ix_a10M)] - d.Show_a12j = $d4{-r12C,x-} - d.Ord_a12k = $d3{-r12B,x-} - inRange_a12Z = inRange_a132 - AbsBinds [] [] [([], range_a130, range_a10Q)] - range_a10Q (a_rW5, b_rW6) - = case con2tag_AD#_rUn a_rW5 of - a#_rW8 - -> case con2tag_AD#_rUn b_rW6 of - b#_rWa - -> map_a12E [PrelBase.Int{-3g,W-}, AD{-r4h,x-}] tag2con_AD#_rUl - enumFromTo_a12F PrelBase.I#{-5b,w-}{i} a#_rW8 - PrelBase.I#{-5b,w-}{i} b#_rWa - AbsBinds [] [] [([], index_a131, index_a11q)] - index_a11q (c_rWe@(a_rWf, b_rWg)) d_rWh - = if inRange_a12Z c_rWe d_rWh then - case con2tag_AD#_rUn a_rWf of - a#_rWj - -> case con2tag_AD#_rUn d_rWh of - d#_rWl - -> case d#_rWl GHC.-#{-7E,w-}{I} a#_rWj of - c_rWn -> PrelBase.I#{-5b,w-}{i} c_rWn - else - IOBase.error{-87,w-} - PrelBase.Int{-3g,W-} "Ix.AD.index: out of range\n" - AbsBinds [] [] [([], inRange_a132, inRange_a11X)] - inRange_a11X (a_rWr, b_rWs) c_rWt - = case con2tag_AD#_rUn a_rWr of - a#_rWv - -> case con2tag_AD#_rUn b_rWs of - b#_rWx - -> case con2tag_AD#_rUn c_rWt of - c#_rWz - -> if c#_rWz GHC.>=#{-78,w-}{I} a#_rWv then - c#_rWz GHC.<=#{-7c,w-}{I} b#_rWx - else - PrelBase.False{-58,w-}{i} - d.Ix_a10M = - ({-dict-} - [d.Show_a12j, d.Ord_a12k] - [range_a130, index_a131, inRange_a132]) -d.Functor_a12v = PrelBase.$d26{-rbT,p-} -map_a12E = PrelBase.map{-rgT,p-} PrelBase.[]{-3j,W-} d.Functor_a12v -d.Enum_a12y = PrelBase.$d6{-rct,p-} -enumFromTo_a12F = - PrelBase.enumFromTo{-8W,p-} PrelBase.Int{-3g,W-} d.Enum_a12y - NOTE: Simplifier still going after 4 iterations; bailing out. ghc: module version changed to 1; reason: no old .hi file _interface_ ShouldSucceed 1 diff --git a/ghc/tests/deriving/should_compile/drv009.stderr b/ghc/tests/deriving/should_compile/drv009.stderr index da8142d..41123b3 100644 --- a/ghc/tests/deriving/should_compile/drv009.stderr +++ b/ghc/tests/deriving/should_compile/drv009.stderr @@ -1,227 +1,3 @@ - - -================================================================================ -Typechecked: -Pair{-r4e,x-}{i} = - _/\_ a_tr4b b_tr4c -> \ tpl_B1 tpl_B2 -> - Pair{-r4e,x-}{i} {_@_ a_tr4b _@_ b_tr4c tpl_B1 tpl_B2} -AbsBinds -[taXK, taXN] -[] -[([taXK, taXN], con2tag_Pair#_rUo, con2tag_Pair#_aXD)] - con2tag_Pair#_aXD (Pair{-r4e,x-}{i} _ _) = 0# -AbsBinds [] [] [([], maxtag_Pair#_rUn, maxtag_Pair#_aXR)] - maxtag_Pair#_aXR = PrelBase.I#{-5b,w-}{i} 0# -AbsBinds -[taY0, taY2] -[] -[([taY0, taY2], tag2con_Pair#_rUm, tag2con_Pair#_aXU)] - tag2con_Pair#_aXU (PrelBase.I#{-5b,w-}{i} 0#) - = Pair{-r4e,x-}{i} [taY0, taY2] - tag2con_Pair#_aXU _ - = IOBase.error{-87,w-} - (taY0 -> taY2 -> Pair{-r4d,x-} taY0 taY2) "Urk! in TcGenDeriv" -AbsBinds -[taYr, taYs] -[d.Eq_aYS, d.Eq_aYT] -[([taYr, taYs], $d1{-r17l,x-}, d.Eq_aYe)] - d.Eq_aYX = d.Eq_aYS - ==_a17y = PrelBase.=={-8Y,p-} taYr d.Eq_aYX - d.Eq_aYZ = d.Eq_aYT - ==_a17z = PrelBase.=={-8Y,p-} taYs d.Eq_aYZ - ==_a17A = ==_a17B - AbsBinds [] [] [([], ==_a17B, ==_aYi)] - ==_aYi (Pair{-r4e,x-}{i} a1_rUx a2_rUy) - (Pair{-r4e,x-}{i} b1_rUz b2_rUA) - = (a1_rUx ==_a17y b1_rUz) - PrelBase.&&{-rgJ,p-} (a2_rUy ==_a17z b2_rUA) - AbsBinds [] [] [([], /=_a17C, /=_aYL)] - /=_aYL a_rUE b_rUF = PrelBase.not{-rhH,p-} ==_a17A a_rUE b_rUF - d.Eq_aYe = ({-dict-} [] [==_a17B, /=_a17C]) -AbsBinds -[ta17g, ta17h] -[] -[([ta17g, ta17h], $d2{-r17m,x-}, d.Eval_aZ8)] - d.Eval_aZ8 = ({-dict-} [] []) -AbsBinds -[taZm, taZn] -[d.Ord_a11v, d.Ord_a11w, d.Eq_a11x] -[([taZm, taZn], $d3{-r17n,x-}, d.Ord_aZf)] - d.Eq_a11u = d.Eq_a11x - d.Ord_a10d = d.Ord_a11v - d.Ord_a10e = d.Ord_a11w - compare_a17D = compare_a17J - compare_a17E = compare_a17J - compare_a17F = compare_a17J - compare_a17G = compare_a17J - compare_a17H = compare_a17J - compare_a17I = compare_a17J - AbsBinds [] [] [([], compare_a17J, compare_aZj)] - compare_aZj a_rVx b_rVy - = case cmp_eq_a17Q a_rVx b_rVy of - PrelBase.LT{-raH,p-}{i} -> PrelBase.LT{-raH,p-}{i} - PrelBase.EQ{-raG,p-}{i} -> PrelBase.EQ{-raG,p-}{i} - PrelBase.GT{-raI,p-}{i} -> PrelBase.GT{-raI,p-}{i} - where - {- nonrec -} - AbsBinds - [taZR, taZV] - [d.Ord_a103, d.Ord_a105] - [([taZR, taZV], cmp_eq_rVA, cmp_eq_aZr)] - compare_a17R = PrelBase.compare{-rgY,p-} taZR d.Ord_a103 - compare_a17S = PrelBase.compare{-rgY,p-} taZV d.Ord_a105 - cmp_eq_aZr (Pair{-r4e,x-}{i} a1_rVC a2_rVD) - (Pair{-r4e,x-}{i} b1_rVE b2_rVF) - = case compare_a17R a1_rVC b1_rVE of - PrelBase.LT{-raH,p-}{i} -> PrelBase.LT{-raH,p-}{i} - PrelBase.EQ{-raG,p-}{i} - -> case compare_a17S a2_rVD b2_rVF of - PrelBase.LT{-raH,p-}{i} -> PrelBase.LT{-raH,p-}{i} - PrelBase.EQ{-raG,p-}{i} -> PrelBase.EQ{-raG,p-}{i} - PrelBase.GT{-raI,p-}{i} -> PrelBase.GT{-raI,p-}{i} - PrelBase.GT{-raI,p-}{i} -> PrelBase.GT{-raI,p-}{i} - cmp_eq_aZr _ _ - = IOBase.error{-87,w-} - PrelBase.Ordering{-3o,p-} "Urk! in TcGenDeriv" - {- nonrec -} - cmp_eq_a17Q = cmp_eq_rVA [taZm, taZn] [d.Ord_a10d, d.Ord_a10e] - {- nonrec -} - AbsBinds [] [] [([], <_a17K, <_a10j)] - <_a10j a_rUL b_rUM - = case compare_a17D a_rUL b_rUM of - PrelBase.LT{-raH,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.EQ{-raG,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.GT{-raI,p-}{i} -> PrelBase.False{-58,w-}{i} - AbsBinds [] [] [([], <=_a17L, <=_a10w)] - <=_a10w a_rUT b_rUU - = case compare_a17E a_rUT b_rUU of - PrelBase.LT{-raH,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.EQ{-raG,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.GT{-raI,p-}{i} -> PrelBase.False{-58,w-}{i} - AbsBinds [] [] [([], >=_a17M, >=_a10J)] - >=_a10J a_rV1 b_rV2 - = case compare_a17F a_rV1 b_rV2 of - PrelBase.LT{-raH,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.EQ{-raG,p-}{i} -> PrelBase.True{-5E,w-}{i} - PrelBase.GT{-raI,p-}{i} -> PrelBase.True{-5E,w-}{i} - AbsBinds [] [] [([], >_a17N, >_a10W)] - >_a10W a_rV9 b_rVa - = case compare_a17G a_rV9 b_rVa of - PrelBase.LT{-raH,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.EQ{-raG,p-}{i} -> PrelBase.False{-58,w-}{i} - PrelBase.GT{-raI,p-}{i} -> PrelBase.True{-5E,w-}{i} - AbsBinds [] [] [([], max_a17O, max_a119)] - max_a119 a_rVh b_rVi - = case compare_a17H a_rVh b_rVi of - PrelBase.LT{-raH,p-}{i} -> b_rVi - PrelBase.EQ{-raG,p-}{i} -> a_rVh - PrelBase.GT{-raI,p-}{i} -> a_rVh - AbsBinds [] [] [([], min_a17P, min_a11m)] - min_a11m a_rVp b_rVq - = case compare_a17I a_rVp b_rVq of - PrelBase.LT{-raH,p-}{i} -> a_rVp - PrelBase.EQ{-raG,p-}{i} -> b_rVq - PrelBase.GT{-raI,p-}{i} -> b_rVq - d.Ord_aZf = - ({-dict-} - [d.Eq_a11u] - [compare_a17J, <_a17K, <=_a17L, >=_a17M, >_a17N, max_a17O, min_a17P]) -AbsBinds -[ta121, ta122] -[d.Show_a12w, d.Show_a12x] -[([ta121, ta122], $d4{-r17o,x-}, d.Show_a11N)] - d.Show_a12D = d.Show_a12w - showsPrec_a17T = PrelBase.showsPrec{-rh4,p-} ta121 d.Show_a12D - d.Show_a12F = d.Show_a12x - showsPrec_a17U = PrelBase.showsPrec{-rh4,p-} ta122 d.Show_a12F - showsPrec_a17V = showsPrec_a17W - AbsBinds [] [] [([], showsPrec_a17W, showsPrec_a11R)] - showsPrec_a11R a_rVU (Pair{-r4e,x-}{i} b1_rVV b2_rVW) - = PrelBase.showParen{-rhT,p-} a_rVU >=_a17q lit_a17r - PrelBase..{-rgK,p-} - [PrelBase.String{-rh7,p-}, PrelBase.String{-rh7,p-}, PrelBase.String{-rh7,p-}] PrelBase.showString{-rhW,p-} "Pair " - PrelBase..{-rgK,p-} - [PrelBase.String{-rh7,p-}, PrelBase.String{-rh7,p-}, PrelBase.String{-rh7,p-}] showsPrec_a17T PrelBase.I#{-5b,w-}{i} 10# - b1_rVV - PrelBase..{-rgK,p-} - [PrelBase.String{-rh7,p-}, PrelBase.String{-rh7,p-}, PrelBase.String{-rh7,p-}] PrelBase.showSpace{-rhV,p-} - showsPrec_a17U PrelBase.I#{-5b,w-}{i} 10# - b2_rVW - AbsBinds [] [] [([], showList_a17X, showList_a12r)] - showList_a12r = PrelBase.showList__{-rhR,p-} - (Pair{-r4d,x-} ta121 ta122) showsPrec_a17V PrelBase.I#{-5b,w-}{i} 0# - d.Show_a11N = ({-dict-} [] [showsPrec_a17W, showList_a17X]) -AbsBinds -[ta13d, ta13e] -[d.Ix_a16l, d.Ix_a16m, d.Show_a16n, d.Ord_a16o] -[([ta13d, ta13e], $d5{-r17p,x-}, d.Ix_a12O)] - d.Show_a16k = d.Show_a16n - d.Ord_a16p = d.Ord_a16o - d.Ix_a16s = d.Ix_a16l - range_a17Y = Ix.range{-rbr,p-} ta13d d.Ix_a16s - d.Ix_a16u = d.Ix_a16m - range_a17Z = Ix.range{-rbr,p-} ta13e d.Ix_a16u - d.Ix_a16C = d.Ix_a16m - index_a180 = Ix.index{-rbs,p-} ta13e d.Ix_a16C - d.Ix_a15t = d.Ix_a16m - d.Ix_a16G = d.Ix_a16l - index_a181 = Ix.index{-rbs,p-} ta13d d.Ix_a16G - d.Ix_a15u = d.Ix_a16l - d.Ix_a16I = d.Ix_a16l - inRange_a182 = Ix.inRange{-rbt,p-} ta13d d.Ix_a16I - d.Ix_a16K = d.Ix_a16m - inRange_a183 = Ix.inRange{-rbt,p-} ta13e d.Ix_a16K - AbsBinds [] [] [([], range_a184, range_a12S)] - range_a12S ((Pair{-r4e,x-}{i} a1_rW4 a2_rW5), (Pair{-r4e,x-}{i} b1_rW6 b2_rW7)) - = [Pair{-r4e,x-}{i} [ta13d, ta13e] c1_rW9 c2_rWb | - c1_rW9 <- range_a17Y (a1_rW4, - b1_rW6), c2_rWb <- range_a17Z (a2_rW5, b2_rW7)] - AbsBinds [] [] [([], index_a185, index_a13T)] - +_a187 = +_a17u - *_a188 = *_a17v - +_a189 = +_a17u - index_a13T ((Pair{-r4e,x-}{i} a1_rWf a2_rWg), (Pair{-r4e,x-}{i} b1_rWh b2_rWi)) - (Pair{-r4e,x-}{i} c1_rWj c2_rWk) - = (index_a180 (a2_rWg, b2_rWi) c2_rWk) - +_a17u ((rangeSize_a18a (a2_rWg, b2_rWi)) - *_a17v ((index_a181 (a1_rWf, b1_rWh) c1_rWj) - +_a187 ((rangeSize_a18b (a1_rWf, b1_rWh)) *_a188 lit_a17w))) - where - {- nonrec -} - AbsBinds - [ta14I] - [d.Ix_a14P] - [([ta14I], rangeSize_rWm, rangeSize_a14n)] - index_a18c = Ix.index{-rbs,p-} ta14I d.Ix_a14P - rangeSize_a14n (a_rWo, b_rWp) - = (index_a18c (a_rWo, b_rWp) b_rWp) +_a189 lit_a17x - {- nonrec -} - rangeSize_a18a = rangeSize_rWm ta13e d.Ix_a15t - rangeSize_a18b = rangeSize_rWm ta13d d.Ix_a15u - {- nonrec -} - AbsBinds [] [] [([], inRange_a186, inRange_a15D)] - inRange_a15D ((Pair{-r4e,x-}{i} a1_rWt a2_rWu), (Pair{-r4e,x-}{i} b1_rWv b2_rWw)) - (Pair{-r4e,x-}{i} c1_rWx c2_rWy) - = (inRange_a182 (a1_rWt, b1_rWv) c1_rWx) - PrelBase.&&{-rgJ,p-} (inRange_a183 (a2_rWu, b2_rWw) c2_rWy) - d.Ix_a12O = - ({-dict-} - [d.Show_a16k, d.Ord_a16p] - [range_a184, index_a185, inRange_a186]) -d.Ord_a174 = PrelBase.$d7{-rcq,p-} ->=_a17q = PrelBase.>={-8Z,p-} PrelBase.Int{-3g,W-} d.Ord_a174 -lit_a17r = PrelBase.I#{-5b,w-}{i} 10# -d.Monad_a177 = PrelBase.$d25{-rbO,p-} ->>=_a17s = PrelBase.>>={-811,p-} PrelBase.[]{-3j,W-} d.Monad_a177 -d.Monad_a17a = d.Monad_a177 -return_a17t = - PrelBase.return{-816,p-} PrelBase.[]{-3j,W-} d.Monad_a17a -d.Num_a17c = PrelBase.$d4{-rc4,p-} -+_a17u = PrelBase.+{-rgT,p-} PrelBase.Int{-3g,W-} d.Num_a17c -d.Num_a17f = d.Num_a17c -*_a17v = PrelBase.*{-rgU,p-} PrelBase.Int{-3g,W-} d.Num_a17f -lit_a17w = PrelBase.I#{-5b,w-}{i} 0# -lit_a17x = PrelBase.I#{-5b,w-}{i} 1# ghc: module version changed to 1; reason: no old .hi file _interface_ ShouldSucceed 1 _instance_modules_ diff --git a/ghc/tests/deriving/should_compile/drv010.stderr b/ghc/tests/deriving/should_compile/drv010.stderr index 63c0573..cc508b3 100644 --- a/ghc/tests/deriving/should_compile/drv010.stderr +++ b/ghc/tests/deriving/should_compile/drv010.stderr @@ -1,74 +1,3 @@ - - -================================================================================ -Typechecked: -A{-r4,x-}{i} = A{-r4,x-}{i} {} -B{-r3,x-}{i} = B{-r3,x-}{i} {} -C{-r6,x-}{i} = C{-r6,x-}{i} {} -D{-r8,x-}{i} = D{-r8,x-}{i} {} -AbsBinds [] [] [([], con2tag_AD#_rBg, con2tag_AD#_aC1)] - con2tag_AD#_aC1 A{-r4,x-}{i} = 0# - con2tag_AD#_aC1 B{-r3,x-}{i} = 1# - con2tag_AD#_aC1 C{-r6,x-}{i} = 2# - con2tag_AD#_aC1 D{-r8,x-}{i} = 3# -AbsBinds [] [] [([], maxtag_AD#_rBf, maxtag_AD#_aC6)] - maxtag_AD#_aC6 = PrelBase.I#{-5b,w-}{i} 3# -AbsBinds [] [] [([], tag2con_AD#_rBe, tag2con_AD#_aC9)] - tag2con_AD#_aC9 (PrelBase.I#{-5b,w-}{i} 0#) = A{-r4,x-}{i} - tag2con_AD#_aC9 (PrelBase.I#{-5b,w-}{i} 1#) = B{-r3,x-}{i} - tag2con_AD#_aC9 (PrelBase.I#{-5b,w-}{i} 2#) = C{-r6,x-}{i} - tag2con_AD#_aC9 (PrelBase.I#{-5b,w-}{i} 3#) = D{-r8,x-}{i} - tag2con_AD#_aC9 _ - = IOBase.error{-87,w-} AD{-rU,x-} "Urk! in TcGenDeriv" -AbsBinds [] [] [([], $d1{-rEh,x-}, d.Enum_aCl)] - map_aEp = map_aEk - AbsBinds [] [] [([], toEnum_aEq, toEnum_aCp)] - toEnum_aCp a_rBv = tag2con_AD#_rBe a_rBv - AbsBinds [] [] [([], fromEnum_aEr, fromEnum_aCv)] - fromEnum_aCv a_rBO - = case con2tag_AD#_rBg a_rBO of - a#_rBQ -> PrelBase.I#{-5b,w-}{i} a#_rBQ - AbsBinds [] [] [([], enumFrom_aEs, enumFrom_aCF)] - enumFrom_aCF a_rBz - = case con2tag_AD#_rBg a_rBz of - a#_rBB - -> map_aEk [PrelBase.Int{-3g,W-}, AD{-rU,x-}] tag2con_AD#_rBe - enumFromTo_aEl PrelBase.I#{-5b,w-}{i} a#_rBB - maxtag_AD#_rBf - AbsBinds [] [] [([], enumFromThen_aEt, enumFromThen_aD4)] - enumFromThen_aD4 a_rBF b_rBG - = case con2tag_AD#_rBg a_rBF of - a#_rBI - -> case con2tag_AD#_rBg b_rBG of - b#_rBK - -> map_aEp [PrelBase.Int{-3g,W-}, AD{-rU,x-}] tag2con_AD#_rBe - enumFromThenTo_aEm PrelBase.I#{-5b,w-}{i} a#_rBI - PrelBase.I#{-5b,w-}{i} b#_rBK - maxtag_AD#_rBf - AbsBinds [] [] [([], enumFromTo_aEu, enumFromTo_aDz)] - enumFromTo_aDz = $menumFromTo_aEn - AbsBinds [] [] [([], enumFromThenTo_aEv, enumFromThenTo_aDJ)] - enumFromThenTo_aDJ = $menumFromThenTo_aEo - d.Enum_aCl = - ({-dict-} - [] - [toEnum_aEq, fromEnum_aEr, enumFrom_aEs, enumFromThen_aEt, enumFromTo_aEu, enumFromThenTo_aEv]) -AbsBinds [] [] [([], $d2{-rEj,x-}, d.Eval_aE3)] - d.Eval_aE3 = ({-dict-} [] []) -d.Functor_aE5 = PrelBase.$d26{-rai,p-} -map_aEk = PrelBase.map{-rT,p-} PrelBase.[]{-3j,W-} d.Functor_aE5 -d.Enum_aE8 = PrelBase.$d6{-raS,p-} -enumFromTo_aEl = - PrelBase.enumFromTo{-8W,p-} PrelBase.Int{-3g,W-} d.Enum_aE8 -d.Enum_aEb = d.Enum_aE8 -enumFromThenTo_aEm = - PrelBase.enumFromThenTo{-8X,p-} PrelBase.Int{-3g,W-} d.Enum_aEb -d.Enum_aEd = $d1{-rEh,x-} -$menumFromTo_aEn = - PrelBase.$menumFromTo{-rf6,p-} AD{-rU,x-} d.Enum_aEd -d.Enum_aEg = d.Enum_aEd -$menumFromThenTo_aEo = - PrelBase.$menumFromThenTo{-rf5,p-} AD{-rU,x-} d.Enum_aEg ghc: module version changed to 1; reason: no old .hi file _interface_ ShouldSucceed 1 _instance_modules_ diff --git a/ghc/tests/deriving/should_fail/drvfail004.stderr b/ghc/tests/deriving/should_fail/drvfail004.stderr index b9a7a56..88de069 100644 --- a/ghc/tests/deriving/should_fail/drvfail004.stderr +++ b/ghc/tests/deriving/should_fail/drvfail004.stderr @@ -1,7 +1,6 @@ -drvfail004.hs:5: No instance for: `PrelBase.Eq (Foo taDH taDI)' +drvfail004.hs:5: No instance for: `PrelBase.Eq (Foo taDR taDS)' arising from an instance declaration at drvfail004.hs:5 When checking superclass constraints of an instance declaration - Compilation had errors diff --git a/ghc/tests/deriving/should_fail/drvfail007.stderr b/ghc/tests/deriving/should_fail/drvfail007.stderr index 43c09b1..5338ad4 100644 --- a/ghc/tests/deriving/should_fail/drvfail007.stderr +++ b/ghc/tests/deriving/should_fail/drvfail007.stderr @@ -1,10 +1,10 @@ -drvfail007.hs:2: No instance for `PrelBase.Eq PrelBase.Int - -> PrelBase.Int' +drvfail007.hs:2: No instance for: `PrelBase.Eq (PrelBase.Int + -> PrelBase.Int)' + When deriving classes for `Foo' -drvfail007.hs:4: No instance for: `PrelBase.Eq (PrelBase.Int +drvfail007.hs:2: No instance for: `PrelBase.Eq (PrelBase.Int -> PrelBase.Int)' - arising from use of `PrelBase.==' at drvfail007.hs:4 - + When deriving classes for `Foo' Compilation had errors diff --git a/ghc/tests/deriving/should_run/Makefile b/ghc/tests/deriving/should_run/Makefile index 0c0576b..7ed54bb 100644 --- a/ghc/tests/deriving/should_run/Makefile +++ b/ghc/tests/deriving/should_run/Makefile @@ -1,19 +1,7 @@ TOP = ../.. include $(TOP)/mk/boilerplate.mk +include $(TOP)/mk/should_run.mk -HS_SRCS = $(wildcard *.hs) -BINS = $(patsubst %.o,%,$(HS_OBJS)) -RUNTESTS = $(patsubst %,%.run,$(BINS)) - -SRC_RUNTEST_OPTS += -o1 $*.stdout -o2 $*.stderr -x 0 HC_OPTS += -dcore-lint -all :: $(RUNTESTS) - -%.run : % - $(RUNTEST) $< $(RUNTEST_OPTS) - -% : %.o - $(HC) $(HC_OPTS) $< -o $@ - include $(TOP)/mk/target.mk diff --git a/ghc/tests/printing/should_compile/Makefile b/ghc/tests/printing/should_compile/Makefile index 48fc0b9..fcd30de 100644 --- a/ghc/tests/printing/should_compile/Makefile +++ b/ghc/tests/printing/should_compile/Makefile @@ -2,9 +2,9 @@ TOP = ../.. include $(TOP)/mk/boilerplate.mk include $(TOP)/mk/should_compile.mk -HC_OPTS += -noC -ddump-tc -dcore-lint -hi +HC_OPTS += -noC -dcore-lint -hi -print002_HC_OPTS = -fno-implicit-prelude -dppr-user -ddump-rdr +print002_HC_OPTS = -fno-implicit-prelude include $(TOP)/mk/target.mk diff --git a/ghc/tests/reader/should_compile/Makefile b/ghc/tests/reader/should_compile/Makefile index 4aebe1d..03edc2a 100644 --- a/ghc/tests/reader/should_compile/Makefile +++ b/ghc/tests/reader/should_compile/Makefile @@ -2,7 +2,7 @@ TOP = ../.. include $(TOP)/mk/boilerplate.mk include $(TOP)/mk/should_compile.mk -HC_OPTS += -noC -dcore-lint -ddump-rdr +HC_OPTS += -noC -dcore-lint read004_HC_OPTS = -fno-implicit-prelude diff --git a/ghc/tests/reader/should_compile/read002.stderr b/ghc/tests/reader/should_compile/read002.stderr index 22f8581..e69de29 100644 --- a/ghc/tests/reader/should_compile/read002.stderr +++ b/ghc/tests/reader/should_compile/read002.stderr @@ -1,14 +0,0 @@ - - -================================================================================ -Reader: -module Reader where -infixl 1 f -infixr 2 \\\ -infix 3 :==> -infix 4 MkFoo -{- rec -} -\\\ :: _forall_ [] (Eq a) => [a] -> [a] -> [a] -f x y = x -\\\ xs ys = xs -data Foo = MkFoo Int | Float :==> Double diff --git a/ghc/tests/reader/should_compile/read005.stderr b/ghc/tests/reader/should_compile/read005.stderr index 09fd145..e69de29 100644 --- a/ghc/tests/reader/should_compile/read005.stderr +++ b/ghc/tests/reader/should_compile/read005.stderr @@ -1,7 +0,0 @@ - - -================================================================================ -Reader: -module Main where -{- rec -} -main = print "Hello" diff --git a/ghc/tests/reader/should_fail/expr001.stderr b/ghc/tests/reader/should_fail/expr001.stderr index 3d44bd2..9591374 100644 --- a/ghc/tests/reader/should_fail/expr001.stderr +++ b/ghc/tests/reader/should_fail/expr001.stderr @@ -1,13 +1,10 @@ - - -================================================================================ -Reader: +==================== Reader ==================== module Main where {- rec -} f x = x + (if c then 1 else 2) f x = x + 1 :: Int + expr001.hs:10: Value not in scope: `c' - Compilation had errors diff --git a/ghc/tests/reader/should_fail/read001.stderr b/ghc/tests/reader/should_fail/read001.stderr index b036121..c0b3af1 100644 --- a/ghc/tests/reader/should_fail/read001.stderr +++ b/ghc/tests/reader/should_fail/read001.stderr @@ -1,7 +1,4 @@ - - -================================================================================ -Reader: +==================== Reader ==================== module OneOfEverything ( fixn, FooData, FooDataB(..), FooDataC(..), EqTree(EqLeaf, EqBranch), EqClass(..), OrdClass(orda, @@ -93,6 +90,7 @@ data (Eq a) => EqTree a = EqLeaf a | EqBranch (EqLeaf a) (EqLeaf a) data FooDataB = FooConB Double data FooData = FooCon Int type Pair a b = (a, b) + read001.hs:17: Could not find valid interface file `OneA' @@ -106,5 +104,4 @@ read001.hs:19: Module OneC does not export `fC' read001.hs:20: Module OneC does not export `fC' - Compilation had errors diff --git a/ghc/tests/reader/should_fail/read003.stderr b/ghc/tests/reader/should_fail/read003.stderr index 021a5c0..6037141 100644 --- a/ghc/tests/reader/should_fail/read003.stderr +++ b/ghc/tests/reader/should_fail/read003.stderr @@ -1,7 +1,4 @@ - - -================================================================================ -Reader: +==================== Reader ==================== module Read003 where {- rec -} ~(a, b, c) @@ -11,11 +8,12 @@ module Read003 where where {- rec -} nullity = null + read003.hs:8: Cannot construct the infinite type (occur check) - `taGH' = `(taGH, taGK, taGN)' - Expected: `taGH' - Inferred: `(taGH, [taGW], taGN)' + `taGL' = `(taGL, taGO, taGR)' + Expected: `taGL' + Inferred: `(taGL, [taH0], taGR)' In a pattern binding: `~(a, b, c) | nullity b = a @@ -24,5 +22,4 @@ read003.hs:8: Cannot construct the infinite type (occur check) where nullity = PrelList.null' - Compilation had errors diff --git a/ghc/tests/rename/should_fail/rnfail001.stderr b/ghc/tests/rename/should_fail/rnfail001.stderr index 92fd228..c1f650d 100644 --- a/ghc/tests/rename/should_fail/rnfail001.stderr +++ b/ghc/tests/rename/should_fail/rnfail001.stderr @@ -1,5 +1,4 @@ rnfail001.hs:3: Conflicting definitions for `x' in pattern - Compilation had errors diff --git a/ghc/tests/rename/should_fail/rnfail002.stderr b/ghc/tests/rename/should_fail/rnfail002.stderr index e0066ab..2eb06e2 100644 --- a/ghc/tests/rename/should_fail/rnfail002.stderr +++ b/ghc/tests/rename/should_fail/rnfail002.stderr @@ -4,5 +4,4 @@ rnfail002.hs:4: Defined at rnfail002.hs:6 Defined at rnfail002.hs:5 - Compilation had errors diff --git a/ghc/tests/rename/should_fail/rnfail003.stderr b/ghc/tests/rename/should_fail/rnfail003.stderr index 2837664..8b958ae 100644 --- a/ghc/tests/rename/should_fail/rnfail003.stderr +++ b/ghc/tests/rename/should_fail/rnfail003.stderr @@ -4,5 +4,4 @@ rnfail003.hs:2: Defined at rnfail003.hs:4 Defined at rnfail003.hs:2 - Compilation had errors diff --git a/ghc/tests/rename/should_fail/rnfail004.stderr b/ghc/tests/rename/should_fail/rnfail004.stderr index cd56751..e8dbce1 100644 --- a/ghc/tests/rename/should_fail/rnfail004.stderr +++ b/ghc/tests/rename/should_fail/rnfail004.stderr @@ -3,5 +3,4 @@ rnfail004.hs:6: Conflicting definitions for `a' in binding group rnfail004.hs:7: Conflicting definitions for `b' in binding group - Compilation had errors diff --git a/ghc/tests/rename/should_fail/rnfail007.stderr b/ghc/tests/rename/should_fail/rnfail007.stderr index a552a38..99f54cd 100644 --- a/ghc/tests/rename/should_fail/rnfail007.stderr +++ b/ghc/tests/rename/should_fail/rnfail007.stderr @@ -1,5 +1,4 @@ rnfail007.hs:3: Module Main must include a definition for `Main.main' - Compilation had errors diff --git a/ghc/tests/rename/should_fail/rnfail008.stderr b/ghc/tests/rename/should_fail/rnfail008.stderr index d86ebea..36ec743 100644 --- a/ghc/tests/rename/should_fail/rnfail008.stderr +++ b/ghc/tests/rename/should_fail/rnfail008.stderr @@ -1,6 +1,4 @@ -rnfail008.hs:18: Class `K' does not have a method `op3' - rnfail008.hs:18: No explicit method nor default method for `op1' in an instance declaration for `K' @@ -9,5 +7,7 @@ rnfail008.hs:18: No explicit method nor default method for `op2' rnfail008.hs:14: No explicit method nor default method for `op2' in an instance declaration for `K' + +rnfail008.hs:18: Class `K' does not have a method `op3' Compilation had errors diff --git a/ghc/tests/rename/should_fail/rnfail009.stderr b/ghc/tests/rename/should_fail/rnfail009.stderr index 2671b16..aea0d45 100644 --- a/ghc/tests/rename/should_fail/rnfail009.stderr +++ b/ghc/tests/rename/should_fail/rnfail009.stderr @@ -4,5 +4,4 @@ rnfail009.hs:1: Defined at rnfail009.hs:5 Defined at rnfail009.hs:3 - Compilation had errors diff --git a/ghc/tests/rename/should_fail/rnfail010.stderr b/ghc/tests/rename/should_fail/rnfail010.stderr index 47a3b10..84d078f 100644 --- a/ghc/tests/rename/should_fail/rnfail010.stderr +++ b/ghc/tests/rename/should_fail/rnfail010.stderr @@ -4,5 +4,4 @@ rnfail010.hs:2: Defined at rnfail010.hs:6 Defined at rnfail010.hs:2 - Compilation had errors diff --git a/ghc/tests/rename/should_fail/rnfail011.stderr b/ghc/tests/rename/should_fail/rnfail011.stderr index 510028c..50b251c 100644 --- a/ghc/tests/rename/should_fail/rnfail011.stderr +++ b/ghc/tests/rename/should_fail/rnfail011.stderr @@ -4,5 +4,4 @@ rnfail011.hs:2: Defined at rnfail011.hs:6 Defined at rnfail011.hs:2 - Compilation had errors diff --git a/ghc/tests/rename/should_fail/rnfail012.stderr b/ghc/tests/rename/should_fail/rnfail012.stderr index 98d8cec..38e54d5 100644 --- a/ghc/tests/rename/should_fail/rnfail012.stderr +++ b/ghc/tests/rename/should_fail/rnfail012.stderr @@ -4,5 +4,4 @@ rnfail012.hs:2: Defined at rnfail012.hs:9 Defined at rnfail012.hs:3 - Compilation had errors diff --git a/ghc/tests/rename/should_fail/rnfail013.stderr b/ghc/tests/rename/should_fail/rnfail013.stderr index bffacd0..f24e8dc 100644 --- a/ghc/tests/rename/should_fail/rnfail013.stderr +++ b/ghc/tests/rename/should_fail/rnfail013.stderr @@ -4,5 +4,4 @@ rnfail013.hs:3: Defined at rnfail013.hs:9 Defined at rnfail013.hs:7 - Compilation had errors diff --git a/ghc/tests/rename/should_fail/rnfail014.stderr b/ghc/tests/rename/should_fail/rnfail014.stderr index 457ba99..6e93e64 100644 --- a/ghc/tests/rename/should_fail/rnfail014.stderr +++ b/ghc/tests/rename/should_fail/rnfail014.stderr @@ -13,5 +13,4 @@ rnfail014.hs:9: that do not appear in `Eq Bool' in the type signature for an instance decl - Compilation had errors diff --git a/ghc/tests/simplCore/should_compile/Makefile b/ghc/tests/simplCore/should_compile/Makefile index 33d237f..30aedc2 100644 --- a/ghc/tests/simplCore/should_compile/Makefile +++ b/ghc/tests/simplCore/should_compile/Makefile @@ -2,7 +2,7 @@ TOP = ../.. include $(TOP)/mk/boilerplate.mk include $(TOP)/mk/should_compile.mk -HC_OPTS += -noC -dcore-lint -ddump-simpl +HC_OPTS += -noC -dcore-lint include $(TOP)/mk/target.mk diff --git a/ghc/tests/simplCore/should_compile/simpl001.stderr b/ghc/tests/simplCore/should_compile/simpl001.stderr index 299cfe7..e69de29 100644 --- a/ghc/tests/simplCore/should_compile/simpl001.stderr +++ b/ghc/tests/simplCore/should_compile/simpl001.stderr @@ -1,98 +0,0 @@ - - -================================================================================ -Simplified: -++++{-r3h,x-} :: _forall_ - [tark tarl] - => - (tark -> (tarl -> tark) -> tarl) - -> (tark -> (tarl -> tark) -> tarl) - -> tark - -> (tarl -> tark) - -> tarl -_A>_ 2 {-# L #-} -++++{-r3h,x-} = - _/\_ $x0_tsEh $x1_tsEi -> \ $x2_sDp :: $x0_tsEh - -> ($x1_tsEi -> $x0_tsEh) - -> $x1_tsEi - {-# L #-} - $x2_sDp $x3_sCV :: $x0_tsEh -> ($x1_tsEi -> $x0_tsEh) -> $x1_tsEi - {-# L #-} - $x3_sCV -> - $x3_sCV -g{-r3i,x-} :: _forall_ - [aarD tarO tarQ] - => - {PrelBase.Functor{-2b,p-} aarD} - -> (tarO -> (tarQ -> tarO) -> tarQ) - -> aarD (tarO -> (tarQ -> tarO) -> tarQ) - -> aarD (tarO -> (tarQ -> tarO) -> tarQ) -_A>_ 3 {-# L #-} -g{-r3i,x-} = - _/\_ $x0_asEl $x1_tsEj $x2_tsEk -> \ $x3_sDt :: {PrelBase.Functor{-2b,p-} $x0_asEl} - {-# L #-} - $x3_sDt $x4_sDo :: $x1_tsEj - -> ($x2_tsEk -> $x1_tsEj) - -> $x2_tsEk - {-# L #-} - $x4_sDo $x5_sE2 :: $x0_asEl ($x1_tsEj - -> ($x2_tsEk - -> $x1_tsEj) - -> $x2_tsEk) - {-# L #-} - $x5_sE2 -> - let { - $x7_sDv :: ($x1_tsEj -> ($x2_tsEk -> $x1_tsEj) -> $x2_tsEk) - -> $x1_tsEj - -> ($x2_tsEk -> $x1_tsEj) - -> $x2_tsEk - _A>_ 1 {-# L #-} - $x7_sDv = - \ $x6_sDu :: $x1_tsEj -> ($x2_tsEk -> $x1_tsEj) -> $x2_tsEk - {-# L #-} - $x6_sDu -> - $x4_sDo - } in - $x3_sDt - _@_ ($x1_tsEj -> ($x2_tsEk -> $x1_tsEj) -> $x2_tsEk) - _@_ ($x1_tsEj -> ($x2_tsEk -> $x1_tsEj) -> $x2_tsEk) - $x7_sDv - $x5_sE2 -h{-r3j,x-} :: _forall_ - [aas8 task tasm] - => - {PrelBase.Functor{-2b,p-} aas8} - -> (task -> (tasm -> task) -> tasm) - -> aas8 (task -> (tasm -> task) -> tasm) - -> aas8 (task -> (tasm -> task) -> tasm) -_A>_ 3 {-# L #-} -h{-r3j,x-} = - _/\_ $x0_asEu $x1_tsEs $x2_tsEt -> \ $x3_sE6 :: {PrelBase.Functor{-2b,p-} $x0_asEu} - {-# L #-} - $x3_sE6 $x4_sEm :: $x1_tsEs - -> ($x2_tsEt -> $x1_tsEs) - -> $x2_tsEt - {-# L #-} - $x4_sEm $x5_sEn :: $x0_asEu ($x1_tsEs - -> ($x2_tsEt - -> $x1_tsEs) - -> $x2_tsEt) - {-# L #-} - $x5_sEn -> - let { - $x7_sE7 :: ($x1_tsEs -> ($x2_tsEt -> $x1_tsEs) -> $x2_tsEt) - -> $x1_tsEs - -> ($x2_tsEt -> $x1_tsEs) - -> $x2_tsEt - _A>_ 1 {-# L #-} - $x7_sE7 = - \ $x6_sDY :: $x1_tsEs -> ($x2_tsEt -> $x1_tsEs) -> $x2_tsEt - {-# L #-} - $x6_sDY -> - $x6_sDY - } in - $x3_sE6 - _@_ ($x1_tsEs -> ($x2_tsEt -> $x1_tsEs) -> $x2_tsEt) - _@_ ($x1_tsEs -> ($x2_tsEt -> $x1_tsEs) -> $x2_tsEt) - $x7_sE7 - $x5_sEn diff --git a/ghc/tests/simplCore/should_compile/simpl002.stderr b/ghc/tests/simplCore/should_compile/simpl002.stderr index b43ee5c..e69de29 100644 --- a/ghc/tests/simplCore/should_compile/simpl002.stderr +++ b/ghc/tests/simplCore/should_compile/simpl002.stderr @@ -1,90 +0,0 @@ - - -================================================================================ -Simplified: -$g0_g0 :: [PrelBase.Char{-38,W-}] -{-# L #-} -$g0_g0 = - PackBase.unpackCString#{-8F,w-} "xxx" -$d1{-rE0,x-} :: _forall_ - [a_tr3g b_tr3h c_tr3i] - => - {Foo{-r3j,x-} a_tr3g} - -> {Foo{-r3j,x-} b_tr3h} - -> {Foo{-r3j,x-} c_tr3i} - -> {Foo{-r3j,x-} (Wibble{-r3w,x-} a_tr3g b_tr3h c_tr3i)} -_A>_ 3 {-# L #-} -$d1{-rE0,x-} = - _/\_ $x0_tsGS $x1_tsGT $x2_tsGU -> \ $x3_sGV :: {Foo{-r3j,x-} $x0_tsGS} - {-# L #-} - $x3_sGV $x4_sGW :: {Foo{-r3j,x-} $x1_tsGT} - {-# L #-} - $x4_sGW $x5_sGX :: {Foo{-r3j,x-} $x2_tsGU} - {-# L #-} - $x5_sGX -> - let { - $x8_sFS :: PrelBase.Int{-3g,W-} - -> Wibble{-r3w,x-} $x0_tsGS $x1_tsGT $x2_tsGU - -> PrelBase.Bool{-34,W-} - _A>_ 2 {-# L #-} - $x8_sFS = - \ $x6_sH5 :: PrelBase.Int{-3g,W-} - {-# L #-} - $x6_sH5 $x7_sH4 :: Wibble{-r3w,x-} $x0_tsGS $x1_tsGT $x2_tsGU - {-# L #-} - $x7_sH4 -> - IOBase.error{-87,w-} _@_ PrelBase.Bool{-34,W-} $g0_g0 } in - let { - $x9_sGY :: PrelBase.Int{-3g,W-} - -> Wibble{-r3w,x-} $x0_tsGS $x1_tsGT $x2_tsGU - -> PrelBase.Bool{-34,W-} - _A>_ 2 {-# L #-} - $x9_sGY = - $x8_sFS } in - let { - $xa_sGZ :: {Foo{-r3j,x-} (Wibble{-r3w,x-} $x0_tsGS $x1_tsGT $x2_tsGU)} - _A>_ 2 {-# L #-} - $xa_sGZ = - $x8_sFS - } in $x8_sFS -$d2{-rDV,x-} :: _forall_ - [a_tr3r b_tr3s c_tr3t] - => - {PrelBase.Eval{-24,p-} (Wibble{-r3w,x-} a_tr3r b_tr3s c_tr3t)} -_A>_ 0 {-# L #-} -$d2{-rDV,x-} = - _/\_ $x0_tsH8 $x1_tsH7 $x2_tsH6 -> - let { - $x3_sGM :: {PrelBase.Eval{-24,p-} (Wibble{-r3w,x-} $x0_tsH8 $x1_tsH7 $x2_tsH6)} - {-# L #-} - $x3_sGM = - PrelBase.void{-8G,w-} - } in PrelBase.void{-8G,w-} -MkWibble{-r3y,x-}{i} :: _forall_ - [a_tr3r b_tr3s c_tr3t] - => - a_tr3r -> b_tr3s -> c_tr3t -> Wibble{-r3w,x-} a_tr3r b_tr3s c_tr3t -_A>_ 3 {-# L #-} -MkWibble{-r3y,x-}{i} = - _/\_ $x0_tsH0 $x1_tsH1 $x2_tsH2 -> \ $x3_sGL :: $x0_tsH0 - {-# L #-} - $x3_sGL $x4_sGK :: $x1_tsH1 - {-# L #-} - $x4_sGK $x5_sGJ :: $x2_tsH2 - {-# L #-} - $x5_sGJ -> - MkWibble{-r3y,x-}{i} - {_@_ $x0_tsH0 _@_ $x1_tsH1 _@_ $x2_tsH2 $x3_sGL $x4_sGK $x5_sGJ} -op{-r3x,x-} :: _forall_ - [a_tr3v] - => - {Foo{-r3j,x-} a_tr3v} - -> PrelBase.Int{-3g,W-} - -> a_tr3v - -> PrelBase.Bool{-34,W-} -_A>_ 1 {-# L #-} -op{-r3x,x-} = - _/\_ $x0_tsH3 -> \ $x1_sGI :: {Foo{-r3j,x-} $x0_tsH3} - {-# L #-} - $x1_sGI -> - $x1_sGI diff --git a/ghc/tests/simplCore/should_compile/simpl003.stderr b/ghc/tests/simplCore/should_compile/simpl003.stderr index 214ab08..955d1e1 100644 --- a/ghc/tests/simplCore/should_compile/simpl003.stderr +++ b/ghc/tests/simplCore/should_compile/simpl003.stderr @@ -1,195 +1,2 @@ NOTE: Simplifier still going after 4 iterations; bailing out. - - -================================================================================ -Simplified: -$d1{-rOe,x-} :: _forall_ - [a_tr41] - => - {PrelBase.Eval{-24,p-} (IMonadReturn{-r45,x-} a_tr41)} -_A>_ 0 {-# L #-} -$d1{-rOe,x-} = - _/\_ $x0_ts1mQ -> PrelBase.void{-8G,w-} -IMonadOk{-ra,x-}{i} :: _forall_ - [a_tr41] - => - IMonadState{-r44,x-} -> a_tr41 -> IMonadReturn{-r45,x-} a_tr41 -_A>_ 2 {-# L #-} -IMonadOk{-ra,x-}{i} = - _/\_ $x0_ts1mb -> \ $x1_s1ix :: IMonadState{-r44,x-} - {-# L #-} - $x1_s1ix $x2_s1iw :: $x0_ts1mb - {-# L #-} - $x2_s1iw -> - IMonadOk{-ra,x-}{i} {_@_ $x0_ts1mb $x1_s1ix $x2_s1iw} -returnI{-rf,x-}{i} :: _forall_ - [taEj] - => - taEj -> IMonadState{-r44,x-} -> IMonadReturn{-r45,x-} taEj -_A>_ 2 {-# L #-} -returnI{-rf,x-}{i} = - _/\_ $x0_ts1mf -> \ $x1_s1iv :: $x0_ts1mf - {-# L #-} - $x1_s1iv $x2_s1iu :: IMonadState{-r44,x-} - {-# L #-} - $x2_s1iu -> - IMonadOk{-ra,x-}{i} {_@_ $x0_ts1mf $x2_s1iu $x1_s1iv} -IMonadFail{-r9,x-}{i} :: _forall_ - [a_tr41] - => - IMonadState{-r44,x-} - -> PrelBase.String{-rgk,p-} - -> IMonadReturn{-r45,x-} a_tr41 -_A>_ 2 {-# L #-} -IMonadFail{-r9,x-}{i} = - _/\_ $x0_ts1mj -> \ $x1_s1it :: IMonadState{-r44,x-} - {-# L #-} - $x1_s1it $x2_s1is :: PrelBase.String{-rgk,p-} - {-# L #-} - $x2_s1is -> - IMonadFail{-r9,x-}{i} {_@_ $x0_ts1mj $x1_s1it $x2_s1is} -thenI{-rd,x-}{i} :: _forall_ - [taDN taDA taDE] - => - (taDN -> IMonadReturn{-r45,x-} taDE) - -> (taDE -> IMonadState{-r44,x-} -> IMonadReturn{-r45,x-} taDA) - -> taDN - -> IMonadReturn{-r45,x-} taDA -_A>_ 3 {-# L #-} -thenI{-rd,x-}{i} = - _/\_ $x0_ts1mt $x1_ts1mv $x2_ts1mu -> \ $x3_s1hN :: $x0_ts1mt - -> IMonadReturn{-r45,x-} $x2_ts1mu - {-# L #-} - $x3_s1hN $x4_s1i5 :: $x2_ts1mu - -> IMonadState{-r44,x-} - -> IMonadReturn{-r45,x-} $x1_ts1mv - {-# L #-} - $x4_s1i5 $x5_s1ir :: $x0_ts1mt - {-# L #-} - $x5_s1ir -> - case $x3_s1hN $x5_s1ir of { - IMonadFail{-r9,x-}{i} $x6_s1iz $x7_s1iy -> - IMonadFail{-r9,x-}{i} {_@_ $x1_ts1mv $x6_s1iz $x7_s1iy}; - IMonadOk{-ra,x-}{i} $x8_s1iB $x9_s1iA -> - $x4_s1i5 $x9_s1iA $x8_s1iB; - } -Rec { -$g0_s11s{n} :: _forall_ - [tsXl tsXm] - => - (tsXl -> IMonadState{-r44,x-} -> IMonadReturn{-r45,x-} tsXm) - -> [tsXl] - -> IMonadState{-r44,x-} - -> IMonadReturn{-r45,x-} [tsXm] -_A>_ 2 {-# L #-} -$g0_s11s{n} = - _/\_ $x0_ts1iP $x1_ts1iQ -> \ $x2_s1jb :: $x0_ts1iP - -> IMonadState{-r44,x-} - -> IMonadReturn{-r45,x-} $x1_ts1iQ - {-# L #-} - $x2_s1jb $x3_s1iq :: [$x0_ts1iP] - {-# L #-} - $x3_s1iq -> - case $x3_s1iq of { - PrelBase.[]{-5i,w-}{i} -> - let { - $x4_s1mx :: [$x1_ts1iQ] - _A>_ 0 {-# L #-} - $x4_s1mx = - PrelBase.[]{-5i,w-}{i} {_@_ $x1_ts1iQ} - } in - \ $x5_s1mw :: IMonadState{-r44,x-} - {-# L #-} - $x5_s1mw -> - IMonadOk{-ra,x-}{i} {_@_ [$x1_ts1iQ] $x5_s1mw $x4_s1mx}; - PrelBase.:{-55,w-}{i} $x6_s1jc $x7_s1jd -> - let { - $x8_s1jn :: IMonadState{-r44,x-} - -> IMonadReturn{-r45,x-} $x1_ts1iQ - _A>_ 0 {-# L #-} - $x8_s1jn = - $x2_s1jb $x6_s1jc - } in - \ $x9_s1my :: IMonadState{-r44,x-} - {-# L #-} - $x9_s1my -> - case $x8_s1jn $x9_s1my of { - IMonadFail{-r9,x-}{i} $xa_s1mz $xb_s1mA -> - IMonadFail{-r9,x-}{i} {_@_ [$x1_ts1iQ] $xa_s1mz $xb_s1mA}; - IMonadOk{-ra,x-}{i} $xc_s1mB $xd_s1kg -> - let { - $xe_s1jP :: IMonadState{-r44,x-} - -> IMonadReturn{-r45,x-} [$x1_ts1iQ] - _A>_ 0 {-# L #-} - $xe_s1jP = - $g0_s11s{n} _@_ $x0_ts1iP _@_ $x1_ts1iQ $x2_s1jb $x7_s1jd - } in - case - $g0_s11s{n} _@_ $x0_ts1iP _@_ $x1_ts1iQ $x2_s1jb $x7_s1jd $xc_s1mB - of { - IMonadFail{-r9,x-}{i} $xf_s1mC $xg_s1mD -> - IMonadFail{-r9,x-}{i} {_@_ [$x1_ts1iQ] $xf_s1mC $xg_s1mD}; - IMonadOk{-ra,x-}{i} $xh_s1mE $xi_s1mF -> - let { - $xj_s1mG :: [$x1_ts1iQ] - _A>_ 0 {-# L #-} - $xj_s1mG = - PrelBase.:{-55,w-}{i} {_@_ $x1_ts1iQ $xd_s1kg $xi_s1mF} - } in IMonadOk{-ra,x-}{i} {_@_ [$x1_ts1iQ] $xh_s1mE $xj_s1mG}; - }; - }; - } -end Rec } -mapI{-rb,x-}{i} :: _forall_ - [taEH taF6] - => - (taEH -> IMonadState{-r44,x-} -> IMonadReturn{-r45,x-} taF6) - -> [taEH] - -> IMonadState{-r44,x-} - -> IMonadReturn{-r45,x-} [taF6] -_A>_ 2 {-# L #-} -mapI{-rb,x-}{i} = - _/\_ $x0_ts1mH $x1_ts1mI -> $g0_s11s{n} _@_ $x0_ts1mH _@_ $x1_ts1mI -failI{-re,x-}{i} :: _forall_ - [taE3] - => - PrelBase.String{-rgk,p-} - -> IMonadState{-r44,x-} - -> IMonadReturn{-r45,x-} taE3 -_A>_ 2 {-# L #-} -failI{-re,x-}{i} = - _/\_ $x0_ts1mM -> \ $x1_s1l0 :: PrelBase.String{-rgk,p-} - {-# L #-} - $x1_s1l0 $x2_s1kZ :: IMonadState{-r44,x-} - {-# L #-} - $x2_s1kZ -> - IMonadFail{-r9,x-}{i} {_@_ $x0_ts1mM $x2_s1kZ $x1_s1l0} -$g1_aOn :: IMonadState{-r44,x-} - -> IMonadState{-r44,x-} - -> IMonadState{-r44,x-} -_A>_ 0 {-# L #-} -$g1_aOn = - case - PrelBase.$d4{-rbh,p-} - of { - PrelTup.(,,,,,,,,,,){-6b,w-}{i} $x0_s1lt $x1_s1lu $x2_s1lv $x3_s1ls $x4_s1lw $x5_s1lx $x6_s1ly $x7_s1lz $x8_s1lA $x9_s1lB $xa_s1lC -> - $x3_s1ls;} -tickI{-rc,x-} :: IMonadState{-r44,x-} - -> IMonadState{-r44,x-} - -> IMonadReturn{-r45,x-} PrelBase.(){-40,W-} -_A>_ 2 {-# L #-} -tickI{-rc,x-} = - \ $x0_s1mN :: IMonadState{-r44,x-} - {-# L #-} - $x0_s1mN $x1_s1mO :: IMonadState{-r44,x-} - {-# L #-} - $x1_s1mO -> - let { - $x2_s1mP :: IMonadState{-r44,x-} - _A>_ 0 {-# L #-} - $x2_s1mP = - $g1_aOn $x1_s1mO $x0_s1mN - } in - IMonadOk{-ra,x-}{i} - {_@_ PrelBase.(){-40,W-} $x2_s1mP PrelBase.(){-60,w-}{i}} diff --git a/ghc/tests/stranal/should_compile/Makefile b/ghc/tests/stranal/should_compile/Makefile index 525335c..6ca3886 100644 --- a/ghc/tests/stranal/should_compile/Makefile +++ b/ghc/tests/stranal/should_compile/Makefile @@ -2,6 +2,6 @@ TOP = ../.. include $(TOP)/mk/boilerplate.mk include $(TOP)/mk/should_compile.mk -HC_OPTS += -noC -O -ddump-simpl -dcore-lint -dppr-user +HC_OPTS += -noC -O -dcore-lint include $(TOP)/mk/target.mk diff --git a/ghc/tests/stranal/should_compile/fun.stderr b/ghc/tests/stranal/should_compile/fun.stderr index df85b42..e69de29 100644 --- a/ghc/tests/stranal/should_compile/fun.stderr +++ b/ghc/tests/stranal/should_compile/fun.stderr @@ -1,29 +0,0 @@ - - -================================================================================ -Simplified: -`$d1' :: `{PrelBase.Eval (LList a)}' -`$d1' = - _/\_ `$x0' -> `PrelBase.void' -`MkFun' :: `(Fun -> Fun) -> Fun' -`MkFun' = - \ `$x0' :: `Fun -> Fun' - `$x0' -> - `MkFun' {`$x0'} -`Nill' :: `LList a' -`Nill' = - _/\_ `$x0' -> `Nill' {_@_ `$x0'} -`Conss' :: `a -> LList a -> LList a' -`Conss' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' `$x2' :: `LList $x0' - `$x2' -> - `Conss' {_@_ `$x0' `$x1' `$x2'} -`$d2' :: `{PrelBase.Eval Fun}' -`$d2' = - `PrelBase.void' -`g' :: `Fun -> Fun' -`g' = - \ `$x0' :: `Fun' - `$x0' -> - `$x0' diff --git a/ghc/tests/stranal/should_compile/goo.stderr b/ghc/tests/stranal/should_compile/goo.stderr index 7a750e5..e69de29 100644 --- a/ghc/tests/stranal/should_compile/goo.stderr +++ b/ghc/tests/stranal/should_compile/goo.stderr @@ -1,36 +0,0 @@ - - -================================================================================ -Simplified: -`$d2' :: `{PrelBase.Eval (Goo a)}' -`$d2' = - _/\_ `$x0' -> `PrelBase.void' -`$d1' :: `{PrelBase.Eval (Moo a b)}' -`$d1' = - _/\_ `$x0' `$x1' -> `PrelBase.void' -`idMoo' :: `Moo taBA taBB -> Moo taBA taBB' -`idMoo' = - _/\_ `$x0' `$x1' -> \ `$x2' :: `Moo $x0 $x1' - `$x2' -> - `$x2' -`idGoo' :: `Goo taBL -> Goo taBL' -`idGoo' = - _/\_ `$x0' -> \ `$x1' :: `Goo $x0' - `$x1' -> - `$x1' -`Msimple' :: `Moo a b' -`Msimple' = - _/\_ `$x0' `$x1' -> `Msimple' {_@_ `$x0' _@_ `$x1'} -`Mcompl' :: `Moo b a -> Moo a b' -`Mcompl' = - _/\_ `$x0' `$x1' -> \ `$x2' :: `Moo $x1 $x0' - `$x2' -> - `Mcompl' {_@_ `$x0' _@_ `$x1' `$x2'} -`Gsimpl' :: `Goo a' -`Gsimpl' = - _/\_ `$x0' -> `Gsimpl' {_@_ `$x0'} -`Gcompl' :: `[Goo a] -> Goo a' -`Gcompl' = - _/\_ `$x0' -> \ `$x1' :: `[Goo $x0]' - `$x1' -> - `Gcompl' {_@_ `$x0' `$x1'} diff --git a/ghc/tests/stranal/should_compile/ins.stderr b/ghc/tests/stranal/should_compile/ins.stderr index 5216818..e69de29 100644 --- a/ghc/tests/stranal/should_compile/ins.stderr +++ b/ghc/tests/stranal/should_compile/ins.stderr @@ -1,121 +0,0 @@ - - -================================================================================ -Simplified: -`$d5' :: `{PrelBase.Eval (Pair a b)}' -`$d5' = - _/\_ `$x0' `$x1' -> `PrelBase.void' -`$d4' :: `{PrelBase.Eval (LList alpha)}' -`$d4' = - _/\_ `$x0' -> `PrelBase.void' -`$d2' :: `{PrelBase.Eval (Tree x)}' -`$d2' = - _/\_ `$x0' -> `PrelBase.void' -`$d1' :: `{PrelBase.Eval (A a)}' -`$d1' = - _/\_ `$x0' -> `PrelBase.void' -`MkA' :: `a -> A a -> A a' -`MkA' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' `$x2' :: `A $x0' - `$x2' -> - `MkA' {_@_ `$x0' `$x1' `$x2'} -`MkPair' :: `a -> b -> Pair a b' -`MkPair' = - _/\_ `$x0' `$x1' -> \ `$x2' :: `$x0' - `$x2' `$x3' :: `$x1' - `$x3' -> - `MkPair' {_@_ `$x0' _@_ `$x1' `$x2' `$x3'} -`Leaf' :: `x -> Tree x' -`Leaf' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' -> - `Leaf' {_@_ `$x0' `$x1'} -`Node' :: `Tree x -> Tree x -> Tree x' -`Node' = - _/\_ `$x0' -> \ `$x1' :: `Tree $x0' - `$x1' `$x2' :: `Tree $x0' - `$x2' -> - `Node' {_@_ `$x0' `$x1' `$x2'} -`Zero' :: `Nat' -`Zero' = - `Zero' {} -`Succ' :: `Nat -> Nat' -`Succ' = - \ `$x0' :: `Nat' - `$x0' -> - `Succ' {`$x0'} -`Nill' :: `LList alpha' -`Nill' = - _/\_ `$x0' -> `Nill' {_@_ `$x0'} -`Conss' :: `alpha -> LList alpha -> LList alpha' -`Conss' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' `$x2' :: `LList $x0' - `$x2' -> - `Conss' {_@_ `$x0' `$x1' `$x2'} -Rec { -`append' :: `LList taCl -> LList taCl -> LList taCl' -`append' = - _/\_ `$x0' -> \ `$x1' :: `LList $x0' - `$x1' `$x2' :: `LList $x0' - `$x2' -> - case `$x1' of { - `Nill' -> `$x2'; - `Conss' `$x3' `$x4' -> - let { - `$x5' :: `LList $x0' - `$x5' = - `append' _@_ `$x0' `$x4' `$x2' - } in `Conss' {_@_ `$x0' `$x3' `$x5'}; - } -end Rec } -Rec { -`flat' :: `Tree (Pair taCO taCP) -> LList taCO' -`flat' = - _/\_ `$x0' `$x1' -> \ `$x2' :: `Tree (Pair $x1 $x0)' - `$x2' -> - case `$x2' of { - `Leaf' `$x3' -> - case `$x3' of { `MkPair' `$x4' `$x5' -> - let { - `$x6' :: `LList $x1' - `$x6' = - `Nill' {_@_ `$x1'} - } in `Conss' {_@_ `$x1' `$x4' `$x6'};}; - `Node' `$x7' `$x8' -> - let { - `$x9' :: `LList $x1' - `$x9' = - `flat' _@_ `$x0' _@_ `$x1' `$x8' - } in - case `flat' _@_ `$x0' _@_ `$x1' `$x7' of { `$xa' -> - `append' _@_ `$x1' `$xa' `$x9';}; - } -end Rec } -`FF' :: `Boolean' -`FF' = - `FF' {} -`TT' :: `Boolean' -`TT' = - `TT' {} -`$d6' :: `{PrelBase.Eval Boolean}' -`$d6' = - `PrelBase.void' -`$d3' :: `{PrelBase.Eval Nat}' -`$d3' = - `PrelBase.void' -`$g0' :: `Pair Boolean Nat' -`$g0' = - `MkPair' {_@_ `Boolean' _@_ `Nat' `TT' `Zero'} -`$g1' :: `Tree (Pair Boolean Nat)' -`$g1' = - `Leaf' {_@_ (`Pair' `Boolean' `Nat') `$g0'} -`$g2' :: `LList Boolean' -`$g2' = - `flat' _@_ `Nat' _@_ `Boolean' `$g1' -`fl' :: `Boolean -> LList Boolean' -`fl' = - \ `$x0' :: `Boolean' - `$x0' -> - `$g2' diff --git a/ghc/tests/stranal/should_compile/map.stderr b/ghc/tests/stranal/should_compile/map.stderr index 92701e8..e69de29 100644 --- a/ghc/tests/stranal/should_compile/map.stderr +++ b/ghc/tests/stranal/should_compile/map.stderr @@ -1,89 +0,0 @@ - - -================================================================================ -Simplified: -`$d5' :: `{PrelBase.Eval (Pair a b)}' -`$d5' = - _/\_ `$x0' `$x1' -> `PrelBase.void' -`$d4' :: `{PrelBase.Eval (LList alpha)}' -`$d4' = - _/\_ `$x0' -> `PrelBase.void' -`$d2' :: `{PrelBase.Eval (Tree x)}' -`$d2' = - _/\_ `$x0' -> `PrelBase.void' -`$d1' :: `{PrelBase.Eval (A a)}' -`$d1' = - _/\_ `$x0' -> `PrelBase.void' -`MkA' :: `a -> A a -> A a' -`MkA' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' `$x2' :: `A $x0' - `$x2' -> - `MkA' {_@_ `$x0' `$x1' `$x2'} -`MkPair' :: `a -> b -> Pair a b' -`MkPair' = - _/\_ `$x0' `$x1' -> \ `$x2' :: `$x0' - `$x2' `$x3' :: `$x1' - `$x3' -> - `MkPair' {_@_ `$x0' _@_ `$x1' `$x2' `$x3'} -`fun' :: `(taCj -> taCk) -> taCj -> taCk' -`fun' = - _/\_ `$x0' `$x1' -> \ `$x2' :: `$x0 -> $x1' - `$x2' `$x3' :: `$x0' - `$x3' -> - `$x2' `$x3' -`my_id' :: `taCT -> taCT' -`my_id' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' -> - `$x1' -`Leaf' :: `x -> Tree x' -`Leaf' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' -> - `Leaf' {_@_ `$x0' `$x1'} -`Node' :: `Tree x -> Tree x -> Tree x' -`Node' = - _/\_ `$x0' -> \ `$x1' :: `Tree $x0' - `$x1' `$x2' :: `Tree $x0' - `$x2' -> - `Node' {_@_ `$x0' `$x1' `$x2'} -`Zero' :: `Nat' -`Zero' = - `Zero' {} -`Succ' :: `Nat -> Nat' -`Succ' = - \ `$x0' :: `Nat' - `$x0' -> - `Succ' {`$x0'} -`Nill' :: `LList alpha' -`Nill' = - _/\_ `$x0' -> `Nill' {_@_ `$x0'} -`Conss' :: `alpha -> LList alpha -> LList alpha' -`Conss' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' `$x2' :: `LList $x0' - `$x2' -> - `Conss' {_@_ `$x0' `$x1' `$x2'} -`FF' :: `Boolean' -`FF' = - `FF' {} -`TT' :: `Boolean' -`TT' = - `TT' {} -`$d6' :: `{PrelBase.Eval Boolean}' -`$d6' = - `PrelBase.void' -`$d3' :: `{PrelBase.Eval Nat}' -`$d3' = - `PrelBase.void' -`idNat' :: `Nat -> Nat' -`idNat' = - \ `$x0' :: `Nat' - `$x0' -> - `$x0' -`idBool' :: `Boolean -> Boolean' -`idBool' = - \ `$x0' :: `Boolean' - `$x0' -> - `$x0' diff --git a/ghc/tests/stranal/should_compile/sim.stderr b/ghc/tests/stranal/should_compile/sim.stderr index c61de80..e69de29 100644 --- a/ghc/tests/stranal/should_compile/sim.stderr +++ b/ghc/tests/stranal/should_compile/sim.stderr @@ -1,83 +0,0 @@ - - -================================================================================ -Simplified: -`$d5' :: `{PrelBase.Eval (Pair a b)}' -`$d5' = - _/\_ `$x0' `$x1' -> `PrelBase.void' -`$d4' :: `{PrelBase.Eval (LList alpha)}' -`$d4' = - _/\_ `$x0' -> `PrelBase.void' -`$d2' :: `{PrelBase.Eval (Tree x)}' -`$d2' = - _/\_ `$x0' -> `PrelBase.void' -`$d1' :: `{PrelBase.Eval (A a)}' -`$d1' = - _/\_ `$x0' -> `PrelBase.void' -`MkA' :: `a -> A a -> A a' -`MkA' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' `$x2' :: `A $x0' - `$x2' -> - `MkA' {_@_ `$x0' `$x1' `$x2'} -`MkPair' :: `a -> b -> Pair a b' -`MkPair' = - _/\_ `$x0' `$x1' -> \ `$x2' :: `$x0' - `$x2' `$x3' :: `$x1' - `$x3' -> - `MkPair' {_@_ `$x0' _@_ `$x1' `$x2' `$x3'} -`Leaf' :: `x -> Tree x' -`Leaf' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' -> - `Leaf' {_@_ `$x0' `$x1'} -`Node' :: `Tree x -> Tree x -> Tree x' -`Node' = - _/\_ `$x0' -> \ `$x1' :: `Tree $x0' - `$x1' `$x2' :: `Tree $x0' - `$x2' -> - `Node' {_@_ `$x0' `$x1' `$x2'} -`Zero' :: `Nat' -`Zero' = - `Zero' {} -`Succ' :: `Nat -> Nat' -`Succ' = - \ `$x0' :: `Nat' - `$x0' -> - `Succ' {`$x0'} -`Nill' :: `LList alpha' -`Nill' = - _/\_ `$x0' -> `Nill' {_@_ `$x0'} -`Conss' :: `alpha -> LList alpha -> LList alpha' -`Conss' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' `$x2' :: `LList $x0' - `$x2' -> - `Conss' {_@_ `$x0' `$x1' `$x2'} -Rec { -`idl' :: `LList taC1 -> LList taC1' -`idl' = - _/\_ `$x0' -> \ `$x1' :: `LList $x0' - `$x1' -> - case `$x1' of { - `Nill' -> `Nill' {_@_ `$x0'}; - `Conss' `$x2' `$x3' -> - let { - `$x4' :: `LList $x0' - `$x4' = - `idl' _@_ `$x0' `$x3' - } in `Conss' {_@_ `$x0' `$x2' `$x4'}; - } -end Rec } -`FF' :: `Boolean' -`FF' = - `FF' {} -`TT' :: `Boolean' -`TT' = - `TT' {} -`$d6' :: `{PrelBase.Eval Boolean}' -`$d6' = - `PrelBase.void' -`$d3' :: `{PrelBase.Eval Nat}' -`$d3' = - `PrelBase.void' diff --git a/ghc/tests/stranal/should_compile/syn.stderr b/ghc/tests/stranal/should_compile/syn.stderr index cc51a99..e69de29 100644 --- a/ghc/tests/stranal/should_compile/syn.stderr +++ b/ghc/tests/stranal/should_compile/syn.stderr @@ -1,62 +0,0 @@ - - -================================================================================ -Simplified: -`$d2' :: `{PrelBase.Eval (M a)}' -`$d2' = - _/\_ `$x0' -> `PrelBase.void' -`$d1' :: `{PrelBase.Eval (L a)}' -`$d1' = - _/\_ `$x0' -> `PrelBase.void' -`N' :: `L a' -`N' = - _/\_ `$x0' -> `N' {_@_ `$x0'} -`C' :: `a -> Syn a -> L a' -`C' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' `$x2' :: `Syn $x0' - `$x2' -> - `C' {_@_ `$x0' `$x1' `$x2'} -Rec { -`idL' :: `L (Syn taBE) -> L (Syn taBE)' -`idL' = - _/\_ `$x0' -> \ `$x1' :: `L (Syn $x0)' - `$x1' -> - case `$x1' of { - `N' -> `N' {_@_ (`Syn' `$x0')}; - `C' `$x2' `$x3' -> - let { - `$x4' :: `L (Syn $x0)' - `$x4' = - `idL' _@_ `$x0' `$x3' - } in `C' {_@_ (`Syn' `$x0') `$x2' `$x4'}; - } -end Rec } -`A' :: `M a' -`A' = - _/\_ `$x0' -> `A' {_@_ `$x0'} -`B' :: `a -> M a -> M a' -`B' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' `$x2' :: `M $x0' - `$x2' -> - `B' {_@_ `$x0' `$x1' `$x2'} -Rec { -`idM' :: `M (L (Syn taC4)) -> M (L (Syn taC4))' -`idM' = - _/\_ `$x0' -> \ `$x1' :: `M (L (Syn $x0))' - `$x1' -> - case `$x1' of { - `A' -> `A' {_@_ (`L' (`Syn' `$x0'))}; - `B' `$x2' `$x3' -> - let { - `$x4' :: `M (L (Syn $x0))' - `$x4' = - `idM' _@_ `$x0' `$x3' } in - let { - `$x5' :: `L (Syn $x0)' - `$x5' = - `idL' _@_ `$x0' `$x2' - } in `B' {_@_ (`L' (`Syn' `$x0')) `$x5' `$x4'}; - } -end Rec } diff --git a/ghc/tests/stranal/should_compile/test.stderr b/ghc/tests/stranal/should_compile/test.stderr index 78affa4..e69de29 100644 --- a/ghc/tests/stranal/should_compile/test.stderr +++ b/ghc/tests/stranal/should_compile/test.stderr @@ -1,33 +0,0 @@ - - -================================================================================ -Simplified: -`$d2' :: `{PrelBase.Eval (LList t)}' -`$d2' = - _/\_ `$x0' -> `PrelBase.void' -`TTrue' :: `BBool' -`TTrue' = - `TTrue' {} -`FFalse' :: `BBool' -`FFalse' = - `FFalse' {} -`f' :: `LList taBg -> BBool' -`f' = - _/\_ `$x0' -> \ `$x1' :: `LList $x0' - `$x1' -> - case `$x1' of { - `Nill' -> `TTrue' {}; - `Conss' `$x2' `$x3' -> `FFalse' {}; - } -`Nill' :: `LList t' -`Nill' = - _/\_ `$x0' -> `Nill' {_@_ `$x0'} -`Conss' :: `t -> LList t -> LList t' -`Conss' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' `$x2' :: `LList $x0' - `$x2' -> - `Conss' {_@_ `$x0' `$x1' `$x2'} -`$d1' :: `{PrelBase.Eval BBool}' -`$d1' = - `PrelBase.void' diff --git a/ghc/tests/stranal/should_compile/tst.stderr b/ghc/tests/stranal/should_compile/tst.stderr index 42ad81c..e69de29 100644 --- a/ghc/tests/stranal/should_compile/tst.stderr +++ b/ghc/tests/stranal/should_compile/tst.stderr @@ -1,13 +0,0 @@ - - -================================================================================ -Simplified: -`a' :: `[takb] -> [[takb]]' -`a' = - _/\_ `$x0' -> \ `$x1' :: `[$x0]' - `$x1' -> - let { - `$x2' :: `[[$x0]]' - `$x2' = - `PrelBase.[]' {_@_ [`$x0']} - } in `PrelBase.:' {_@_ [`$x0'] `$x1' `$x2'} diff --git a/ghc/tests/stranal/should_compile/unu.stderr b/ghc/tests/stranal/should_compile/unu.stderr index a5a8c1c..e69de29 100644 --- a/ghc/tests/stranal/should_compile/unu.stderr +++ b/ghc/tests/stranal/should_compile/unu.stderr @@ -1,96 +0,0 @@ - - -================================================================================ -Simplified: -`$d6' :: `{PrelBase.Eval (Pair a b)}' -`$d6' = - _/\_ `$x0' `$x1' -> `PrelBase.void' -`$d5' :: `{PrelBase.Eval (LList alpha)}' -`$d5' = - _/\_ `$x0' -> `PrelBase.void' -`$d3' :: `{PrelBase.Eval (Tree t)}' -`$d3' = - _/\_ `$x0' -> `PrelBase.void' -`$d2' :: `{PrelBase.Eval (A a)}' -`$d2' = - _/\_ `$x0' -> `PrelBase.void' -`$d1' :: `{PrelBase.Eval (Foo baz)}' -`$d1' = - _/\_ `$x0' -> `PrelBase.void' -`MkFoo' :: `Foo (Foo baz) -> Foo baz' -`MkFoo' = - _/\_ `$x0' -> \ `$x1' :: `Foo (Foo $x0)' - `$x1' -> - `MkFoo' {_@_ `$x0' `$x1'} -`MkA' :: `a -> A a -> A a' -`MkA' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' `$x2' :: `A $x0' - `$x2' -> - `MkA' {_@_ `$x0' `$x1' `$x2'} -`Mkpair' :: `a -> b -> Pair a b' -`Mkpair' = - _/\_ `$x0' `$x1' -> \ `$x2' :: `$x0' - `$x2' `$x3' :: `$x1' - `$x3' -> - `Mkpair' {_@_ `$x0' _@_ `$x1' `$x2' `$x3'} -`Leaf' :: `t -> Tree t' -`Leaf' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' -> - `Leaf' {_@_ `$x0' `$x1'} -`Node' :: `Tree t -> Tree t -> Tree t' -`Node' = - _/\_ `$x0' -> \ `$x1' :: `Tree $x0' - `$x1' `$x2' :: `Tree $x0' - `$x2' -> - `Node' {_@_ `$x0' `$x1' `$x2'} -`Zero' :: `Nat' -`Zero' = - `Zero' {} -`Succ' :: `Nat -> Nat' -`Succ' = - \ `$x0' :: `Nat' - `$x0' -> - `Succ' {`$x0'} -`Nill' :: `LList alpha' -`Nill' = - _/\_ `$x0' -> `Nill' {_@_ `$x0'} -`Conss' :: `alpha -> LList alpha -> LList alpha' -`Conss' = - _/\_ `$x0' -> \ `$x1' :: `$x0' - `$x1' `$x2' :: `LList $x0' - `$x2' -> - `Conss' {_@_ `$x0' `$x1' `$x2'} -Rec { -`app' :: `LList taCh -> LList taCh -> LList taCh' -`app' = - _/\_ `$x0' -> \ `$x1' :: `LList $x0' - `$x1' `$x2' :: `LList $x0' - `$x2' -> - case `$x1' of { - `Conss' `$x3' `$x4' -> - let { - `$x5' :: `LList $x0' - `$x5' = - `app' _@_ `$x0' `$x4' `$x2' - } in `Conss' {_@_ `$x0' `$x3' `$x5'}; - `Nill' -> - case `$x2' of { - `Conss' `$x6' `$x7' -> `Conss' {_@_ `$x0' `$x6' `$x7'}; - `Nill' -> `Nill' {_@_ `$x0'}; - }; - } -end Rec } -`FF' :: `Boolean' -`FF' = - `FF' {} -`TT' :: `Boolean' -`TT' = - `TT' {} -`$d7' :: `{PrelBase.Eval Boolean}' -`$d7' = - `PrelBase.void' -`$d4' :: `{PrelBase.Eval Nat}' -`$d4' = - `PrelBase.void' diff --git a/ghc/tests/typecheck/should_compile/Makefile b/ghc/tests/typecheck/should_compile/Makefile index 0526897..c213a80 100644 --- a/ghc/tests/typecheck/should_compile/Makefile +++ b/ghc/tests/typecheck/should_compile/Makefile @@ -2,7 +2,7 @@ TOP = ../.. include $(TOP)/mk/boilerplate.mk include $(TOP)/mk/should_compile.mk -HC_OPTS += -noC -dcore-lint -fno-warn-incomplete-patterns -hi -ddump-tc +HC_OPTS += -noC -dcore-lint -fno-warn-incomplete-patterns -hi tc019_HC_OPTS = -fglasgow-exts tc065_HC_OPTS = -syslib ghc diff --git a/ghc/tests/typecheck/should_run/Makefile b/ghc/tests/typecheck/should_run/Makefile index 7202fd5..7ed54bb 100644 --- a/ghc/tests/typecheck/should_run/Makefile +++ b/ghc/tests/typecheck/should_run/Makefile @@ -1,19 +1,7 @@ TOP = ../.. include $(TOP)/mk/boilerplate.mk +include $(TOP)/mk/should_run.mk -HS_SRCS = $(wildcard *.hs) -BINS = $(patsubst %.o,%,$(HS_OBJS)) -RUNTESTS = $(patsubst %,%.run,$(BINS)) - -SRC_RUNTEST_OPTS += -o1 $*.stdout -o2 $*.stderr -x 0 HC_OPTS += -dcore-lint -all :: $(BINS) $(RUNTESTS) - -%.run : % - $(RUNTEST) $< $(RUNTEST_OPTS) - -% : %.o - $(HC) $(HC_OPTS) $< -o $@ - include $(TOP)/mk/target.mk -- 1.7.10.4