Browse Source

allow using abstracts

Simon Krajewski 12 years ago
parent
commit
5afde0db65
1 changed files with 1 additions and 1 deletions
  1. 1 1
      typeload.ml

+ 1 - 1
typeload.ml

@@ -2099,7 +2099,7 @@ let rec init_module_type ctx context_init do_init (decl,p) =
 			let rec loop acc types = match types with
 				| td :: l ->
 					(match resolve_typedef td with
-					| TClassDecl c ->
+					| TClassDecl c | TAbstractDecl({a_impl = Some c}) ->
 						loop (c :: acc) l
 					| td ->
 						loop acc l)