FFIExtensions.hs

{-# LANGUAGE ForeignFunctionInterface, InterruptibleFFI, CApiFFI #-}
module FFIExtensions where

foreign import ccall interruptible
   "sleep" sleep :: CUint -> IO CUint

foreign import capi "header.h f" f :: CInt -> IO CInt