revert: Eio.Time to Unix.sleepf

Author: Pilou97

deku-p/src/core/bin/node/deku_node.ml

@@ -93,7 +93,6 @@ let main params style_renderer log_level =
   Eio_main.run @@ fun env ->
   Eio.Switch.run @@ fun sw ->
   Parallel.Pool.run ~env ~domains @@ fun () ->
-  Clock.init (Eio.Stdenv.clock env);
   Logs.info (fun m -> m "Using %d domains" domains);
   Logs.info (fun m -> m "Default block size: %d" default_block_size);
   let indexer =

deku-p/src/core/chain/chain.ml

@@ -117,7 +117,7 @@ let minimum_block_latency =
   | Some x -> Option.value ~default:0.0 (Float.of_string_opt x)
   | None -> 0.0
 
-let next_sleep_until = ref 0.0
+let last_sleep : float ref = ref @@ Unix.gettimeofday ()
 
 (* after gossip *)
 let apply_consensus_action chain consensus_action =
@@ -139,9 +139,10 @@ let apply_consensus_action chain consensus_action =
       (match minimum_block_latency with
       | 0. -> ()
       | minimum_block_latency ->
-          let () = Clock.sleep_until !next_sleep_until in
-          let now = Clock.now () in
-          next_sleep_until := now +. minimum_block_latency);
+          let now = Unix.gettimeofday () in
+          let sleep = minimum_block_latency -. (now -. !last_sleep) in
+          if sleep > 0.0 then Unix.sleepf sleep;
+          last_sleep := Unix.gettimeofday ());
       (chain, [ Chain_fragment { fragment } ])
   | Consensus_vote { level; vote } ->
       let content = Message.Content.vote ~level ~vote in

deku-p/src/core/stdlib/clock.ml

@@ -6,4 +6,3 @@ module IO = Io
 include Let_syntax
 module Parallel = Parallel
 module List = List_ext
-module Clock = Clock

deku-p/src/core/stdlib/deku_stdlib.ml

@@ -11,4 +11,3 @@ module IO = Io
 
 module Parallel = Parallel
 module List = List_ext
-module Clock = Clock