Opinionated OCaml linter with Merlin integration for code quality, naming conventions, and style checks
irmin: 3-way merge with per-node merge strategies
+9
-10
+9
-10
lib/rules/e905.ml
+9
-10
lib/rules/e905.ml
···
30
30
Filename.check_suffix f ".ml"
31
31
&& (not (Filename.check_suffix f ".mli"))
32
32
&&
33
-
try
34
-
let c =
35
-
In_channel.with_open_text
36
-
(Filename.concat lib_dir f)
37
-
In_channel.input_all
38
-
in
39
-
Astring.String.is_infix ~affix:"Wire." c
40
-
with _ -> false)
33
+
try
34
+
let c =
35
+
In_channel.with_open_text
36
+
(Filename.concat lib_dir f)
37
+
In_channel.input_all
38
+
in
39
+
Astring.String.is_infix ~affix:"Wire." c
40
+
with _ -> false)
41
41
all_files
42
42
in
43
43
if has_wire then
···
56
56
let pattern = "val " ^ sym in
57
57
if Astring.String.is_infix ~affix:pattern content then
58
58
issues :=
59
-
Issue.v
60
-
{ file = Filename.concat pkg f; symbol = sym }
59
+
Issue.v { file = Filename.concat pkg f; symbol = sym }
61
60
:: !issues)
62
61
wire_symbols
63
62
with _ -> ())