Style & minor fix

Author: Julow

bin/rule.ml

@@ -64,13 +64,12 @@ let print_rule ~nd ~prelude ~md_file ~ml_files ~dirs ~root ~requires options =
   in
   let root = match root with None -> "" | Some r -> Fmt.strf "--root=%s " r in
   let deps =
-    let x =
+    match
       List.map (Fmt.to_to_string pp_package_deps) requires @
       List.map (Fmt.to_to_string pp_ml_deps) (List.combine var_names ml_files) @
       List.map (Fmt.to_to_string pp_dir_deps) dirs @
       prelude
-    in
-    match x with
+    with
     | [] -> ""
     | s  -> String.concat ~sep:"\n" ("" :: s)
   in

lib/block.ml

@@ -294,7 +294,7 @@ let required_packages t =
     | `Eq, "" ->
       Fmt.failwith "invalid `require-package` label value: requires a value"
     | `Eq, pkg -> pkg
-    | _ -> Fmt.failwith "invalid `env` label value"
+    | _ -> Fmt.failwith "invalid `require-package` label value"
   in
   List.map f (get_labels t "require-package")