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")