18 lines
473 B
OCaml
18 lines
473 B
OCaml
|
open Functoria.DSL
|
||
|
|
|
||
|
|
type random = job
|
||
|
|
|
||
|
|
let random = Functoria.job
|
||
|
|
|
||
|
|
let default_random =
|
||
|
|
let packages =
|
||
|
|
[ package ~min:"2.0.0" ~max:"3.0.0" "mirage-crypto-rng-mirage" ]
|
||
|
|
in
|
||
|
|
let connect _ modname _ =
|
||
|
|
(* here we could use the boot argument (--prng) to select the RNG! *)
|
||
|
|
code ~pos:__POS__ "%s.initialize (module Mirage_crypto_rng.Fortuna)" modname
|
||
|
|
in
|
||
|
|
impl ~packages ~connect "Mirage_crypto_rng_mirage" random
|
||
|
|
|
||
|
|
let no_random = impl "Mirage_runtime" random
|