Installs pre-commit hooks for OCaml projects that run dune fmt automatically
precommit: Use red bullet instead of warning triangle for check output
Replace ⚠ with ● for cleaner visual appearance. Remove unused warning
function.
+5
-4
+5
-4
bin/main.ml
+5
-4
bin/main.ml
···
14
14
let error fmt =
15
15
Fmt.pf Fmt.stderr ("%a " ^^ fmt ^^ "@.") Fmt.(styled (`Fg `Red) string) "✗"
16
16
17
-
let warning fmt =
18
-
Fmt.pf Fmt.stdout ("%a " ^^ fmt ^^ "@.") Fmt.(styled (`Fg `Yellow) string) "⚠"
19
-
20
17
let info fmt =
21
18
Fmt.pf Fmt.stdout ("%a " ^^ fmt ^^ "@.") Fmt.(styled (`Fg `Cyan) string) "ℹ"
22
19
···
240
237
if commits <> [] then begin
241
238
incr repos_with_issues;
242
239
total_commits := !total_commits + List.length commits;
243
-
warning "%a" Fmt.(styled `Bold string) d;
240
+
Fmt.pf Fmt.stdout "@.%a %a@."
241
+
Fmt.(styled (`Fg `Red) string)
242
+
"●"
243
+
Fmt.(styled `Bold string)
244
+
d;
244
245
let rows =
245
246
List.map
246
247
(fun (c : Precommit.ai_commit) ->