withObjectRefResult :: IO (Ptr a) -> IO (Object a)
withObjectRefResult io
  = do
    p <- io
    objectFromPtr_nf p
withObjectRefResult :: IO (Ptr a) -> IO (Object a)
withObjectRefResult io
  = do
    p <- io
    objectFromPtr_nf p
withObjectRefResult io
  = do
    p <- io
    objectFromPtr_nf p