fmt fix

Author: shonfeder

src/dune_lang/lib_kind.ml

@@ -119,10 +119,8 @@ let to_dyn x =
 let decode =
   let open Decoder in
   (* TODO: Less code reuse with either? *)
-  map ~f:(fun k -> Dune_file k) Dune_file.decode <|> enum [
-
-    "parameter", Parameter;
-    "virtual", Virtual ]
+  map ~f:(fun k -> Dune_file k) Dune_file.decode
+  <|> enum [ "parameter", Parameter; "virtual", Virtual ]
 ;;
 
 let encode t =

src/dune_rules/install_rules.ml

@@ -79,7 +79,7 @@ module Stanzas_to_entries : sig
 end = struct
   let lib_ppxs ctx ~scope ~(lib : Library.t) =
     match lib.kind with
-    | Virtual | Parameter | Dune_file (Normal  | Ppx_deriver _) -> Memo.return []
+    | Virtual | Parameter | Dune_file (Normal | Ppx_deriver _) -> Memo.return []
     | Dune_file (Ppx_rewriter _) ->
       Library.best_name lib
       |> Ppx_driver.ppx_exe ctx ~scope