{-# OPTIONS_GHC -fno-warn-unused-imports #-} #include #include "CHandle.h" module SNet.Interfaces.CHandle where import Foreign.Ptr #strict_import {- typedef struct { int * lengths; intptr_t * values; void * record; void (* snetOut)(void *, int, intptr_t *); } Handle; -} #starttype Handle #field lengths , Ptr CInt #field values , Ptr IntPtr #field record , Ptr () #field snetOut , FunPtr (Ptr () -> CInt -> Ptr IntPtr -> IO ()) #stoptype #ccall SNetOut , Ptr -> CInt -> IO ()