Forráskód Böngészése

[compiler] don't read hxml as hxml

closes #10670
Simon Krajewski 3 éve
szülő
commit
3f2c650c0c
2 módosított fájl, 2 hozzáadás és 2 törlés
  1. 1 1
      extra/haxelib_src
  2. 1 1
      src/compiler/compiler.ml

+ 1 - 1
extra/haxelib_src

@@ -1 +1 @@
-Subproject commit 4b27f91d8a4ff279d9903091680fee2c93a0d574
+Subproject commit 6a28eb9eb72851d8dfac6ee78fadf843ff2f8537

+ 1 - 1
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
 				| _ ->