swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add sql Makefile

Browse source
This commit is contained in:
swrup 2025-11-11 10:03:56 +01:00
parent 11ee418801
commit 4f2e77f27f
4 changed files with 45 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/database.ml
View file

@ -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

3
src/mte.ml
View file

@ -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 () =