module SecondTransfer.Http2.MakeAttendant (
http2Attendant
) where
import SecondTransfer.Http2.Framer (wrapSession)
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 coherent_worker sessions_context
attendant attendant_callbacks