unmarshallSafeArray :: Ptr a -> IO (SafeArray a)
unmarshallSafeArray x = do
  s <- unmarshallSAFEARRAY True (castPtr x)
  return (SA s)
unmarshallSafeArray :: Ptr a -> IO (SafeArray a)
unmarshallSafeArray x = do
  s <- unmarshallSAFEARRAY True (castPtr x)
  return (SA s)
unmarshallSafeArray x = do
  s <- unmarshallSAFEARRAY True (castPtr x)
  return (SA s)