Fix Toploop deprecation

dune-universe · Aug 2, 2022 · e117d11 · e117d11
1 parent a1c1167
commit e117d11
Showing 1 changed file with 7 additions and 13 deletions.
diff --git a/src/findlib/topfind.ml.in b/src/findlib/topfind.ml.in
@@ -123,7 +123,7 @@ let load pkglist =
 
 
                  begin try
-                     match Hashtbl.find Toploop.directive_table "ppx" with
+                     match Hashtbl.find (Toploop.directive_table [@ocaml.alert "-deprecated"]) "ppx" with
                        | Toploop.Directive_string fn -> 
                             fn ppx; !log (ppx ^ ": activated")
                        | _ -> assert false
@@ -252,8 +252,7 @@ let protect f arg =
 
 (* Add "#require" directive: *)
 
-Hashtbl.add
-    Toploop.directive_table
+Toploop.add_directive
     "require"
     (Toploop.Directive_string
        (fun s ->
@@ -262,8 +261,7 @@ Hashtbl.add
 ;;
 
 (* Add "#predicates" directive: *)
-Hashtbl.add
-    Toploop.directive_table
+Toploop.add_directive
     "predicates"
     (Toploop.Directive_string
        (fun s ->
@@ -274,8 +272,7 @@ Hashtbl.add
 
 (* Add "#camlp4o" directive: *)
 
-Hashtbl.add
-    Toploop.directive_table
+Toploop.add_directive
     "camlp4o"
     (Toploop.Directive_none
        (fun () ->
@@ -287,8 +284,7 @@ Hashtbl.add
 
 (* Add "#camlp4r" directive: *)
 
-Hashtbl.add
-    Toploop.directive_table
+Toploop.add_directive
     "camlp4r"
     (Toploop.Directive_none
        (fun () ->
@@ -301,8 +297,7 @@ Hashtbl.add
 
 (* Add "#list" directive: *)
 
-Hashtbl.add
-    Toploop.directive_table
+Toploop.add_directive
     "list"
     (Toploop.Directive_none
        (fun () ->
@@ -313,8 +308,7 @@ Hashtbl.add
 
 (* Add "#thread" directive: *)
 
-Hashtbl.add
-    Toploop.directive_table
+Toploop.add_directive
     "thread"
     (Toploop.Directive_none
        (fun () ->