plugins-1.5.1: testsuite/dynload/should_fail_1/Plugin.hs

--
-- trying to be really mean.
--

module Plugin where

import API
import Data.Dynamic

v :: Int -> Int
v = \x -> 0xdeadbeef

resource_dyn :: Dynamic
resource_dyn = toDyn v