|
@@ -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
|