readSafeArray' :: Variant a => Bool -> Ptr (SafeArray a) -> a -> IO (SafeArray a)
readSafeArray' finaliseMe ptr x = do
  xx <- readSA finaliseMe ptr (vtEltType x)
  return (SA xx)
readSafeArray' :: Variant a => Bool -> Ptr (SafeArray a) -> a -> IO (SafeArray a)
readSafeArray' finaliseMe ptr x = do
  xx <- readSA finaliseMe ptr (vtEltType x)
  return (SA xx)
readSafeArray' finaliseMe ptr x = do
  xx <- readSA finaliseMe ptr (vtEltType x)
  return (SA xx)