diff --git a/CHANGES.md b/CHANGES.md index f5e5cb20a3ad..98165b4dd85c 100644 --- a/CHANGES.md +++ b/CHANGES.md @@ -177,6 +177,9 @@ Unreleased new `(subst )` stanza to the `dune-project` file. (#4864, @kit-ty-kate) +- No longer reference deprecated Toploop functions when using dune files in + OCaml syntax. (#4834, fixes #4830, @nojb) + 2.9.1 (07/09/2021) ------------------ diff --git a/src/dune_rules/assets.ml b/src/dune_rules/assets.ml index c822c4fa253f..a5d6563d9b47 100644 --- a/src/dune_rules/assets.ml +++ b/src/dune_rules/assets.ml @@ -1,7 +1,9 @@ let jbuild_plugin_ml = {jbp| let () = let open Toploop in - let set_directive name desc = add_directive name desc (get_directive_info name) in + let set_directive name desc = + add_directive name desc (get_directive_info name) + in set_directive "require" (Directive_string ignore); set_directive "use" (Directive_string @@ -74,4 +76,4 @@ module V1 : sig (** Execute a command and read its output *) val run_and_read_lines : string -> string list end -|jbp} +|jbp} \ No newline at end of file