diff options
Diffstat (limited to 'testsuite/tests/th/T19709b.hs')
| -rw-r--r-- | testsuite/tests/th/T19709b.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/th/T19709b.hs b/testsuite/tests/th/T19709b.hs index afc9ed5769..629172a892 100644 --- a/testsuite/tests/th/T19709b.hs +++ b/testsuite/tests/th/T19709b.hs @@ -6,7 +6,7 @@ import GHC.Exts import Language.Haskell.TH $( let levfun :: forall (r :: RuntimeRep) (a :: TYPE r). a -> () - levfun = error "e1" -- NB: this, so far, is OK: no levity-polymorphic binder + levfun = error "e1" -- NB: this, so far, is OK: no representation-polymorphic binder - in levfun (error @Any "e2") -- but this is very naughty: levity-polymorphic argument + in levfun (error @Any "e2") -- but this is very naughty: representation-polymorphic argument `seq` return [] ) |