diff options
| author | Richard Eisenberg <eir@seas.upenn.edu> | 2013-08-28 12:05:03 -0400 |
|---|---|---|
| committer | Richard Eisenberg <eir@cis.upenn.edu> | 2013-09-17 21:41:53 -0400 |
| commit | 1e3ca733694f0c9c8cc1d95237eb4b09cee4206f (patch) | |
| tree | 73f31ae153ac841d0f8499b5edd98075881bdec4 /testsuite/tests/th/TH_Roles2.hs | |
| parent | b4ab30d54540573fbda3f561377d2c5968eb215c (diff) | |
| download | haskell-1e3ca733694f0c9c8cc1d95237eb4b09cee4206f.tar.gz | |
Update to tests due to change in syntax for role annotations.
Diffstat (limited to 'testsuite/tests/th/TH_Roles2.hs')
| -rw-r--r-- | testsuite/tests/th/TH_Roles2.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/testsuite/tests/th/TH_Roles2.hs b/testsuite/tests/th/TH_Roles2.hs index fc010df9ed..30f4fc7631 100644 --- a/testsuite/tests/th/TH_Roles2.hs +++ b/testsuite/tests/th/TH_Roles2.hs @@ -4,5 +4,6 @@ module TH_Roles2 where import Language.Haskell.TH -$( return [DataD [] (mkName "T") [KindedRoledTV (mkName "a") (VarT (mkName "k")) Representational] [] []] ) +$( return [ DataD [] (mkName "T") [KindedTV (mkName "a") (VarT (mkName "k"))] [] [] + , RoleAnnotD (mkName "T") [RepresentationalR] ] ) |