From e58a89c4f4803b7db69f2e830e51569b3e27c676 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Reynir=20Bj=C3=B6rnsson?= <reynir@reynir.dk>
Date: Wed, 18 Dec 2024 15:35:28 +0100
Subject: [PATCH] app/mgit: Initialize the RNG

---
 app/dune    | 2 +-
 app/mgit.ml | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/app/dune b/app/dune
index db9e16b..6c5e5c0 100644
--- a/app/dune
+++ b/app/dune
@@ -1,3 +1,3 @@
 (executable
  (name mgit)
- (libraries mirage-clock-unix logs.fmt fmt.tty git-unix git-kv))
+ (libraries mirage-clock-unix logs.fmt fmt.tty git-unix git-kv mirage-crypto-rng.unix))
diff --git a/app/mgit.ml b/app/mgit.ml
index e9e065f..22c4595 100644
--- a/app/mgit.ml
+++ b/app/mgit.ml
@@ -169,6 +169,10 @@ let run remote = function
     | Ok t -> repl t Unix.stdin
     | Error (`Msg err) -> Fmt.failwith "%s." err )
 
+let run remote filename_opt =
+  let () = Mirage_crypto_rng_unix.initialize (module Mirage_crypto_rng.Fortuna) in
+  run remote filename_opt
+
 let () = match Sys.argv with
   | [| _; remote; |] -> run remote None
   | [| _; remote; filename; |] when Sys.file_exists filename ->