Server.Middleware
type ('req, 'resp, 'req', 'resp') t
= ('req, 'resp) Service.t -> ('req', 'resp') Service.t
type ('req, 'resp) simple
= ('req, 'resp, 'req, 'resp) t