Update examples
This commit is contained in:
13
testsuite/pdynload/should_fail0/api/API.hs
Normal file
13
testsuite/pdynload/should_fail0/api/API.hs
Normal file
@ -0,0 +1,13 @@
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
-- ^ needed to derive Typeable
|
||||
|
||||
module API where
|
||||
|
||||
import Data.Dynamic
|
||||
|
||||
data Interface = Interface { field :: String }
|
||||
deriving (Show)
|
||||
|
||||
rsrc :: Interface
|
||||
rsrc = Interface { field = "default value" }
|
||||
|
Reference in New Issue
Block a user