Permalink
Browse files

[enhance] compiler: Remove useless part of ServerJavascriptCompilatio…

…n object
  • Loading branch information...
1 parent 3f3d3ce commit c74a2482e9748a2112a8beabc95746842dd839e6 @BourgerieQuentin BourgerieQuentin committed Sep 5, 2012
Showing with 3 additions and 6 deletions.
  1. +3 −6 compiler/qml2js/qml2js.ml
@@ -231,8 +231,6 @@ struct
(* Packages and plugins required by file *)
plugin_requires : BPI.plugin_basename list;
opx_requires : string list;
-
- generated_code : JsAst.code;
}
let pass = "ServerJavascriptCompilation"
let pp fmt {opx_requires} =
@@ -326,7 +324,6 @@ struct
let save = {S.
plugin_requires;
opx_requires;
- generated_code = js_code;
} in
R.save save;
@@ -446,11 +443,11 @@ var opa_dependencies = [%s];
) loaded_files;
R.iter_with_dir ~deep:true ~packages:true
- (fun package_dir saved ->
+ (fun package_dir _ ->
Format.fprintf fmt "// From %s\n"
(Filename.basename package_dir);
- Format.fprintf fmt "%a\n" JsPrint.pp_min#code
- saved.S.generated_code);
+ Format.fprintf fmt "%s\n" (File.content (Filename.concat package_dir "a.js"))
+ );
let projections = get_js_init env_js_input in
List.iter (fun (_, code) ->

0 comments on commit c74a248

Please sign in to comment.