@@ -54,7 +54,7 @@ import Blaze.ByteString.Builder.Enumerator (builderToByteString)
5454import Blaze.ByteString.Builder.HTTP
5555 (chunkedTransferEncoding, chunkedTransferTerminator)
5656import Blaze.ByteString.Builder
57− (fromByteString, Builder, toLazyByteString, toByteStringIO)
57+ (copyByteString, Builder, toLazyByteString, toByteStringIO)
5858import Blaze.ByteString.Builder.Char8 (fromChar, fromString)
5959import Data.Monoid (mconcat, mappend)
6060import Network.Socket.SendFile (sendFile)
@@ -199,24 +199,24 @@ parseFirst s = do
199199
200200headers :: HttpVersion -> Status -> ResponseHeaders -> Bool -> Builder
201201headers httpversion status responseHeaders isChunked' = mconcat
202− [ fromByteString "HTTP/"
203− , fromByteString httpversion
202+ [ copyByteString "HTTP/"
203+ , copyByteString httpversion
204204 , fromChar ' '
205205 , fromString $ show $ statusCode status
206206 , fromChar ' '
207− , fromByteString $ statusMessage status
208− , fromByteString "\r\n"
207+ , copyByteString $ statusMessage status
208+ , copyByteString "\r\n"
209209 , mconcat $ map go responseHeaders
210210 , if isChunked'
211− then fromByteString "Transfer-Encoding: chunked\r\n\r\n"
212− else fromByteString "\r\n"
211+ then copyByteString "Transfer-Encoding: chunked\r\n\r\n"
212+ else copyByteString "\r\n"
213213 ]
214214 where
215215 go (x, y) = mconcat
216− [ fromByteString $ ciOriginal x
217− , fromByteString ": "
218− , fromByteString y
219− , fromByteString "\r\n"
216+ [ copyByteString $ ciOriginal x
217+ , copyByteString ": "
218+ , copyByteString y
219+ , copyByteString "\r\n"
220220 ]
221221
222222isChunked :: HttpVersion -> Bool