diff options
Diffstat (limited to 'testsuite/tests/th/T12503.hs')
| -rw-r--r-- | testsuite/tests/th/T12503.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/th/T12503.hs b/testsuite/tests/th/T12503.hs index eef302c429..78175bcf04 100644 --- a/testsuite/tests/th/T12503.hs +++ b/testsuite/tests/th/T12503.hs @@ -21,9 +21,9 @@ data family T2 (a :: b) data instance T2 b class C2 a -$(do FamilyI (DataFamilyD tName _ _) [DataInstD [] _ _ [tyVar] _ _ _] +$(do FamilyI (DataFamilyD tName _ _) [DataInstD [] _ tyVar _ _ _] <- reify ''T2 d <- instanceD (cxt []) - (conT ''C2 `appT` (conT tName `appT` return tyVar)) + (conT ''C2 `appT` return tyVar) [] return [d]) |