25 lines
544 B
OCaml
25 lines
544 B
OCaml
|
open Functoria.DSL
|
||
|
|
|
||
|
|
type http
|
||
|
|
|
||
|
|
val http : http typ
|
||
|
|
val cohttp_server : Conduit.conduit impl -> http impl
|
||
|
|
val httpaf_server : Conduit.conduit impl -> http impl
|
||
|
|
|
||
|
|
type http_client
|
||
|
|
|
||
|
|
val http_client : http_client typ
|
||
|
|
|
||
|
|
val cohttp_client :
|
||
|
|
Resolver.resolver impl -> Conduit.conduit impl -> http_client impl
|
||
|
|
|
||
|
|
type http_server
|
||
|
|
|
||
|
|
val http_server : http_server typ
|
||
|
|
val paf_server : int runtime_arg -> (Tcp.tcpv4v6 -> http_server) impl
|
||
|
|
|
||
|
|
type alpn_client
|
||
|
|
|
||
|
|
val alpn_client : alpn_client typ
|
||
|
|
val paf_client : (Tcp.tcpv4v6 -> Mimic.mimic -> alpn_client) impl
|