diff options
| author | Richard Eisenberg <eir@cis.upenn.edu> | 2015-07-04 09:38:59 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-07-04 09:39:59 +0200 |
| commit | 889c81c657b5719a8f4091099b7bf186127e9f53 (patch) | |
| tree | b56161ecbd3bea50f8a451301e2aad815e1e0aef /testsuite/tests/th/T10019.script | |
| parent | 6b01d3ce6c681428e7a9865af85685c2a76ba657 (diff) | |
| download | haskell-889c81c657b5719a8f4091099b7bf186127e9f53.tar.gz | |
Fix some validation errors.
Summary:
This fixes test cases T10019 and T10534
The patch for T10019 should be back-ported to master as well.
Posting via Phab as a way to distribute a patch against the
ghc-7.10 branch, which I don't have push access to.
Test Plan: validate
Reviewers: austin, bgamari
Reviewed By: bgamari
Subscribers: thomie, bgamari, mzero
Differential Revision: https://phabricator.haskell.org/D1036
Diffstat (limited to 'testsuite/tests/th/T10019.script')
| -rw-r--r-- | testsuite/tests/th/T10019.script | 9 |
1 files changed, 1 insertions, 8 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) |