jon.recoil.org
A fork of mtelver's day10 project
Distinguish doc_link_failure from doc_compile_failure in history recording
Check the doc error message for "link" (case-insensitive) to categorize
doc failures as doc_link_failure vs doc_compile_failure, so both categories
are produced in the history.
Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
+8
-1
bin/main.ml
+8
-1
bin/main.ml
···
1371
1371
let error_msg = doc |> member "error" |> to_string_option |> Option.value ~default:"unknown error" in
1372
1372
failures := (pkg_name, Printf.sprintf "doc: %s" error_msg) :: !failures;
1373
1373
(* Record blessed doc failure in history *)
1374
+
let doc_category =
1375
+
let lower = String.lowercase_ascii error_msg in
1376
+
if try ignore (Str.search_forward (Str.regexp_string "link") lower 0); true with Not_found -> false then
1377
+
"doc_link_failure"
1378
+
else
1379
+
"doc_compile_failure"
1380
+
in
1374
1381
record_build_result ~packages_dir ~run_id ~pkg_str:pkg_name
1375
1382
~build_hash:name ~compiler:"" ~blessed
1376
-
~status:"failure" ~category:"doc_compile_failure"
1383
+
~status:"failure" ~category:doc_category
1377
1384
~error:error_msg ()
1378
1385
end
1379
1386
end