CV-0.3.7: Utils/Pointer.hs

module Utils.Pointer where 
import Foreign.C.Types
import Foreign.ForeignPtr hiding (unsafeForeignPtrToPtr)
import Foreign.ForeignPtr.Unsafe
import Foreign.Ptr
import Foreign.Marshal.Array

withPtrList :: [ForeignPtr a] -> (Ptr (Ptr a)-> IO b) -> IO b
withPtrList objs op = let
                    ptrs = map unsafeForeignPtrToPtr objs
                   in do
                    r <- withArray ptrs op
                    mapM_ touchForeignPtr objs 
                    return r