wip rm devices

src/pg.ml

@@ -26,7 +26,12 @@ let preflight =
         "SET search_path TO exchange;";
       ]
   in
-  fun (module Conn : CONN) -> Syntax.list_iter (fun p -> Conn.exec p ()) l
+  fun (module Conn : CONN) ->
+    let r = Syntax.list_iter (fun p -> Conn.exec p ()) l in
+    match r with
+    | Error err ->
+        Fmt.failwith "Database preflight failure: %a." Caqti_error.pp err
+    | Ok () -> ()
 
 let find_signkey =
   let req =