1{-# LANGUAGE ForeignFunctionInterface, InterruptibleFFI, CApiFFI 2 #-} 3module FFIExtensions where 4 5foreign import ccall interruptible "sleep" sleep :: 6 CUint -> IO CUint 7 8foreign import capi "header.h f" f :: CInt -> IO CInt 9