Browse Source

[cli] remove leftover -- handling

-- was removed in 063d148fa6f
Jens Fischer 6 years ago
parent
commit
e3c397e53f
1 changed files with 1 additions and 5 deletions
  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 ->
 		| arg :: l ->
 			match List.rev (ExtString.String.nsplit arg ".") with
 			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
-						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 acc l
 			| _ -> loop (arg :: acc) l
 			| _ -> loop (arg :: acc) l
 	in
 	in