From 9d3e1e1ba3740186e4250e08b7fd80a4d7b04b07 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Fri, 7 Nov 2025 17:34:27 +0100
Subject: [PATCH]

---
 Makefile               | 2 +-
 dune-project           | 2 +-
 dune-workspace         | 2 +-
 unikernel/config.ml    | 6 +++---
 unikernel/dune         | 2 +-
 unikernel/unikernel.ml | 8 ++++----
 6 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/Makefile b/Makefile
index 31b40978..ce35131d 100644
--- a/Makefile
+++ b/Makefile
@@ -1,4 +1,4 @@
-# Generated by mirage.v4.10.3
+# Generated by mirage.v4.10.1
 
 -include Makefile.user
 BUILD_DIR = unikernel/
diff --git a/dune-project b/dune-project
index e06b4ae5..d020ffa9 100644
--- a/dune-project
+++ b/dune-project
@@ -4,4 +4,4 @@
 
 (implicit_transitive_deps true)
 
-;; Generated by mirage.v4.10.3
+;; Generated by mirage.v4.10.1
diff --git a/dune-workspace b/dune-workspace
index 9f714f25..743ecfad 100644
--- a/dune-workspace
+++ b/dune-workspace
@@ -2,4 +2,4 @@
 
 (context (default))
 
-;; Generated by mirage.v4.10.3
+;; Generated by mirage.v4.10.1
diff --git a/unikernel/config.ml b/unikernel/config.ml
index 639cc5a0..89f8783b 100644
--- a/unikernel/config.ml
+++ b/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 =
diff --git a/unikernel/dune b/unikernel/dune
index d336b137..acdbca06 100644
--- a/unikernel/dune
+++ b/unikernel/dune
@@ -1,3 +1,3 @@
-;; Generated by mirage.v4.10.3
+;; Generated by mirage.v4.10.1
 
 (include dune.build)
diff --git a/unikernel/unikernel.ml b/unikernel/unikernel.ml
index e5ce64bd..806afba7 100644
--- a/unikernel/unikernel.ml
+++ b/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 ->
@@ -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")