forked from
anil.recoil.org/monopam
Monorepo management for opam overlays
monopam/merlint: read x-quality from .opam files
+5
-6
+5
-6
lib/quality.ml
+5
-6
lib/quality.ml
···
123
123
124
124
(* ===== Policy ===== *)
125
125
126
-
(** Read quality policy from [*.opam.template] files. Looks for
127
-
[x-quality: ["build" "test" ...]] in any .opam.template file under
128
-
[pkg_dir]. *)
126
+
(** Read quality policy from [*.opam] files. Looks for
127
+
[x-quality: ["build" "test" ...]] in any .opam file under [pkg_dir]. *)
129
128
let read_policy pkg_dir =
130
129
try
131
130
let files = Sys.readdir pkg_dir |> Array.to_list in
132
-
let templates =
133
-
List.filter (fun f -> Filename.check_suffix f ".opam.template") files
131
+
let opam_files =
132
+
List.filter (fun f -> Filename.check_suffix f ".opam") files
134
133
in
135
134
List.concat_map
136
135
(fun f ->
···
155
154
else [])
156
155
lines
157
156
with Sys_error _ -> [])
158
-
templates
157
+
opam_files
159
158
with Sys_error _ -> []
160
159
161
160
(* ===== Check ===== *)