data AugmentedRequest
= AugmentedRequest {
arRequest ∷ !Request
- , arInitialStatus ∷ !StatusCode
+ , arInitialStatus ∷ !SomeStatusCode
, arWillChunkBody ∷ !Bool
, arWillDiscardBody ∷ !Bool
, arWillClose ∷ !Bool
initialAR ∷ AugmentedRequest
initialAR = AugmentedRequest {
arRequest = req
- , arInitialStatus = Ok
+ , arInitialStatus = fromStatusCode OK
, arWillChunkBody = False
, arWillDiscardBody = False
, arWillClose = False
setRequest req
= modify $ \ar → ar { arRequest = req }
-setStatus ∷ StatusCode → State AugmentedRequest ()
+setStatus ∷ StatusCode sc ⇒ sc → State AugmentedRequest ()
setStatus sc
- = modify $ \ar → ar { arInitialStatus = sc }
+ = modify $ \ar → ar { arInitialStatus = fromStatusCode sc }
setWillClose ∷ Bool → State AugmentedRequest ()
setWillClose b
→ setWillClose True
HttpVersion 1 1
→ modify $ \ar → ar { arWillChunkBody = True }
- _ → do setStatus HttpVersionNotSupported
+ _ → do setStatus HTTPVersionNotSupported
setWillClose True
examineMethod ∷ State AugmentedRequest ()