Remove more mentions of "deprecation"

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
ocaml · Aug 31, 2018 · 5942ea3 · 5942ea3
1 parent acf9446
commit 5942ea3
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/src/dir_contents.ml b/src/dir_contents.ml
@@ -198,7 +198,7 @@ end = struct
       | Yes_with_transition _ ->
         ( wrap_modules modules
         , Module.Name.Map.remove modules main_module_name
-          |> Module.Name.Map.map ~f:Module.deprecate
+          |> Module.Name.Map.map ~f:Module.wrapped_compat
         )
     in
     let alias_module =

diff --git a/src/module.ml b/src/module.ml
@@ -164,7 +164,7 @@ let to_sexp { name; impl; intf; obj_name ; pp } =
     ; "pp", (option string) (Option.map ~f:(fun _ -> "has pp") pp)
     ]
 
-let deprecate t =
+let wrapped_compat t =
   { t with
     intf = None
   ; impl =
@@ -178,7 +178,7 @@ let deprecate t =
         in
         let path =
           Path.L.relative (Path.parent_exn path)
-            [ ".deprecated"
+            [ ".wrapped_compat"
             ; Path.basename path
             ]
         in

diff --git a/src/module.mli b/src/module.mli
@@ -95,4 +95,4 @@ val set_pp : t -> (unit, string list) Build.t option -> t
 
 val to_sexp : t Sexp.To_sexp.t
 
-val deprecate : t -> t
+val wrapped_compat : t -> t
Original file line number	Diff line number	Diff line change
Expand Up		@@ -95,4 +95,4 @@ val set_pp : t -> (unit, string list) Build.t option -> t

		val to_sexp : t Sexp.To_sexp.t

		val deprecate : t -> t
		val wrapped_compat : t -> t