diff options
| author | Iavor S. Diatchki <iavor.diatchki@gmail.com> | 2016-04-17 12:56:31 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-04-17 14:42:15 +0200 |
| commit | 04b70cda4ed006c7e3df40e169550a00aba79524 (patch) | |
| tree | 480cfd9e0e2bf8a937295311b113115458f62e71 /testsuite/tests/th/T5452.hs | |
| parent | 97f2b16483aae28dc8fd60b6d2e1e283618f2390 (diff) | |
| download | haskell-04b70cda4ed006c7e3df40e169550a00aba79524.tar.gz | |
Add TemplateHaskell support for Overlapping pragmas
Reviewers: hvr, goldfire, austin, RyanGlScott, bgamari
Reviewed By: RyanGlScott, bgamari
Subscribers: RyanGlScott, thomie
Differential Revision: https://phabricator.haskell.org/D2118
Diffstat (limited to 'testsuite/tests/th/T5452.hs')
| -rw-r--r-- | testsuite/tests/th/T5452.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/th/T5452.hs b/testsuite/tests/th/T5452.hs index b727df5a47..de6a1771f7 100644 --- a/testsuite/tests/th/T5452.hs +++ b/testsuite/tests/th/T5452.hs @@ -9,8 +9,8 @@ class D (f :: * -> *) instance C ((,) Int) $(do { ClassI _ [inst_dec] <- reify ''C - ; let InstanceD cxt (AppT _ ty) _ = inst_dec - ; return [InstanceD cxt + ; let InstanceD o cxt (AppT _ ty) _ = inst_dec + ; return [InstanceD o cxt (foldl AppT (ConT ''D) [ty]) [] ] }) |