Update examples
This commit is contained in:
19
testsuite/dynload/should_fail_2/Plugin.in
Normal file
19
testsuite/dynload/should_fail_2/Plugin.in
Normal file
@ -0,0 +1,19 @@
|
||||
--
|
||||
-- the plugin doesn't even make the resource_dyn a Dynamic.
|
||||
--
|
||||
-- let's hope that makeWith strips out the invalid declarations
|
||||
--
|
||||
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
|
||||
module Plugin where
|
||||
|
||||
import API
|
||||
import AltData.Typeable
|
||||
import GHC.Base
|
||||
|
||||
v :: Int
|
||||
v = 0xdeadbeef
|
||||
|
||||
resource_dyn = (typeOf v, unsafeCoerce v)
|
||||
|
Reference in New Issue
Block a user