{-# LANGUAGE MagicHash #-} module Foundation.Foreign.Alloc ( allocaBytes ) where import qualified Foreign.Marshal.Alloc as A (allocaBytes) import Basement.Imports import Basement.Types.OffsetSize allocaBytes :: CountOf Word8 -> (Ptr a -> IO b) -> IO b allocaBytes :: CountOf Word8 -> (Ptr a -> IO b) -> IO b allocaBytes (CountOf Int i) Ptr a -> IO b f = Int -> (Ptr a -> IO b) -> IO b forall a b. Int -> (Ptr a -> IO b) -> IO b A.allocaBytes Int i Ptr a -> IO b f