Use Compat.List.find_map

OCamlPro · Oct 9, 2024 · e3a6539 · e3a6539
1 parent da5d51c
commit e3a6539
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/lib/structures/fpa_rounding.ml b/src/lib/structures/fpa_rounding.ml
@@ -116,7 +116,7 @@ let fpa_rounding_mode_dty, d_constrs, fpa_rounding_mode, tcst_of_rounding_mode =
   let tcst_of_rounding_mode m =
     let name = string_of_rounding_mode m in
     let opt =
-      List.find_map
+      Compat.List.find_map
         (fun (DE.{ path; _ } as tcst) ->
            let n = get_basename path in
            if String.equal name n then Some tcst