[compiler] don't read hxml as hxml

closes #10670
HaxeFoundation · Apr 5, 2022 · 3f2c650 · 3f2c650
1 parent 3cdd184
commit 3f2c650
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/extra/haxelib_src b/extra/haxelib_src
diff --git a/src/compiler/compiler.ml b/src/compiler/compiler.ml
@@ -542,7 +542,7 @@ module HighLevel = struct
 				loop_lib arg dir "hxcs" acc args
 			| arg :: l ->
 				match List.rev (ExtString.String.nsplit arg ".") with
-				| "hxml" :: _ when (match acc with "-cmd" :: _ | "--cmd" :: _ -> false | _ -> true) ->
+				| "hxml" :: _ :: _ when (match acc with "-cmd" :: _ | "--cmd" :: _ -> false | _ -> true) ->
 					let acc, l = (try acc, Helper.parse_hxml arg @ l with Not_found -> (arg ^ " (file not found)") :: acc, l) in
 					loop acc l
 				| _ ->