unikernel/config.ml

@@ -6,9 +6,9 @@ let packages =
   [
     package "digestif"; package ~min:"0.0.9" "mimic-happy-eyeballs";
     package "hxd" ~sublibs:[ "core"; "string" ]; package "rresult";
-    package "h2" ~min:"0.13.0"; package "pgx"; package "pgx_lwt";
-    package "pgx_lwt_mirage"; package "logs"; package "mirage-logs";
-    package "conduit"; package "duration";
+    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";
   ]
 
 let mte =

unikernel/dune

@@ -1,3 +1,3 @@
-;; Generated by mirage.v4.10.3
+;; Generated by mirage.v4.10.1
 
 (include dune.build)

unikernel/unikernel.ml

@@ -112,7 +112,7 @@ struct
       in
       Lwt.return
       @@
-      let open Result.Syntax in
+      let ( let* ) = Result.bind in
       let* l =
         list_get_ok
         @@ List.map
@@ -172,7 +172,7 @@ struct
       let*? privacy_etag, privacy_lang_l, privacy_ext_l = get ro "privacy" in
       Lwt.return
       @@
-      let open Result.Syntax in
+      let ( let* ) = Result.bind in
       let* lang_l =
         match terms_lang_l = privacy_lang_l with
         | false ->
@@ -268,7 +268,7 @@ struct
     let+ (), () = Lwt.both th0 th1 in
     ()
 
-  let run http_server =
+  let run ~pgx_conn:_ http_server =
     let http_1_1_service =
       HTTP_server.http_service ~error_handler:Server.http_1_1_error_handler
         http_1_1_request_handler
@@ -288,9 +288,9 @@ struct
     in
     Pgx.with_conn ~user:pgx_user ~host:pgx_hostname ~password:pgx_password
       ~port:pgx_port ~database:pgx_database
-    @@ fun conn ->
+    @@ fun pgx_conn ->
     let* () =
-      let+ alive = Pgx.alive conn in
+      let+ alive = Pgx.alive pgx_conn in
       match alive with
       | false -> Fmt.failwith "Pgx connection failure: connection not alive"
       | true -> Logs.info (fun m -> m "Pgx connection success")
@@ -301,7 +301,7 @@ struct
     | Ok (_terms_etag, _privacy_etag, _lang_l, _ext_l) -> (
         let* tls_res = tls certificate_ro key_ro in
         match use_tls () with
-        | false -> run http_server
+        | false -> run ~pgx_conn http_server
         | true -> (
             match tls_res with
             | Error (`Msg m) ->