{-# 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