Add withPyObject for symmetry

Author: Shimuuar

src/Python/Internal/Types.hs

@@ -9,6 +9,7 @@
 module Python.Internal.Types
   ( -- * Data type
     PyObject(..)
+  , withPyObject
   , unsafeWithPyObject
   , PyThreadState
   , PyError(..)
@@ -64,6 +65,9 @@ data PyThreadState
 newtype PyObject = PyObject (ForeignPtr PyObject)
   deriving stock Show
 
+withPyObject :: forall a. PyObject -> (Ptr PyObject -> Py a) -> Py a
+withPyObject = coerce (withForeignPtr @PyObject @a)
+
 unsafeWithPyObject :: forall a. PyObject -> (Ptr PyObject -> Py a) -> Py a
 unsafeWithPyObject = coerce (unsafeWithForeignPtr @PyObject @a)