robur/git-kv
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

app/mgit: Initialize the RNG

Browse source
This commit is contained in:
Reynir Björnsson 2024-12-18 15:35:28 +01:00
parent f0259b04b5
commit e58a89c4f4
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
app/dune
View file

@ -1,3 +1,3 @@
(executable (executable
(name mgit) (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))

4
app/mgit.ml
View file

@ -169,6 +169,10 @@ let run remote = function
| Ok t -> repl t Unix.stdin | Ok t -> repl t Unix.stdin
| Error (`Msg err) -> Fmt.failwith "%s." err ) | 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 let () = match Sys.argv with
| [| _; remote; |] -> run remote None | [| _; remote; |] -> run remote None
| [| _; remote; filename; |] when Sys.file_exists filename -> | [| _; remote; filename; |] when Sys.file_exists filename ->