import qualified Data.ByteString as BS
import Data.Sequence (Seq)
import qualified Data.Sequence as S
+import Data.Text (Text)
import Network.Socket
import Network.HTTP.Lucu.Config
import Network.HTTP.Lucu.Headers
, itrLocalPort ∷ !PortNumber
, itrRemoteAddr ∷ !SockAddr
, itrRemoteCert ∷ !(Maybe X509)
- , itrResourcePath ∷ !(Maybe [Ascii])
+ , itrResourcePath ∷ !(Maybe [Text])
, itrRequest ∷ !(TVar (Maybe Request))
, itrResponse ∷ !(TVar Response)
, itrWillClose ∷ !(TVar Bool)
, itrBodyToSend ∷ !(TMVar Builder)
- , itrBodyIsNull ∷ !(TVar Bool)
+ , itrSentNoBody ∷ !(TVar Bool)
, itrState ∷ !(TVar InteractionState)
willClose ← newTVarIO False
bodyToSend ← newEmptyTMVarIO
- bodyIsNull ← newTVarIO True -- 一度でも bodyToSend が空でなくなったら False
+ sentNoBody ← newTVarIO True -- 一度でも bodyToSend が空でなくなったら False
state ← newTVarIO ExaminingRequest
, itrWillClose = willClose
, itrBodyToSend = bodyToSend
- , itrBodyIsNull = bodyIsNull
+ , itrSentNoBody = sentNoBody
, itrState = state