module SecondTransfer.Http2.MakeAttendant (
http2Attendant
) where
import SecondTransfer.Http2.Framer (wrapSession, SessionPayload(..))
import SecondTransfer.Sessions.Internal (SessionsContext)
import SecondTransfer.MainLoop.CoherentWorker
import SecondTransfer.MainLoop.PushPullType (Attendant)
http2Attendant :: SessionsContext -> AwareWorker -> Attendant
http2Attendant sessions_context coherent_worker attendant_callbacks = do
let
attendant = wrapSession (AwareWorker_SP coherent_worker) sessions_context
attendant attendant_callbacks