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
# 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
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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
-
-
-================================================================================
-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
arising from the result of the _ccall_ to a at cc002.hs:11
When checking signature(s) for: `a'
-
Compilation had errors
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
TOP = ..
include $(TOP)/mk/boilerplate.mk
-SUBDIRS = should_compile
+SUBDIRS = should_run
include $(TOP)/mk/target.mk
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
-"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
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#
-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
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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 }
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 }
-
-
-================================================================================
-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 }
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 }
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 }
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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 }
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 }
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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 }
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 }
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 }
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.
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 }
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 }
-
-================================================================================
-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.
-
-
-================================================================================
-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 }
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 }
-
-
-================================================================================
-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 }
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 }
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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 }
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 }
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 }
-
-================================================================================
-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.
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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 }
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 }
-
-================================================================================
-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.
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 }
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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 }
-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
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
-
-
-================================================================================
-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_
-
-
-================================================================================
-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_
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-}) "<NoSrcLoc>|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-}) "<NoSrcLoc>|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_
-
-
-================================================================================
-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_
-
-
-================================================================================
-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_
-
-================================================================================
-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
-
-================================================================================
-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
-
-
-================================================================================
-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_
-
-
-================================================================================
-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_
-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
-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
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
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
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
-
-
-================================================================================
-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
-
-
-================================================================================
-Reader:
-module Main where
-{- rec -}
-main = print "Hello"
-
-
-================================================================================
-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
-
-
-================================================================================
-Reader:
+==================== Reader ====================
module OneOfEverything (
fixn, FooData, FooDataB(..), FooDataC(..), EqTree(EqLeaf,
EqBranch), EqClass(..), OrdClass(orda,
data FooDataB = FooConB Double
data FooData = FooCon Int
type Pair a b = (a, b)
+
read001.hs:17: Could not find valid interface file `OneA'
read001.hs:20: Module OneC does not export `fC'
-
Compilation had errors
-
-
-================================================================================
-Reader:
+==================== Reader ====================
module Read003 where
{- rec -}
~(a, b, c)
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
where
nullity = PrelList.null'
-
Compilation had errors
rnfail001.hs:3: Conflicting definitions for `x' in pattern
-
Compilation had errors
Defined at rnfail002.hs:6
Defined at rnfail002.hs:5
-
Compilation had errors
Defined at rnfail003.hs:4
Defined at rnfail003.hs:2
-
Compilation had errors
rnfail004.hs:7: Conflicting definitions for `b' in binding group
-
Compilation had errors
rnfail007.hs:3: Module Main must include a definition for `Main.main'
-
Compilation had errors
-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'
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
Defined at rnfail009.hs:5
Defined at rnfail009.hs:3
-
Compilation had errors
Defined at rnfail010.hs:6
Defined at rnfail010.hs:2
-
Compilation had errors
Defined at rnfail011.hs:6
Defined at rnfail011.hs:2
-
Compilation had errors
Defined at rnfail012.hs:9
Defined at rnfail012.hs:3
-
Compilation had errors
Defined at rnfail013.hs:9
Defined at rnfail013.hs:7
-
Compilation had errors
that do not appear in `Eq Bool'
in the type signature for an instance decl
-
Compilation had errors
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
-
-
-================================================================================
-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
-
-
-================================================================================
-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
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}}
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
-
-
-================================================================================
-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'
-
-
-================================================================================
-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'}
-
-
-================================================================================
-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'
-
-
-================================================================================
-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'
-
-
-================================================================================
-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'
-
-
-================================================================================
-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 }
-
-
-================================================================================
-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'
-
-
-================================================================================
-Simplified:
-`a' :: `[takb] -> [[takb]]'
-`a' =
- _/\_ `$x0' -> \ `$x1' :: `[$x0]'
- `$x1' ->
- let {
- `$x2' :: `[[$x0]]'
- `$x2' =
- `PrelBase.[]' {_@_ [`$x0']}
- } in `PrelBase.:' {_@_ [`$x0'] `$x1' `$x2'}
-
-
-================================================================================
-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'
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
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