alloca :: forall a b fs. (InUnion fs IO, S.Storable a) => (Ptr a -> Eff fs b) -> Eff fs b
alloca = allocaBytes (sizeOf (undefined :: a))
alloca :: forall a b fs. (InUnion fs IO, S.Storable a) => (Ptr a -> Eff fs b) -> Eff fs b
alloca = allocaBytes (sizeOf (undefined :: a))
alloca = allocaBytes (sizeOf (undefined :: a))