Load module before trying to unalias

2011-09-05 16:00:57 +02:00 · 2011-09-05 16:00:57 +02:00 · 5843869adb
commit 5843869adb
parent 78fe2d2fce
1 changed files with 2 additions and 1 deletions
--- a/compiler/global/modules.ml
+++ b/compiler/global/modules.ml
@ -288,7 +288,8 @@ exception Undefined_type of qualname

 (** @return the unaliased version of a type. @raise Undefined_type *)
 let rec unalias_type t = match t with
-  | Tid ty_name ->
+  | Tid ({ qual = q } as ty_name) ->
+    _load_module q;
      (try
        match find_type ty_name with
          | Talias ty -> unalias_type ty