{-# 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 i :: Int
i) f :: 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