Permalink
Browse files

[fix] opadoc: no need to ignore doctype in imp_Code, but recursively …

…remove doctype directive instead
  • Loading branch information...
1 parent 4495235 commit de2f6b753a5c502cbde2a991cc35225163554109 @Aqua-Ye Aqua-Ye committed Sep 20, 2012
Showing with 2 additions and 2 deletions.
  1. +1 −1 compiler/opa/pass_OpaDocApi.ml
  2. +1 −1 compiler/qmljsimp/imp_Code.ml
@@ -207,7 +207,7 @@ let remove_code_doctype annotmap (qmlAst : QmlAst.code) :
QmlAnnotMap.add_tsc_opt annot_sube tsc_opt annotmap in
let annotmap =
QmlAnnotMap.add_tsc_inst_opt annot_sube tsc_inst_opt annotmap in
- ((annotmap, (path, sube, access, info) :: acc), sube)
+ remove_expr_doctype (annotmap, (path, sube, access, info) :: acc) sube
| _ -> ((annotmap, acc), e) in
let remove_patt_doctype acc e =
QmlAstWalk.Expr.foldmap_down remove_expr_doctype acc e
@@ -46,7 +46,7 @@ type ('a, 'b) ignored_directive = [
| `may_cps
| `wait
| `backend_ident of string
-| `doctype of (string list * QmlAst.doctype_access_directive * QmlAst.doctype_info list)
+
(* do not add 'lazy' directive here, or any directive that may avoid some computation,
it will increases the number of directly nested record and letin,
see may_alias_deep_record and may_flatten_letin, if you need to do it *)

0 comments on commit de2f6b7

Please sign in to comment.