Improve error for unexpected closing xml tag

src/syntax/lexer.ml

@@ -31,6 +31,7 @@ type error_msg =
 	| Invalid_escape of char * (string option)
 	| Invalid_option
 	| Unterminated_markup
+	| Unexpected_closing_markup_tag
 
 exception Error of error_msg * pos
 
@@ -51,6 +52,7 @@ let error_msg = function
 	| Invalid_escape (c,Some msg) -> Printf.sprintf "Invalid escape sequence \\%s. %s" (Char.escaped c) msg
 	| Invalid_option -> "Invalid regular expression option"
 	| Unterminated_markup -> "Unterminated markup literal"
+	| Unexpected_closing_markup_tag -> "Unexpected closing markup tag"
 
 type lexer_file = {
 	lfile : string;
@@ -717,6 +719,7 @@ let rec sharp_token lexbuf =
 
 let lex_xml p lexbuf =
 	let name,pmin = match%sedlex lexbuf with
+	| '/' -> error Unexpected_closing_markup_tag p
 	| xml_name -> lexeme lexbuf,lexeme_start lexbuf
 	| _ -> invalid_char lexbuf
 	in

tests/misc/projects/Issue12021/Main.hx

@@ -0,0 +1,6 @@
+function main() {
+	<tag>
+		<tah> // typo
+		</tag>
+	</tag>
+}

tests/misc/projects/Issue12021/compile-fail.hxml

@@ -0,0 +1,2 @@
+--main Main
+--interp

tests/misc/projects/Issue12021/compile-fail.hxml.stderr

@@ -0,0 +1 @@
+Main.hx:5: character 2 : Unexpected closing markup tag