→ Lazy.ByteString
→ IO ()
acceptParsableRequest ctx@(Context {..}) req input
- = do let ar = preprocess (cnfServerHost cConfig) cPort req
+ = do let ar = preprocess (cnfServerHost cConfig) cPort (hIsSSL cHandle) req
if isError $ arInitialStatus ar then
acceptSemanticallyInvalidRequest ctx ar input
else