wip post json

This commit is contained in:
swrup 2025-11-30 14:23:55 +01:00
parent cf4da6b382
commit 16819f83da
2 changed files with 27 additions and 4 deletions

View file

@ -33,7 +33,10 @@ let routes =
get_ (rel / "privacy" /?? nil) --> Static.privacy;
get_ (rel / "test" /?? nil) --> Database.test_activate;
get_ (rel / "management" / "keys" /?? nil) --> Management.keys_get;
post (rel / "management" / "keys" /?? nil) any --> Management.keys_post;
post
(rel / "management" / "keys" /?? nil)
(json_encoding Management.foo_jsont)
--> Management.keys_post;
]
let () =