From 23ec29ac6c0f7d9d6957d19e3988dd87caa4a9f9 Mon Sep 17 00:00:00 2001 From: swrup Date: Tue, 11 Nov 2025 11:21:08 +0100 Subject: [PATCH] --- include/dune | 2 +- src/database.ml | 2 ++ src/mte.ml | 3 ++- 3 files changed, 5 insertions(+), 2 deletions(-) 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 () =