@@ -26,6 +26,8 @@ import qualified Network.Wai.Handler.Warp.Timeout as T
2626import Network.Wai.Handler.Warp.Types
2727import qualified System.PosixCompat.Files as P
2828
29+----------------------------------------------------------------
30+
2931sendResponse :: T.Handle
3032 -> Request -> Connection -> Response -> ResourceT IO Bool
3133sendResponse th req conn r = sendResponse' r
@@ -109,6 +111,8 @@ sendResponse th req conn r = sendResponse' r
109111 chunk :: Conduit Builder (ResourceT IO) Builder
110112 chunk = await >>= maybe (yield chunkedTransferTerminator) (\x -> yield (chunkedTransferEncoding x) >> chunk)
111113
114+----------------------------------------------------------------
115+
112116checkPersist :: Request -> Bool
113117checkPersist req
114118 | ver == H.http11 = checkPersist11 conn
@@ -130,6 +134,8 @@ hasBody :: H.Status -> Request -> Bool
130134hasBody s req = s /= H.Status 204 "" && s /= H.status304 &&
131135 H.statusCode s >= 200 && requestMethod req /= "HEAD"
132136
137+----------------------------------------------------------------
138+
133139httpBuilder, spaceBuilder, newlineBuilder, transferEncodingBuilder
134140 , colonSpaceBuilder :: Builder
135141httpBuilder = copyByteString "HTTP/"