remove IO channels (better use iostream); make Heap private

c-cube · Mar 6, 2024 · d069585 · d069585
1 parent a405697
commit d069585
Show file tree

Hide file tree

Showing 6 changed files with 2 additions and 275 deletions.
diff --git a/src/unix/IO_in.ml b/src/unix/IO_in.ml
diff --git a/src/unix/IO_out.ml b/src/unix/IO_out.ml
diff --git a/src/unix/dune b/src/unix/dune
@@ -4,7 +4,7 @@
   (public_name moonpool.unix)
   (optional)
   (synopsis "Simple Unix-based event loop for moonpool")
-  (private_modules common_)
+  (private_modules common_ heap_)
   (libraries moonpool moonpool.fib unix
              (select time.ml from
                      (mtime mtime.os.clock -> time.mtime.ml)

diff --git a/src/unix/heap.ml → src/unix/heap_.ml b/src/unix/heap.ml → src/unix/heap_.ml
diff --git a/src/unix/heap.mli → src/unix/heap_.mli b/src/unix/heap.mli → src/unix/heap_.mli
diff --git a/src/unix/timer.ml b/src/unix/timer.ml
@@ -13,7 +13,7 @@ type task = {
   kind: kind;
 }
 
-module Task_heap = Heap.Make (struct
+module Task_heap = Heap_.Make (struct
   type t = task
 
   let[@inline] leq t1 t2 = t1.deadline <= t2.deadline