OSV.dev vulnerability database client
Fix merlint E005/E010: split long functions and flatten deep nesting
Refactored 21 functions across 17 files to bring them under merlint
thresholds. Pure structural refactoring — no behavior changes.
Packages: irmin, merlint, monopam, ocaml-btree, ocaml-cdm, ocaml-git,
ocaml-globe, ocaml-kepler, ocaml-osv, ocaml-sigstore, ocaml-stix, prune.
+16
-17
+16
-17
lib/osv.ml
+16
-17
lib/osv.ml
···
188
188
189
189
(* ── Convert raw types to public types ─────────────────────────────────── *)
190
190
191
+
let affected_range_of_raw (r : raw_range) : affected_range =
192
+
let introduced =
193
+
List.find_map
194
+
(fun (e : range_event) ->
195
+
if e.event_type <> "" then Some e.event_type else None)
196
+
r.events
197
+
in
198
+
let fixed =
199
+
List.find_map
200
+
(fun (e : range_event) ->
201
+
if e.event_version <> "" then Some e.event_version else None)
202
+
r.events
203
+
in
204
+
{ range_type = r.rr_type; introduced; fixed }
205
+
191
206
let ranges_of_raw (affected : raw_affected list) : affected_range list =
192
207
List.concat_map
193
-
(fun (a : raw_affected) ->
194
-
List.map
195
-
(fun (r : raw_range) ->
196
-
let introduced =
197
-
List.find_map
198
-
(fun (e : range_event) ->
199
-
if e.event_type <> "" then Some e.event_type else None)
200
-
r.events
201
-
in
202
-
let fixed =
203
-
List.find_map
204
-
(fun (e : range_event) ->
205
-
if e.event_version <> "" then Some e.event_version else None)
206
-
r.events
207
-
in
208
-
{ range_type = r.rr_type; introduced; fixed })
209
-
a.ranges)
208
+
(fun (a : raw_affected) -> List.map affected_range_of_raw a.ranges)
210
209
affected
211
210
212
211
let vuln_of_raw (rv : raw_vuln) : vulnerability =