shithub: MicroHs

ref: 1ddb87f544900f59d70e538d2ab0aa9fa7a65512
dir: /lib/Foreign/Marshal/Alloc.hs/

View raw version 
module Foreign.Marshal.Alloc(
  free,
  mallocBytes,
  ) where
import Primitives

foreign import ccall "free" c_free :: forall a . Ptr a -> IO ()

free :: forall a . Ptr a -> IO ()
free = c_free

foreign import ccall "malloc" c_malloc :: forall a . Int -> IO (Ptr a)

mallocBytes :: forall a . Int -> IO (Ptr a)
mallocBytes = c_malloc