~~~

src/mte.ml

@@ -23,13 +23,40 @@ let hello req _server _env =
 let routes =
   let open Vif.Uri in
   let open Vif.Route in
-  (*let open Vif.Type in*)
-  [
-    get (rel /?? nil) --> hello;
-    get (rel / "terms" /?? nil) --> Static.terms;
-    get (rel / "privacy" /?? nil) --> Static.privacy;
-    get (rel / "management" / "keys" /?? nil) --> Management.keys_get;
-  ]
+  let get_ path = get (path /?? any) in
+  let post path jsont = post (Vif.Type.json_encoding jsont) (path /?? any) in
+  let tos =
+    let v s = rel / s in
+    [
+      get_ rel --> hello;
+      get_ (v "terms") --> Static.terms;
+      get_ (v "privacy") --> Static.privacy;
+    ]
+  in
+  let status_info = [ get_ (rel / "keys") --> Http_keys.f ] in
+  let management =
+    let open Http_management in
+    let v s = rel / "management" / s in
+    [
+      get_ (v "keys") --> Keys_get.f;
+      post (v "keys") Keys_post.jsont --> Keys_post.f;
+      post (v "denominations" /% string `Path / "revoke") Denom_revoke.jsont
+      --> Denom_revoke.f;
+      post (v "signkeys" /% string `Path / "revoke") Signkey_revoke.jsont
+      --> Signkey_revoke.f;
+      post (v "auditors") Auditors.jsont --> Auditors.f;
+      post (v "auditors" /% string `Path / "disable") Auditors_disable.jsont
+      --> Auditors_disable.f;
+      post (v "wire-fee") Wire_fee.jsont --> Wire_fee.f;
+      post (v "global-fees") Global_fees.jsont --> Global_fees.f;
+      post (v "wire") Wire.jsont --> Wire.f;
+      post (v "wire" / "disable") Wire_disable.jsont --> Wire_disable.f;
+      post (v "drain") Drain.jsont --> Drain.f;
+      post (v "aml-officers") AmlOfficer.jsont --> AmlOfficer.f;
+      post (v "partners") Partners.jsont --> Partners.f;
+    ]
+  in
+  tos @ status_info @ management
 
 let () =
   Util.Log_reporter.setup ();
@@ -43,10 +70,7 @@ let () =
   let env : Devices.env =
     { caqti_switch; db_uri= Config.Exchangedb_postgres.config }
   in
-  let devices =
-    Vif.Devices.
-      [ Devices.db_connection; Devices.secmod_signkey; Devices.secmod_denom ]
-  in
+  let devices = Vif.Devices.[ Devices.db_connection; Devices.secmod ] in
   let middlewares = Vif.Middlewares.[] in
   Logs.info (fun m ->
       m ~tags:(Util.Log_reporter.detail "...") "Starting MTE server");