withObjectResult :: FunPtr (Ptr a -> IO ()) -> IO (Ptr a) -> IO (Object a)
withObjectResult f io
  = do
    p <- io
    objectFromPtr f p
withObjectResult :: FunPtr (Ptr a -> IO ()) -> IO (Ptr a) -> IO (Object a)
withObjectResult f io
  = do
    p <- io
    objectFromPtr f p
withObjectResult f io
  = do
    p <- io
    objectFromPtr f p