Implement deriving strategies
[ghc.git] / testsuite / tests / th / T10598_TH.stderr
1 T10598_TH.hs:(27,3)-(42,50): Splicing declarations
2     do { fooDataName <- newName "Foo";
3          mkFooConName <- newName "MkFoo";
4          let fooType = conT fooDataName;
5          sequence
6            [newtypeD
7               (cxt [])
8               fooDataName
9               []
10               Nothing
11               (normalC
12                  mkFooConName
13                  [bangType
14                     (bang noSourceUnpackedness noSourceStrictness) [t| Int |]])
15               [derivClause (Just Stock) [[t| Eq |]],
16                derivClause (Just Anyclass) [[t| C |]],
17                derivClause (Just Newtype) [[t| Read |]]],
18             standaloneDerivWithStrategyD
19               (Just Stock)
20               (cxt [])
21               [t| Ord $fooType |]
22               pending(rn) [<splice, fooType>],
23             standaloneDerivWithStrategyD
24               (Just Anyclass)
25               (cxt [])
26               [t| D $fooType |]
27               pending(rn) [<splice, fooType>],
28             standaloneDerivWithStrategyD
29               (Just Newtype)
30               (cxt [])
31               [t| Show $fooType |]
32               pending(rn) [<splice, fooType>]] }
33   ======>
34     newtype Foo
35       = MkFoo Int
36       deriving stock (Eq)
37       deriving anyclass (C)
38       deriving newtype (Read)
39     deriving stock instance Ord Foo
40     deriving anyclass instance D Foo
41     deriving newtype instance Show Foo