add /seed

src/mte.ml

@@ -13,6 +13,19 @@
     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/>. *)
 
+(* TODO mirage-crypto
+   is this ok?
+   maybe don't use the same RNG-initialization as the one used to generate keys *)
+let seed req _server _env =
+  Logs.info (fun m -> m "GET /seed");
+  (* RNG is initialized by Vif.run *)
+  let s = Mirage_crypto_rng.generate 64 in
+  let open Vif.Response in
+  let open Syntax in
+  let* () = add ~field:"content-type" "application/octet-stream" in
+  let* () = with_string req s in
+  respond `OK
+
 let config req _server _env =
   Logs.info (fun m -> m "GET /config");
   let s = Api.(encode_exn ExchangeVersionResponse.jsont config) in
@@ -39,7 +52,11 @@ let routes =
     ]
   in
   let status_info =
-    [ get_ (rel / "config") --> config; get_ (rel / "keys") --> Http_keys.f ]
+    [
+      get_ (rel / "seed") --> seed;
+      get_ (rel / "config") --> config;
+      get_ (rel / "keys") --> Http_keys.f;
+    ]
   in
   let management =
     let open Http_management in