swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

caqti

Browse source
This commit is contained in:
swrup 2025-11-08 01:38:06 +01:00
parent 24c7ec2b17
commit 014eb43528
7 changed files with 93 additions and 68 deletions
Download patch file Download diff file Expand all files Collapse all files

21
unikernel/config.ml
View file

@ -4,11 +4,14 @@ let pgx_setup = runtime_arg ~pos:__POS__ "Unikernel.pgx_setup"
let packages =
[
package "digestif"; package ~min:"0.0.9" "mimic-happy-eyeballs";
package "hxd" ~sublibs:[ "core"; "string" ]; package "rresult";
package ~min:"0.13.0" "h2"; package ~min:"10.0.0" "dns-client";
package "pgx"; package "pgx_lwt"; package "pgx_lwt_mirage"; package "logs";
package "mirage-logs"; package "conduit"; package "duration";
package ~min:"0.0.9" "mimic-happy-eyeballs"; package ~min:"0.13.0" "h2";
package "logs"; package "mirage-logs";
]
@
(* TODO pin caqti *)
[
package "caqti"; package "caqti-tls"; package "caqti-driver-pgx";
package "caqti-mirage"; package "caqti-lwt"; package "dns-client-mirage";
]
let mte =
@ -20,14 +23,13 @@ let mte =
@-> tcpv4v6
@-> http_server
@-> stackv4v6
@-> happy_eyeballs
@-> dns_client
@-> job)
let stackv4v6 = generic_stackv4v6 default_network
let tcpv4v6 = tcpv4v6_of_stackv4v6 stackv4v6
let happy_eyeballs = generic_happy_eyeballs stackv4v6
(*let dns = generic_dns_client stackv4v6 happy_eyeballs*)
let dns = generic_dns_client stackv4v6 happy_eyeballs
let certificates = crunch "../data/tls/certificates"
let keys = crunch "../data/tls/keys"
let assets = crunch "../data/assets"
@ -43,7 +45,6 @@ let () =
$ keys
$ tcpv4v6
$ http_server
(* TODO maybe we can avoid to repeat the stack? *)
$ stackv4v6
$ happy_eyeballs;
$ dns;
]