@@ -4,7 +4,7 @@ module Network.Wai.Handler.Warp.Buffer (
44 bufferSize
55 , allocateBuffer
66 , freeBuffer
7− , mallocByteString
7+ , mallocBS
88 , newBufferPool
99 , withBufferPool
1010 , toBlazeBuffer
@@ -51,20 +51,12 @@ minBufferSize = 2048
5151newBufferPool :: IO BufferPool
5252newBufferPool = newIORef BS.empty
5353
54−mallocByteString :: Int -> IO ByteString
55−mallocByteString size = do
54+mallocBS :: Int -> IO ByteString
55+mallocBS size = do
5656 ptr <- allocateBuffer size
5757 fptr <- newForeignPtr finalizerFree ptr
5858 return $! PS fptr 0 size
59−{-# INLINE mallocByteString #-}
60−
61−{-
62−createBuffer :: Int -> IO ByteString
63−createBuffer size = do
64− fptr <- mallocByteString size
65− return $! PS fptr 0 size
66−{-# INLINE createBuffer #-}
67−-}
59+{-# INLINE mallocBS #-}
6860
6961usefulBuffer :: ByteString -> Bool
7062usefulBuffer buffer = BS.length buffer >= minBufferSize
@@ -73,7 +65,7 @@ usefulBuffer buffer = BS.length buffer >= minBufferSize
7365getBuffer :: BufferPool -> IO ByteString
7466getBuffer pool = do
7567 buffer <- readIORef pool
76− if usefulBuffer buffer then return buffer else mallocByteString largeBufferSize
68+ if usefulBuffer buffer then return buffer else mallocBS largeBufferSize
7769{-# INLINE getBuffer #-}
7870
7971putBuffer :: BufferPool -> ByteString -> IO ()