uuuhhhhhhhhh

src/global.ml

@@ -8,8 +8,9 @@ let db_conn =
     | Error err ->
         Fmt.failwith "Database connection failure: %a." Caqti_error.pp err
     | Ok conn ->
-        let () = Pg.preflight conn in
         Logs.info (fun m -> m "... connection done.");
+        let () = Pg.preflight conn in
+        Logs.info (fun m -> m "Preflight done.");
         conn
   in
   let finally (module Conn : Pg.CONN) = Conn.disconnect () in

src/mte.ml

@@ -76,7 +76,8 @@ let () =
   let storage = Mkernel.block "storage" in
   let service =
     let ipv4 = Ipaddr.V4.Prefix.of_string_exn "10.0.0.2/24" in
-    Mnet.stack ~name:"service" ipv4
+    Mnet.stack ~name:"service"
+    ipv4
   in
   Mkernel.(run [ rng; storage; service ])
   @@ fun rng storage (stack, tcp, udp) () ->