cleanup deprecations

Author: rr0gi

action.ml

@@ -29,10 +29,6 @@ let ewma alpha : ewma =
   (fun f -> if compare nan !x = 0 then x := f else x := !x +. alpha *. (f -. !x)),
   (fun () -> if compare nan !x = 0 then 0. else !x)
 
-let catmap = Stre.catmap
-let strl = Stre.list
-let stra = Stre.array
-
 let uniq p e =
   let h = Hashtbl.create 16 in
   Enum.filter (fun x ->

action.mli

@@ -82,13 +82,6 @@ val unpartition : 'a list array -> 'a list
 val stable_partition : int -> 'a list -> 'a list list
 val stable_unpartition : 'a list list -> 'a list
 
-(** Printing *)
-
-val catmap : ?sep:string -> ('a -> string) -> 'a list -> string [@@ocaml.deprecated "use Stre.catmap"]
-val strl : ('a -> string) -> 'a list -> string [@@ocaml.deprecated "use Stre.list"]
-val stra : ('a -> string) -> 'a array -> string [@@ocaml.deprecated "use Stre.array"]
-
-
 (** Array utilities *)
 
 val array_random_exn : ?state:Random.State.t -> 'a array -> 'a

httpev.ml

@@ -660,12 +660,10 @@ let setup_server config answer =
 let setup_fd fd config answer = let (_:server) = setup_server_fd fd config answer in ()
 let setup config answer = let (_:server) = setup_server config answer in ()
 
-let run config answer =
+let server config answer =
   setup config answer;
   Ev.dispatch config.events
 
-let server = run (* deprecated *)
-
 let header n v = n,v
 let forbidden = `Forbidden, [], "forbidden"
 let not_found = `Not_found, [], "not found"

lwt_mark.ml

@@ -182,8 +182,6 @@ let async ?log name run_thread =
     with_new_mark ?log ~name:(Lazy.from_val name) ~kind:Background @@
     run_thread
 
-let ignore_result = async
-
 let log_do msg =
   let mark = Option.default top_mark (Lwt.get key) in
   log_add_line mark msg

lwt_mark.mli

@@ -54,13 +54,6 @@ val status_s : string        -> ?dump:('a -> string) -> (unit -> 'a Lwt.t) -> 'a
     purposes).  Pass [~log] to log thread failure with devkit logger (level = warn). *)
 val async : ?log:Log.logger -> string -> (unit -> unit Lwt.t) -> unit
 
-(** [ignore_result == async]. Deprecated.
-    Note: this function takes argument [run_thread] that creates thread, not the thread itself, this differs from [Lwt.ignore_result].
-    Reason: functions of this module may be used during evaluation of [(run_thread ()) : 'a Lwt.t], so we need to prepare Lwt thread
-    storage before the evaluation of [(run_thread ())].
- *)
-val ignore_result : ?log:Log.logger -> string -> (unit -> unit Lwt.t) -> unit
-
 (** Adds line to current thread's last logs.
     When marking is enabled, but current thread is not marked/named, line is added to special "<top>" thread logs. *)
 val log   : string        -> unit

prelude.ml

@@ -21,19 +21,6 @@ let eprintfn fmt = Printf.ksprintf prerr_endline fmt
 let curry f a b = f (a, b)
 let uncurry f (a,b) = f a b
 
-module New(T : sig type t end)() =
-struct
-  type t = T.t
-  let inj = id
-  let proj = id
-  let inj_list = id
-  let proj_list = id
-  let inject = id
-  let project = id
-  let inject_list = id
-  let project_list = id
-end
-
 module Fresh(T : sig type t val compare : t -> t -> int end)() =
 struct
   type t = T.t

prelude.mli

@@ -43,19 +43,6 @@ val printfn : ('a, unit, string, unit) format4 -> 'a
 val eprintfn : ('a, unit, string, unit) format4 -> 'a
 
 (** abstract type generator *)
-module New(T : sig type t end)() :
-sig
-  type t
-  val inj : T.t -> t
-  val proj : t -> T.t
-  val inj_list : T.t list -> t list
-  val proj_list : t list -> T.t list
-  val inject : T.t -> t
-  val project : t -> T.t
-  val inject_list : T.t list -> t list
-  val project_list : t list -> T.t list
-end[@@deprecated "use Fresh instead"]
-
 module Fresh(T : sig type t val compare : t -> t -> int end)() :
 sig
   type t

signal.ml

@@ -42,18 +42,6 @@ let handle t sigs f =
   let _ = U.signalfd ~fd:t.fd ~sigs ~flags:[] () in
   ()
 
-let handle_exit t f = handle t [Sys.sigterm; Sys.sigint]
-  (fun n ->
-    log #info "Received signal %i (exit)..." n;
-    (try f () with exn -> log #warn ~exn "Signal.handle_exit");
-    log #info "Signal handler done.";)
-
-let handle_reload t f = handle t [Sys.sighup]
-  (fun n ->
-    log #info "Received signal %i (reload)..." n;
-    (try f () with exn -> log #warn ~exn "Signal.handle_reload");
-    log #info "Signal handler done.")
-
 (** {2 Lwt} *)
 
 let h_lwt = Hashtbl.create 10
@@ -65,9 +53,6 @@ let lwt_handle sigs f =
     Hashtbl.replace h_lwt signo sig_id
   end
 
-let lwt_handle_exit = lwt_handle [Sys.sigterm; Sys.sigint]
-let lwt_handle_reload = lwt_handle [Sys.sighup]
-
 (** {2 generic registration} *)
 
 let install_sys signo f = Sys.set_signal signo (Sys.Signal_handle f)

signal.mli

@@ -9,19 +9,6 @@ type t
 val init : Async.Ev.event_base -> t
 val stop : t -> unit
 
-val handle : t -> int list -> (int -> unit) -> unit [@@deprecated "use Signal.set instead"]
-val handle_exit : t -> (unit -> unit) -> unit [@@deprecated "use Signal.set_exit instead"]
-val handle_reload : t -> (unit -> unit) -> unit [@@deprecated "use Signal.set_reload instead"]
-
-(** {2 lwt}
-
-  explicit interface (for compatibility)
-*)
-
-val lwt_handle : int list -> (unit -> unit) -> unit [@@deprecated "use Signal.set instead"]
-val lwt_handle_exit : (unit -> unit) -> unit [@@deprecated "use Signal.set_exit instead"]
-val lwt_handle_reload : (unit -> unit) -> unit [@@deprecated "use Signal.set_reload instead"]
-
 (** {2 generic registration} *)
 
 val is_safe_output : unit -> bool

web.ml

@@ -136,13 +136,6 @@ module type HTTP = sig
   module IO : IO_TYPE
   val with_curl : (Curl.t -> 'a IO.t) -> 'a IO.t
   val with_curl_cache : (Curl.t -> 'a IO.t) -> 'a IO.t
-  val http_gets :
-    ?setup:(Curl.t -> unit) ->
-    ?timer:Action.timer ->
-    ?max_size:int ->
-    ?check:(Curl.t -> bool) ->
-    ?result:(Curl.t -> Curl.curlCode -> unit IO.t) ->
-    string -> [ `Error of Curl.curlCode | `Ok of int * string ] IO.t
 
   type ('body,'ret) request_ = ('body,'ret IO.t) http_request_
   type 'ret request = 'ret IO.t http_request
@@ -360,7 +353,6 @@ module Http_lwt = Http(IO_lwt)(Curl_lwt_for_http)
 
 let with_curl = Http_blocking.with_curl
 let with_curl_cache = Http_blocking.with_curl_cache
-let http_gets = Http_blocking.http_gets
 let http_request' = Http_blocking.http_request'
 let http_request = Http_blocking.http_request
 let http_request_exn = Http_blocking.http_request_exn