Permalink
Browse files

[fix] bslregister: skip js validation when no js

  • Loading branch information...
1 parent f4bb8f3 commit b4ef355ecec1df2888810281469100967dfb64a7 @OpaOnWindowsNow OpaOnWindowsNow committed Oct 20, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 libbsl/bslRegisterLib.ml
View
4 libbsl/bslRegisterLib.ml
@@ -1047,7 +1047,7 @@ let finalize s =
let js_validator finalized_t =
let name = finalized_t.f_options.BI.basename in
match finalized_t.f_options.BI.js_validator with
- | Some ((executable,files),cmd_options) ->
+ | Some ((executable,files),cmd_options) when finalized_t.f_js_code <> [] ->
let pp_str_list = Format.pp_list " " Format.pp_print_string in
let pp_file_list = Format.pp_list " " (
if true || (List.mem "jschecker.jar" cmd_options) then (fun fmt v -> Format.fprintf fmt "--js %s" v) (* google compiler *)
@@ -1066,7 +1066,7 @@ let js_validator finalized_t =
Printf.printf "Failure(%d) %s\n" r command;
exit r
) else ()
- | None -> ()
+ | _ -> ()
;;

0 comments on commit b4ef355

Please sign in to comment.