diff options
| -rw-r--r-- | testsuite/tests/th/T10019.script | 9 | ||||
| -rw-r--r-- | testsuite/tests/th/T10019.stdout | 2 |
2 files changed, 2 insertions, 9 deletions
diff --git a/testsuite/tests/th/T10019.script b/testsuite/tests/th/T10019.script index 97ecbe115e..bb3d0d464e 100644 --- a/testsuite/tests/th/T10019.script +++ b/testsuite/tests/th/T10019.script @@ -1,11 +1,4 @@ :set -XTemplateHaskell import Language.Haskell.TH data Option a = Some a | None -$(reify 'Some >>= litE . integerL . toInteger . length . show) --- By taking the length we avoid wobbling when the exact uniques --- chosen by TH change --- --- This was the original --- $(reify 'Some >>= stringE . show) --- which yields --- "DataConI Ghci1.Some (ForallT [KindedTV a_1627391549 StarT] [] (AppT (AppT ArrowT (VarT a_1627391549)) (AppT (ConT Ghci1.Option) (VarT a_1627391549)))) Ghci1.Option (Fixity 9 InfixL)"
\ No newline at end of file +$(reify 'Some >>= stringE . pprint) diff --git a/testsuite/tests/th/T10019.stdout b/testsuite/tests/th/T10019.stdout index d65e8e31fd..e079405309 100644 --- a/testsuite/tests/th/T10019.stdout +++ b/testsuite/tests/th/T10019.stdout @@ -1 +1 @@ -181
+"Constructor from Ghci1.Option: Ghci1.Some :: forall (a_0 :: *) . a_0 ->\n Ghci1.Option a_0" |