module SecondTransfer.Http2.MakeAttendant (
http2Attendant
) where
import SecondTransfer.Http2.Framer (wrapSession)
import SecondTransfer.Sessions.Internal (SessionsContext)
import SecondTransfer.MainLoop.CoherentWorker
import SecondTransfer.MainLoop.PushPullType (
--CloseAction,
--PushAction,
Attendant
)
http2Attendant :: SessionsContext -> CoherentWorker -> Attendant
http2Attendant sessions_context coherent_worker push_action pull_action close_action = do
let
attendant = wrapSession coherent_worker sessions_context
attendant push_action pull_action close_action