@@ -12,9 +12,7 @@ import Control.Applicative ((<|>))
1212import Data.Array ((!))
1313import Data.ByteString (ByteString)
1414import qualified Data.ByteString as B hiding (pack)
15−import qualified Data.ByteString.Builder as B
1615import qualified Data.ByteString.Char8 as B (pack, readInteger)
17−import qualified Data.ByteString.Lazy as L
1816import Network.HTTP.Date
1917import qualified Network.HTTP.Types as H
2018import qualified Network.HTTP.Types.Header as H
@@ -163,7 +161,7 @@ addContentHeaders :: H.ResponseHeaders -> Integer -> Integer -> Integer -> H.Res
163161addContentHeaders hs off len size = hs''
164162 where
165163 contentRange = contentRangeHeader off (off + len - 1) size
166− lengthBS = L.toStrict $ B.toLazyByteString $ B.integerDec len
164+ !lengthBS = B.pack $ show len
167165 hs' = (H.hContentLength, lengthBS):(
168166#if MIN_VERSION_http_types(0,9,0)
169167 H.hAcceptRanges