modules_without_implementation suggestion uses old (pre-dune) syntax
Signed-off-by: Frédéric Bour <def@fb.com> Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
58bfe376e1
commit
b4d8d4b355
|
@ -91,11 +91,12 @@ end = struct
|
||||||
\nThis will become an error in the future."
|
\nThis will become an error in the future."
|
||||||
(let tag = Sexp.unsafe_atom_of_string
|
(let tag = Sexp.unsafe_atom_of_string
|
||||||
"modules_without_implementation" in
|
"modules_without_implementation" in
|
||||||
Sexp.to_string ~syntax:Dune
|
let modules =
|
||||||
(List [ tag
|
should_be_listed
|
||||||
; Sexp.To_sexp.(list string)
|
|> uncapitalized
|
||||||
(uncapitalized should_be_listed)
|
|> List.map ~f:Sexp.To_sexp.string
|
||||||
]))
|
in
|
||||||
|
Sexp.to_string ~syntax:Dune (List (tag :: modules)))
|
||||||
| Some loc ->
|
| Some loc ->
|
||||||
let list_modules l =
|
let list_modules l =
|
||||||
uncapitalized l
|
uncapitalized l
|
||||||
|
|
|
@ -27,7 +27,7 @@ Errors:
|
||||||
Warning: Some modules don't have an implementation.
|
Warning: Some modules don't have an implementation.
|
||||||
You need to add the following field to this stanza:
|
You need to add the following field to this stanza:
|
||||||
|
|
||||||
(modules_without_implementation (x y))
|
(modules_without_implementation x y)
|
||||||
|
|
||||||
This will become an error in the future.
|
This will become an error in the future.
|
||||||
ocamlc .foo.objs/foo.{cmi,cmo,cmt}
|
ocamlc .foo.objs/foo.{cmi,cmo,cmt}
|
||||||
|
|
Loading…
Reference in New Issue