@@ -25,7 +25,7 @@ mallocBuffer :: Int -> IO ByteString
25mallocBuffer size = do
25mallocBuffer size = do
26 ptr <- mallocBytes size
26 ptr <- mallocBytes size
27 fptr <- newForeignPtr finalizerFree ptr
27 fptr <- newForeignPtr finalizerFree ptr
28− return $! PS fptr 0 size
28+ return $! PS fptr 0 size
29{-# INLINE mallocBuffer #-}
29{-# INLINE mallocBuffer #-}
31createBuffer :: Int -> IO ByteString
31createBuffer :: Int -> IO ByteString