eio: make rdrand_task return a list of functions

Co-authored-by: Thomas Leonard <talex5@gmail.com>
mirage · Jun 23, 2022 · 6dd9b26 · 6dd9b26
1 parent 1296042
commit 6dd9b26
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/rng/eio/mirage_crypto_rng_eio.ml b/rng/eio/mirage_crypto_rng_eio.ml
@@ -40,7 +40,7 @@ let periodically_feed_entropy env delta source =
 let rdrand_task env delta = 
   match Entropy.cpu_rng with
   | Error `Not_supported -> []
-  | Ok cpu_rng -> periodic env (cpu_rng None) delta
+  | Ok cpu_rng -> [ fun () -> periodic env (cpu_rng None) delta ]
 
 let running = ref false