Update examples
This commit is contained in:
12
testsuite/loadCLib/null/api/API.hs
Normal file
12
testsuite/loadCLib/null/api/API.hs
Normal file
@ -0,0 +1,12 @@
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
|
||||
module API where
|
||||
|
||||
import Data.Dynamic
|
||||
|
||||
data Null = Null { a, b :: Int }
|
||||
deriving (Typeable, Show)
|
||||
|
||||
null :: Null
|
||||
null = Null { a = 42 , b = 1 }
|
||||
|
Reference in New Issue
Block a user