path: root/testsuite/tests/roles/should_compile/Roles2.hs

module Roles2 where

import GHC.Ptr

-- these *must* have certain roles, or things break strangely
-- see GHC.Tc.Gen.Foreign

data T1 a = K1 (IO a)
data T2 a = K2 (FunPtr a)