src/database.ml

@@ -2,31 +2,7 @@
    - GNU Taler db-events?
      it seems caqti/pgx does not support it *)
 
-let test req server _ =
-  let (module Conn : Caqti_miou.CONNECTION) =
-    Vif.Server.device Devices.db_connection server
-  in
-  let query =
-    let open Caqti_request.Infix in
-    Caqti_type.(unit ->! int) "SELECT 53 - 11"
-  in
-  match Conn.find query () with
-  | Ok n ->
-      let open Vif.Response.Syntax in
-      let* () =
-        Vif.Response.add ~field:"content-type" "text/plain; charset= utf-8"
-      in
-      let* () = Vif.Response.with_string req (Fmt.str "53 - 11 = %d@." n) in
-      Vif.Response.respond `OK
-  | Error err ->
-      (* TODO don't leak private data in error messages *)
-      let open Vif.Response.Syntax in
-      let str = Fmt.str "Database error: %a." Caqti_error.pp err in
-      let* () = Vif.Response.with_string req str in
-      Vif.Response.respond `Internal_server_error
-
 let test_activate req server _ =
-  (*let (module Conn : Caqti_miou.CONNECTION) =*)
   let db_conn = Vif.Server.device Devices.db_connection server in
   let secmod_signkey = Vif.Server.device Devices.secmod_signkey server in
   let exchange_public_key = secmod_signkey.sm_key in
@@ -44,5 +20,6 @@ let test_activate req server _ =
       (* TODO don't leak private data in error messages *)
       let open Vif.Response.Syntax in
       let str = Fmt.str "Database error: %a." Caqti_error.pp err in
+      Logs.err (fun m -> m "%s" str);
       let* () = Vif.Response.with_string req str in
       Vif.Response.respond `Internal_server_error