Fix unallowed label error message

NathanReb · NathanReb · commit 279c7409c01d · 2022-08-02T16:57:05.000+02:00
Signed-off-by: Nathan Rebours &lt;nathan.p.rebours@gmail.com&gt;
diff --git a/lib/block.ml b/lib/block.ml
@@ -289,7 +289,7 @@ let version_enabled version =
 let get_label f (labels : Label.t list) = Util.List.find_map f labels
 
 let label_not_allowed ~loc ~label ~kind =
-  loc_error ~loc "`%s` label is required for %s blocks." label kind
+  loc_error ~loc "`%s` label is not allowed for %s blocks." label kind
 
 let label_required ~loc ~label ~kind =
   loc_error ~loc "`%s` label is required for %s blocks." label kind
diff --git a/test/bin/mdx-test/failure/part-unsupported/test-case.md.expected b/test/bin/mdx-test/failure/part-unsupported/test-case.md.expected
@@ -1 +1 @@
-[mdx] Fatal error: File "test-case.md", lines 3-4: invalid code block: `part` label is required for non-OCaml include blocks.
+[mdx] Fatal error: File "test-case.md", lines 3-4: invalid code block: `part` label is not allowed for non-OCaml include blocks.

Original file line number	Diff line number	Diff line change
`@@ -1 +1 @@`
`1`		-[mdx] Fatal error: File "test-case.md", lines 3-4: invalid code block: `part` label is required for non-OCaml include blocks.
	`1`	+[mdx] Fatal error: File "test-case.md", lines 3-4: invalid code block: `part` label is not allowed for non-OCaml include blocks.