+-- #hide
module Network.HTTP.Lucu.Interaction
( Interaction(..)
, InteractionState(..)
import Network.HTTP.Lucu.Response
data Interaction = Interaction {
- itrConfig :: Config
- , itrRemoteHost :: HostName
- , itrRequest :: Maybe Request
- , itrResponse :: TVar (Maybe Response)
-
+ itrConfig :: Config
+ , itrRemoteHost :: HostName
+ , itrResourcePath :: Maybe [String]
+ , itrRequest :: Maybe Request
+ , itrResponse :: TVar (Maybe Response)
+
+ -- FIXME: この三つは本來 TVar であるべきでないので、唯の Bool にす
+ -- るに越した事は無いが、それは重要でない。そんな golf で自分の貴重
+ -- な時間を /dev/null に突っ込むのは、他にしたい事が何も無くなって
+ -- からにすべき。
, itrRequestHasBody :: TVar Bool
, itrRequestIsChunked :: TVar Bool
, itrExpectedContinue :: TVar Bool
}
-- Resource の視點で見た時の状態。常に上から下へ行き、逆行しない。初期
--- 状態は ExaminingHeader (リクエストボディが有る時) または
--- DecidingHeader (無い時)。終了状態は常に Done
-data InteractionState = ExaminingHeader
+-- 状態は ExaminingRequest。
+data InteractionState = ExaminingRequest
| GettingBody
| DecidingHeader
| DecidingBody
bodyToSend <- newTVarIO B.empty
bodyIsNull <- newTVarIO True -- 一度でも bodyToSend が空でなくなったら False
- state <- newTVarIO undefined
+ state <- newTVarIO ExaminingRequest
wroteContinue <- newTVarIO False
wroteHeader <- newTVarIO False
return $ Interaction {
- itrConfig = conf
- , itrRemoteHost = host
- , itrRequest = req
- , itrResponse = responce
+ itrConfig = conf
+ , itrRemoteHost = host
+ , itrResourcePath = Nothing
+ , itrRequest = req
+ , itrResponse = responce
, itrRequestHasBody = requestHasBody
, itrRequestIsChunked = requestIsChunked