Fix generation of the ppx key for jbuild directories (#860)

Signed-off-by: Jeremie Dimino <jdimino@janestreet.com>
ocaml · Jun 6, 2018 · 0fafebe · 0fafebe
1 parent ec6ca4b
commit 0fafebe
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/src/preprocessing.ml b/src/preprocessing.ml
@@ -324,8 +324,13 @@ let gen_rules sctx components =
 
 let ppx_driver_exe sctx libs ~dir_kind =
   let names =
-    List.rev_map libs ~f:Lib.name
-    |> List.sort ~compare:String.compare
+    let names = List.rev_map libs ~f:Lib.name in
+    match (dir_kind : File_tree.Dune_file.Kind.t) with
+    | Dune -> List.sort names ~compare:String.compare
+    | Jbuild ->
+      match names with
+      | last :: others -> List.sort others ~compare:String.compare @ [last]
+      | [] -> []
   in
   let scope_for_key =
     List.fold_left libs ~init:None ~f:(fun acc lib ->