include/dune

@@ -1,7 +1,7 @@
 (library
  (name include)
  ; (wrapped false)
- (modules taler_signatures sql)
+ (modules taler_signatures)
  (libraries))
 
 (executable

src/database.ml

@@ -23,3 +23,5 @@ let test req server _ =
       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 init = test

src/mte.ml

@@ -113,7 +113,8 @@ let routes =
     get (rel /?? nil) --> hello; get (rel / "terms" /?? nil) --> Static.terms;
     get (rel / "privacy" /?? nil) --> Static.privacy;
     get (rel / "management" / "keys" /?? nil) --> Management.keys;
-    get (rel / "db" /?? nil) --> Database.test;
+    get (rel / "db_test" /?? nil) --> Database.test;
+    get (rel / "db_init" /?? nil) --> Database.init;
   ]
 
 let () =