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 ->