unikernel/duniverse/mirage/lib/devices/http.mli

@@ -0,0 +1,24 @@
+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