Import hs-plugins cvs
This commit is contained in:
19
examples/dynload/should_fail_3/Plugin.in
Normal file
19
examples/dynload/should_fail_3/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
|
||||
import GHC.Base
|
||||
|
||||
v :: Int
|
||||
v = 0xdeadbeef
|
||||
|
||||
resource_dyn = (typeOf plugin, unsafeCoerce v)
|
||||
|
Reference in New Issue
Block a user