blob: 4b75cee139893bd8506811b8ae8312cc4734e6cb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
module MyModule where
foreign import ccall get_thing :: IO Int
getThing :: IO Int
getThing = get_thing
foreign import ccall set_thing :: Int -> IO ()
setThing :: Int -> IO ()
setThing = set_thing
|