src/mte.ml

@@ -13,6 +13,11 @@
     You should have received a copy of the GNU Affero General Public License
     along with this program.  If not, see <https://www.gnu.org/licenses/>. *)
 
+let config req _server _env =
+  Logs.info (fun m -> m "GET /config");
+  let s = Api.(encode_exn ExchangeVersionResponse.jsont config) in
+  Respond_util.respond_with_ok_json s req
+
 let hello req _server _env =
   let open Vif.Response in
   let open Syntax in
@@ -33,7 +38,9 @@ let routes =
       get_ (v "privacy") --> Static.privacy;
     ]
   in
-  let status_info = [ get_ (rel / "keys") --> Http_keys.f ] in
+  let status_info =
+    [ get_ (rel / "config") --> config; get_ (rel / "keys") --> Http_keys.f ]
+  in
   let management =
     let open Http_management in
     let v s = rel / "management" / s in