Source file `import.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
module Debug_in_this_directory = Debug
module Time_ns_in_this_directory = Time_ns
open! Core
include Int.Replace_polymorphic_compare
module Debug = Debug_in_this_directory
module Time_ns = Time_ns_in_this_directory
module Pool = Tuple_pool

module Max_num_jobs_per_priority_per_cycle =
  Async_kernel_config.Max_num_jobs_per_priority_per_cycle

let concat = String.concat
let eprint = Core.Debug.eprint
let eprint_s = Core.Debug.eprint_s
let eprints = Core.Debug.eprints
let print_s sexp = printf "%s\n%!" (sexp |> Sexp.to_string_hum)
let sec = Time_ns.Span.of_sec

(* We don't want to use these modules in Async_kernel, to avoid difficulties with
   using it on js_of_ocaml. *)
module Thread = struct end
module Unix = struct end