newForeignPtr :: Ptr a -> FinalizerPtr a -> IO (ForeignPtr a)
newForeignPtr p finalizer
   = Foreign.Concurrent.newForeignPtr p (mkFinalizer finalizer p)
newForeignPtr :: Ptr a -> FinalizerPtr a -> IO (ForeignPtr a)
newForeignPtr p finalizer
   = Foreign.Concurrent.newForeignPtr p (mkFinalizer finalizer p)
newForeignPtr p finalizer
   = Foreign.Concurrent.newForeignPtr p (mkFinalizer finalizer p)