s/Pervasives/Stdlib/ churn

Author: rr0gi

action.ml

@@ -290,14 +290,14 @@ let io_copy input output =
 
 let io_null = IO.create_out ~write:(fun _ -> ()) ~output:(fun _ _ len -> len) ~flush:id ~close:id
 
-let compare_by f a b = Pervasives.compare (f a) (f b)
+let compare_by f a b = Stdlib.compare (f a) (f b)
 let compare2 f g (a,b) (a',b') =
   match f a a' with
   | 0 -> g b b'
   | x -> x
 let compare2_by f g (a,b) (a',b') =
-  match Pervasives.compare (f a) (f a') with
-  | 0 -> Pervasives.compare (g b) (g b')
+  match Stdlib.compare (f a) (f a') with
+  | 0 -> Stdlib.compare (g b) (g b')
   | x -> x
 let compare_fst f (a,_) (a',_) = f a a'
 

action.mli

@@ -42,7 +42,7 @@ val chunk_e : int -> 'a Enum.t -> 'a Enum.t Enum.t
 
 (**
   find the minimum element in the list
-  @param cmp compare function, default [Pervasives.compare]
+  @param cmp compare function, default [Stdlib.compare]
   @raise Empty_list when list is empty
 *)
 val list_min : ?cmp:('a -> 'a -> int) -> 'a list -> 'a

network.ml

@@ -50,7 +50,7 @@ let class_c ip = Int32.logand 0xFFFFFF00l ip
 module IPv4 = struct
 type t = ipv4
 let equal = (=)
-let compare = Pervasives.compare
+let compare = Stdlib.compare
 let null = ipv4_null
 let to_bytes = bytes_of_ipv4
 let to_string = string_of_ipv4

nix.ml

@@ -96,7 +96,7 @@ let handle_sig_exit_with ~exit fin =
 (*         log #info "Received signal %i (exit)..." n; *)
         (try fin () with exn -> log #warn ~exn "handle_sig_exit");
 (*         log #info "Signal handler done.%s" (if exit then " Exiting." else ""); *)
-        if exit then Pervasives.exit 0)))
+        if exit then Stdlib.exit 0)))
     [Sys.sigint; Sys.sigterm]
 
 (**