blob: 0ee1ee91ff80698d09127bf76d4e443ca3ceb120 (
plain)
1
2
3
4
5
6
7
|
import Foreign
import Foreign.C
foreign import stdcall "&test" ptest :: FunPtr (CInt -> IO ())
foreign import stdcall "dynamic" ctest :: FunPtr (CInt -> IO ()) -> CInt -> IO ()
main = ctest ptest 3
|