Remove unused List module

src/easy_format.ml

@@ -1,27 +1,12 @@
 open Format
 
-(** Shadow map and split with tailrecursive variants. *)
-module List = struct
-  include List
-
-  [@@@warning "-32"]
-
-  (** Tail recursive of map *)
-  let map f l = List.rev_map f l |> List.rev
-
-  (** Tail recursive version of split *)
-  let rev_split l =
-    let rec inner xs ys = function
-      | (x, y) :: xys ->
-          inner (x::xs) (y::ys) xys
-      | [] -> (xs, ys)
-    in
-    inner [] [] l
-
-  let split l = rev_split (List.rev l)
-
-  [@@@warning "+32"]
-end
+let rev_split l =
+  let rec inner xs ys = function
+    | (x, y) :: xys ->
+       inner (x::xs) (y::ys) xys
+    | [] -> (xs, ys)
+  in
+  inner [] [] l
 
 type wrap = [
   | `Wrap_atoms
@@ -131,7 +116,7 @@ let propagate_from_leaf_to_root
         let acc = init_acc x in
         map_node x acc
     | List (param, children) ->
-        let new_children, accs = List.rev_split (List.rev_map aux children) in
+        let new_children, accs = rev_split (List.rev_map aux children) in
         let acc = List.fold_left merge_acc (init_acc x) accs in
         map_node (List (param, new_children)) acc
     | Label ((x1, param), x2) ->