Procházet zdrojové kódy

[cli] remove leftover -- handling

-- was removed in 063d148fa6f
Jens Fischer před 6 roky
rodič
revize
e3c397e53f
1 změnil soubory, kde provedl 1 přidání a 5 odebrání
  1. 1 5
      src/compiler/main.ml

+ 1 - 5
src/compiler/main.ml

@@ -407,11 +407,7 @@ let rec process_params create pl =
 		| arg :: l ->
 			match List.rev (ExtString.String.nsplit arg ".") with
 			| "hxml" :: _ when (match acc with "-cmd" :: _ | "--cmd" :: _ -> false | _ -> true) ->
-				let acc, l =
-					(try
-						let parsed = parse_hxml arg in
-						if (List.mem "--" parsed) then raise (Arg.Bad "Rest arguments (--) are not allowed in hxml files") else (acc, parsed @ l)
-					with Not_found -> (arg ^ " (file not found)") :: acc, l) in
+				let acc, l = (try acc, parse_hxml arg @ l with Not_found -> (arg ^ " (file not found)") :: acc, l) in
 				loop acc l
 			| _ -> loop (arg :: acc) l
 	in