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