diff --git a/include/dune b/include/dune index 3db76755..d9601600 100644 --- a/include/dune +++ b/include/dune @@ -1,7 +1,7 @@ (library (name include) ; (wrapped false) - (modules taler_signatures sql) + (modules taler_signatures) (libraries)) (executable diff --git a/src/database.ml b/src/database.ml index bb7e5ec5..140d0082 100644 --- a/src/database.ml +++ b/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 diff --git a/src/mte.ml b/src/mte.ml index 15220878..8f87a878 100644 --- a/src/mte.ml +++ b/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 () =