Geneate subsystems only with dune syntax

Signed-off-by: Rudi Grinberg <[email protected]>
jonludlam · Dec 10, 2018 · 2711faf · 2711faf
1 parent 55edc8a
commit 2711faf
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/inline_tests.ml b/src/inline_tests.ml
@@ -87,7 +87,7 @@ module Backend = struct
       let lib x = Lib_name.encode (Lib.name x) in
       let f x = Lib_name.encode (Lib.name x.lib) in
       ((1, 0),
-       record_fields t.info.file_kind
+       record_fields Dune @@
          [ field_l "runner_libraries" lib (Result.ok_exn t.runner_libraries)
          ; field "flags" Ordered_set_lang.Unexpanded.encode t.info.flags
          ; field_o "generate_runner" Action_dune_lang.encode

diff --git a/src/preprocessing.ml b/src/preprocessing.ml
@@ -191,7 +191,7 @@ module Driver = struct
       let open Dune_lang.Encoder in
       let f x = Lib_name.encode (Lib.name (Lazy.force x.lib)) in
       ((1, 0),
-       record_fields t.info.file_kind
+       record_fields Dune @@
          [ field "flags" Ordered_set_lang.Unexpanded.encode
              t.info.flags
          ; field "lint_flags" Ordered_set_lang.Unexpanded.encode