diff options
Diffstat (limited to 'testsuite/tests/generics/GenDerivOutput.stderr')
-rw-r--r-- | testsuite/tests/generics/GenDerivOutput.stderr | 156 |
1 files changed, 78 insertions, 78 deletions
diff --git a/testsuite/tests/generics/GenDerivOutput.stderr b/testsuite/tests/generics/GenDerivOutput.stderr index 9c008e0038..463609b19e 100644 --- a/testsuite/tests/generics/GenDerivOutput.stderr +++ b/testsuite/tests/generics/GenDerivOutput.stderr @@ -1,13 +1,13 @@ ==================== Derived instances ==================== Derived class instances: - instance GHC.Generics.Generic (GenDerivOutput.List a) where + instance GHC.Generics.Generic (GenDerivOutput.Rose a) where GHC.Generics.from x = GHC.Generics.M1 (case x of - GenDerivOutput.Nil + GenDerivOutput.Empty -> GHC.Generics.L1 (GHC.Generics.M1 GHC.Generics.U1) - GenDerivOutput.Cons g1 g2 + GenDerivOutput.Rose g1 g2 -> GHC.Generics.R1 (GHC.Generics.M1 ((GHC.Generics.:*:) @@ -16,47 +16,43 @@ Derived class instances: GHC.Generics.to (GHC.Generics.M1 x) = case x of (GHC.Generics.L1 (GHC.Generics.M1 GHC.Generics.U1)) - -> GenDerivOutput.Nil + -> GenDerivOutput.Empty (GHC.Generics.R1 (GHC.Generics.M1 ((GHC.Generics.:*:) (GHC.Generics.M1 (GHC.Generics.K1 g1)) (GHC.Generics.M1 (GHC.Generics.K1 g2))))) - -> GenDerivOutput.Cons g1 g2 + -> GenDerivOutput.Rose g1 g2 - instance GHC.Generics.Generic1 GenDerivOutput.List where + instance GHC.Generics.Generic1 GenDerivOutput.Rose where GHC.Generics.from1 x = GHC.Generics.M1 (case x of - GenDerivOutput.Nil + GenDerivOutput.Empty -> GHC.Generics.L1 (GHC.Generics.M1 GHC.Generics.U1) - GenDerivOutput.Cons g1 g2 + GenDerivOutput.Rose g1 g2 -> GHC.Generics.R1 (GHC.Generics.M1 ((GHC.Generics.:*:) (GHC.Generics.M1 (GHC.Generics.Par1 g1)) - (GHC.Generics.M1 (GHC.Generics.Rec1 g2))))) + (GHC.Generics.M1 + ((GHC.Base..) + GHC.Generics.Comp1 (GHC.Base.fmap GHC.Generics.Rec1) g2))))) GHC.Generics.to1 (GHC.Generics.M1 x) = case x of (GHC.Generics.L1 (GHC.Generics.M1 GHC.Generics.U1)) - -> GenDerivOutput.Nil + -> GenDerivOutput.Empty (GHC.Generics.R1 (GHC.Generics.M1 ((GHC.Generics.:*:) (GHC.Generics.M1 g1) (GHC.Generics.M1 g2)))) - -> GenDerivOutput.Cons - (GHC.Generics.unPar1 g1) (GHC.Generics.unRec1 g2) - - instance GHC.Base.Functor GenDerivOutput.List where - GHC.Base.fmap f GenDerivOutput.Nil = GenDerivOutput.Nil - GHC.Base.fmap f (GenDerivOutput.Cons a1 a2) - = GenDerivOutput.Cons (f a1) (GHC.Base.fmap f a2) - (GHC.Base.<$) z GenDerivOutput.Nil = GenDerivOutput.Nil - (GHC.Base.<$) z (GenDerivOutput.Cons a1 a2) - = GenDerivOutput.Cons ((\ b1 -> z) a1) ((GHC.Base.<$) z a2) + -> GenDerivOutput.Rose + (GHC.Generics.unPar1 g1) + ((GHC.Base..) + (GHC.Base.fmap GHC.Generics.unRec1) GHC.Generics.unComp1 g2) - instance GHC.Generics.Generic (GenDerivOutput.Rose a) where + instance GHC.Generics.Generic (GenDerivOutput.List a) where GHC.Generics.from x = GHC.Generics.M1 (case x of - GenDerivOutput.Empty + GenDerivOutput.Nil -> GHC.Generics.L1 (GHC.Generics.M1 GHC.Generics.U1) - GenDerivOutput.Rose g1 g2 + GenDerivOutput.Cons g1 g2 -> GHC.Generics.R1 (GHC.Generics.M1 ((GHC.Generics.:*:) @@ -65,165 +61,169 @@ Derived class instances: GHC.Generics.to (GHC.Generics.M1 x) = case x of (GHC.Generics.L1 (GHC.Generics.M1 GHC.Generics.U1)) - -> GenDerivOutput.Empty + -> GenDerivOutput.Nil (GHC.Generics.R1 (GHC.Generics.M1 ((GHC.Generics.:*:) (GHC.Generics.M1 (GHC.Generics.K1 g1)) (GHC.Generics.M1 (GHC.Generics.K1 g2))))) - -> GenDerivOutput.Rose g1 g2 + -> GenDerivOutput.Cons g1 g2 - instance GHC.Generics.Generic1 GenDerivOutput.Rose where + instance GHC.Generics.Generic1 GenDerivOutput.List where GHC.Generics.from1 x = GHC.Generics.M1 (case x of - GenDerivOutput.Empty + GenDerivOutput.Nil -> GHC.Generics.L1 (GHC.Generics.M1 GHC.Generics.U1) - GenDerivOutput.Rose g1 g2 + GenDerivOutput.Cons g1 g2 -> GHC.Generics.R1 (GHC.Generics.M1 ((GHC.Generics.:*:) (GHC.Generics.M1 (GHC.Generics.Par1 g1)) - (GHC.Generics.M1 - ((GHC.Base..) - GHC.Generics.Comp1 (GHC.Base.fmap GHC.Generics.Rec1) g2))))) + (GHC.Generics.M1 (GHC.Generics.Rec1 g2))))) GHC.Generics.to1 (GHC.Generics.M1 x) = case x of (GHC.Generics.L1 (GHC.Generics.M1 GHC.Generics.U1)) - -> GenDerivOutput.Empty + -> GenDerivOutput.Nil (GHC.Generics.R1 (GHC.Generics.M1 ((GHC.Generics.:*:) (GHC.Generics.M1 g1) (GHC.Generics.M1 g2)))) - -> GenDerivOutput.Rose - (GHC.Generics.unPar1 g1) - ((GHC.Base..) - (GHC.Base.fmap GHC.Generics.unRec1) GHC.Generics.unComp1 g2) + -> GenDerivOutput.Cons + (GHC.Generics.unPar1 g1) (GHC.Generics.unRec1 g2) + + instance GHC.Base.Functor GenDerivOutput.List where + GHC.Base.fmap f GenDerivOutput.Nil = GenDerivOutput.Nil + GHC.Base.fmap f (GenDerivOutput.Cons a1 a2) + = GenDerivOutput.Cons (f a1) (GHC.Base.fmap f a2) + (GHC.Base.<$) z GenDerivOutput.Nil = GenDerivOutput.Nil + (GHC.Base.<$) z (GenDerivOutput.Cons a1 a2) + = GenDerivOutput.Cons ((\ b1 -> z) a1) ((GHC.Base.<$) z a2) Derived type family instances: - type GHC.Generics.Rep (GenDerivOutput.List a) = GHC.Generics.D1 + type GHC.Generics.Rep (GenDerivOutput.Rose a) = GHC.Generics.D1 ('GHC.Generics.MetaData - "List" + "Rose" "GenDerivOutput" "main" 'GHC.Types.False) (GHC.Generics.C1 ('GHC.Generics.MetaCons - "Nil" + "Empty" 'GHC.Generics.PrefixI 'GHC.Types.False) GHC.Generics.U1 GHC.Generics.:+: GHC.Generics.C1 ('GHC.Generics.MetaCons - "Cons" + "Rose" 'GHC.Generics.PrefixI - 'GHC.Types.True) + 'GHC.Types.False) (GHC.Generics.S1 ('GHC.Generics.MetaSel - ('GHC.Maybe.Just - "element") + 'GHC.Maybe.Nothing 'GHC.Generics.NoSourceUnpackedness 'GHC.Generics.NoSourceStrictness 'GHC.Generics.DecidedLazy) (GHC.Generics.Rec0 a) GHC.Generics.:*: GHC.Generics.S1 ('GHC.Generics.MetaSel - ('GHC.Maybe.Just - "rest") + 'GHC.Maybe.Nothing 'GHC.Generics.NoSourceUnpackedness 'GHC.Generics.NoSourceStrictness 'GHC.Generics.DecidedLazy) (GHC.Generics.Rec0 (GenDerivOutput.List - a)))) - type GHC.Generics.Rep1 GenDerivOutput.List = GHC.Generics.D1 + (GenDerivOutput.Rose + a))))) + type GHC.Generics.Rep1 GenDerivOutput.Rose = GHC.Generics.D1 ('GHC.Generics.MetaData - "List" "GenDerivOutput" "main" 'GHC.Types.False) + "Rose" "GenDerivOutput" "main" 'GHC.Types.False) (GHC.Generics.C1 ('GHC.Generics.MetaCons - "Nil" 'GHC.Generics.PrefixI 'GHC.Types.False) + "Empty" + 'GHC.Generics.PrefixI + 'GHC.Types.False) GHC.Generics.U1 GHC.Generics.:+: GHC.Generics.C1 ('GHC.Generics.MetaCons - "Cons" + "Rose" 'GHC.Generics.PrefixI - 'GHC.Types.True) + 'GHC.Types.False) (GHC.Generics.S1 ('GHC.Generics.MetaSel - ('GHC.Maybe.Just - "element") + 'GHC.Maybe.Nothing 'GHC.Generics.NoSourceUnpackedness 'GHC.Generics.NoSourceStrictness 'GHC.Generics.DecidedLazy) GHC.Generics.Par1 GHC.Generics.:*: GHC.Generics.S1 ('GHC.Generics.MetaSel - ('GHC.Maybe.Just - "rest") + 'GHC.Maybe.Nothing 'GHC.Generics.NoSourceUnpackedness 'GHC.Generics.NoSourceStrictness 'GHC.Generics.DecidedLazy) - (GHC.Generics.Rec1 - GenDerivOutput.List))) - type GHC.Generics.Rep (GenDerivOutput.Rose a) = GHC.Generics.D1 + (GenDerivOutput.List + GHC.Generics.:.: GHC.Generics.Rec1 + GenDerivOutput.Rose))) + type GHC.Generics.Rep (GenDerivOutput.List a) = GHC.Generics.D1 ('GHC.Generics.MetaData - "Rose" + "List" "GenDerivOutput" "main" 'GHC.Types.False) (GHC.Generics.C1 ('GHC.Generics.MetaCons - "Empty" + "Nil" 'GHC.Generics.PrefixI 'GHC.Types.False) GHC.Generics.U1 GHC.Generics.:+: GHC.Generics.C1 ('GHC.Generics.MetaCons - "Rose" + "Cons" 'GHC.Generics.PrefixI - 'GHC.Types.False) + 'GHC.Types.True) (GHC.Generics.S1 ('GHC.Generics.MetaSel - 'GHC.Maybe.Nothing + ('GHC.Maybe.Just + "element") 'GHC.Generics.NoSourceUnpackedness 'GHC.Generics.NoSourceStrictness 'GHC.Generics.DecidedLazy) (GHC.Generics.Rec0 a) GHC.Generics.:*: GHC.Generics.S1 ('GHC.Generics.MetaSel - 'GHC.Maybe.Nothing + ('GHC.Maybe.Just + "rest") 'GHC.Generics.NoSourceUnpackedness 'GHC.Generics.NoSourceStrictness 'GHC.Generics.DecidedLazy) (GHC.Generics.Rec0 (GenDerivOutput.List - (GenDerivOutput.Rose - a))))) - type GHC.Generics.Rep1 GenDerivOutput.Rose = GHC.Generics.D1 + a)))) + type GHC.Generics.Rep1 GenDerivOutput.List = GHC.Generics.D1 ('GHC.Generics.MetaData - "Rose" "GenDerivOutput" "main" 'GHC.Types.False) + "List" "GenDerivOutput" "main" 'GHC.Types.False) (GHC.Generics.C1 ('GHC.Generics.MetaCons - "Empty" - 'GHC.Generics.PrefixI - 'GHC.Types.False) + "Nil" 'GHC.Generics.PrefixI 'GHC.Types.False) GHC.Generics.U1 GHC.Generics.:+: GHC.Generics.C1 ('GHC.Generics.MetaCons - "Rose" + "Cons" 'GHC.Generics.PrefixI - 'GHC.Types.False) + 'GHC.Types.True) (GHC.Generics.S1 ('GHC.Generics.MetaSel - 'GHC.Maybe.Nothing + ('GHC.Maybe.Just + "element") 'GHC.Generics.NoSourceUnpackedness 'GHC.Generics.NoSourceStrictness 'GHC.Generics.DecidedLazy) GHC.Generics.Par1 GHC.Generics.:*: GHC.Generics.S1 ('GHC.Generics.MetaSel - 'GHC.Maybe.Nothing + ('GHC.Maybe.Just + "rest") 'GHC.Generics.NoSourceUnpackedness 'GHC.Generics.NoSourceStrictness 'GHC.Generics.DecidedLazy) - (GenDerivOutput.List - GHC.Generics.:.: GHC.Generics.Rec1 - GenDerivOutput.Rose))) + (GHC.Generics.Rec1 + GenDerivOutput.List))) |