pyrox.dev
1diff --git a/src/heap/sharedMem.ml b/src/heap/sharedMem.ml
2index 600e272..511b724 100644
3--- a/src/heap/sharedMem.ml
4+++ b/src/heap/sharedMem.ml
5@@ -521,7 +521,7 @@ end = struct
6
7 let stack: t option ref = ref None
8
9- let has_local_changes () = Core_kernel.Option.is_some (!stack)
10+ let has_local_changes () = Core.Option.is_some (!stack)
11
12 let rec mem stack_opt key =
13 match stack_opt with
14diff --git a/src/interface/memory.ml b/src/interface/memory.ml
15index 3554b17..09aa1f5 100644
16--- a/src/interface/memory.ml
17+++ b/src/interface/memory.ml
18@@ -66,10 +66,10 @@ let get_heap_handle () =
19
20
21 let heap_use_ratio () =
22- Core_kernel.Float.of_int (SharedMemory.heap_size ()) /.
23- Core_kernel.Float.of_int initial_heap_size
24+ Core.Float.of_int (SharedMemory.heap_size ()) /.
25+ Core.Float.of_int initial_heap_size
26
27
28 let slot_use_ratio () =
29 let { SharedMemory.used_slots; slots; _ } = SharedMemory.hash_stats () in
30- Core_kernel.Float.of_int used_slots /. Core_kernel.Float.of_int slots
31+ Core.Float.of_int used_slots /. Core.Float.of_int slots
32diff --git a/src/interface/scheduler.ml b/src/interface/scheduler.ml
33index 9b8282a..b5d41b5 100644
34--- a/src/interface/scheduler.ml
35+++ b/src/interface/scheduler.ml
36@@ -48,7 +48,7 @@ let map_reduce
37 | Some exact_size when exact_size > 0 ->
38 (List.length work / exact_size) + 1
39 | _ ->
40- let bucket_multiplier = Core_kernel.Int.min bucket_multiplier (1 + (List.length work / 400)) in
41+ let bucket_multiplier = Core.Int.min bucket_multiplier (1 + (List.length work / 400)) in
42 number_of_workers * bucket_multiplier
43 in
44 MultiWorker.call
45diff --git a/src/utils/dune b/src/utils/dune
46index 50a4c42..45e4a5a 100644
47--- a/src/utils/dune
48+++ b/src/utils/dune
49@@ -15,6 +15,7 @@
50 sysinfo)
51 (libraries
52 core
53+ core_unix
54 str
55 hack_parallel.collections
56 hack_parallel.disk
57diff --git a/src/utils/hh_logger.ml b/src/utils/hh_logger.ml
58index 4c99f05..8075ed5 100644
59--- a/src/utils/hh_logger.ml
60+++ b/src/utils/hh_logger.ml
61@@ -9,6 +9,7 @@
62 *)
63
64 open Core
65+module Unix = Core_unix
66
67 let timestamp_string () =
68 let open Unix in