@@ -324,8 +324,7 @@ sendResponse th req hv socket (ResponseBuilder s hs b)
324324 return True
325325 where
326326 headers' = headers hv s hs isChunked'
327− b' =
328− if isChunked'
327+ b' = if isChunked'
329328 then headers'
330329 `mappend` chunkedTransferEncoding b
331330 `mappend` chunkedTransferTerminator
@@ -337,14 +336,12 @@ sendResponse th req hv socket (ResponseEnumerator res) =
337336 res go
338337 where
339338 -- FIXME perhaps alloca a buffer per thread and reuse that in all functiosn below. Should lessen greatly the GC burden (I hope)
340− go s hs
341− | not (hasBody s req) = do
339+ go s hs | not (hasBody s req) = do
342340 liftIO $ Sock.sendMany socket
343341 $ L.toChunks $ toLazyByteString
344342 $ headers hv s hs False
345343 return True
346− go s hs =
347− chunk'
344+ go s hs = chunk'
348345 $ E.enumList 1 [headers hv s hs isChunked']
349346 $$ E.joinI $ builderToByteString -- FIXME unsafeBuilderToByteString
350347 $$ (iterSocket th socket >> return isKeepAlive)
@@ -352,10 +349,9 @@ sendResponse th req hv socket (ResponseEnumerator res) =
352349 hasLength = lookup "content-length" hs /= Nothing
353350 isChunked' = isChunked hv && not hasLength
354351 isKeepAlive = isChunked' || hasLength
355− chunk' i =
356− if isChunked'
357− then E.joinI $ chunk $$ i
358− else i
352+ chunk' i = if isChunked'
353+ then E.joinI $ chunk $$ i
354+ else i
359355 chunk :: E.Enumeratee Builder Builder IO Bool
360356 chunk = E.checkDone $ E.continue . step
361357 step k E.EOF = k (E.Chunks [chunkedTransferTerminator]) >>== return
@@ -369,8 +365,8 @@ parseHeaderNoAttr s =
369365 restLen = S.length rest
370366 -- FIXME check for colon without following space?
371367 rest' = if restLen > 1 && SU.unsafeTake 2 rest == ": "
372− then SU.unsafeDrop 2 rest
373− else rest
368+ then SU.unsafeDrop 2 rest
369+ else rest
374370 in (mkCIByteString k, rest')
375371
376372enumSocket :: T.Handle -> Int -> Socket -> E.Enumerator ByteString IO a