import qualified Data.ByteString as Strict
import Data.Monoid.Unicode
import Data.Sequence (Seq)
-import qualified Data.Strict.Maybe as S
import Data.Time
import qualified Data.Time.HTTP as HTTP
import Data.Typeable
= SEI {
seiRequest ∷ !Request
, seiExpectedContinue ∷ !Bool
- , seiReqBodyLength ∷ !(S.Maybe RequestBodyLength)
+ , seiReqBodyLength ∷ !(Maybe RequestBodyLength)
, seiResponse ∷ !Response
, seiWillChunkBody ∷ !Bool
, niRequest ∷ !Request
, niResourcePath ∷ ![Strict.ByteString]
, niExpectedContinue ∷ !Bool
- , niReqBodyLength ∷ !(S.Maybe RequestBodyLength)
+ , niReqBodyLength ∷ !(Maybe RequestBodyLength)
, niReceiveBodyReq ∷ !(TMVar ReceiveBodyRequest)
, niReceivedBody ∷ !(TMVar Strict.ByteString)
mkInteractionQueue ∷ IO InteractionQueue
mkInteractionQueue = newTVarIO (∅)
-setResponseStatus ∷ NormalInteraction → StatusCode → STM ()
+setResponseStatus ∷ StatusCode sc ⇒ NormalInteraction → sc → STM ()
setResponseStatus (NI {..}) sc
= do res ← readTVar niResponse
let res' = res {
- resStatus = sc
+ resStatus = fromStatusCode sc
}
writeTVar niResponse res'