@@ -102,11 +102,13 @@ toBlazeBuffer ptr size = do
102102 fptr <- newForeignPtr_ ptr
103103 return $ B.Buffer fptr ptr ptr (ptr `plusPtr` size)
104104
105−{-# INLINE copy #-}
105+-- | Copying the bytestring to the buffer.
106+-- This function returns the point where the next copy should start.
106107copy :: Buffer -> ByteString -> IO Buffer
107108copy !ptr (PS fp o l) = withForeignPtr fp $ \p -> do
108109 memcpy ptr (p `plusPtr` o) (fromIntegral l)
109110 return $! ptr `plusPtr` l
111+{-# INLINE copy #-}
110112
111113{-# INLINE toBS #-}
112114toBS :: Buffer -> Int -> IO ByteString