From: simonm Date: Wed, 24 Sep 1997 11:11:27 +0000 (+0000) Subject: [project @ 1997-09-24 11:08:42 by simonm] X-Git-Tag: Approx_2487_patches~1473 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a12162eaea28f3f617c578a7fa61f184050a4859;p=ghc-hetmet.git [project @ 1997-09-24 11:08:42 by simonm] test updates --- 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 bd86684..e69de29 100644 Binary files a/ghc/tests/deSugar/should_compile/ds014.stderr and b/ghc/tests/deSugar/should_compile/ds014.stderr differ 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