exception CircularDependency of string Lazy.t;;
exception ObjectNotFound of string Lazy.t;;
-exception BadDependency of string Lazy.t;;
+exception BadDependency of string Lazy.t * exn;;
exception BadConstraint of string Lazy.t;;
let type0 = []
Sys.Break as e ->
frozen_list := saved_frozen_list;
raise e
- | Propagate (u',_) as e' ->
+ | Propagate (u',old_exn) as e' ->
frozen_list := saved_frozen_list;
let exn = `Exn (BadDependency (lazy (NUri.string_of_uri u ^
" depends (recursively) on " ^ NUri.string_of_uri u' ^
- " which is not well-typed"))) in
+ " which is not well-typed"),
+ match old_exn with BadDependency (_,e) -> e | _ -> old_exn)) in
NUri.UriHash.add cache u exn;
if saved_frozen_list = [] then
exn