Commit 64643824 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2005-02-17 17:08:57 by afrisch] Errors

Original author: afrisch
Date: 2005-02-17 17:08:57+00:00
parent 0598e789
......@@ -206,14 +206,16 @@ let schema_of_node root =
let rec resolve_typ name =
try Hashtbl.find typs (fix_namespace name)
with Not_found -> assert false
with Not_found ->
failwith ("Cannot find type " ^ (Utf8.to_string name))
and resolve_simple_typ name =
resolve_typ name
and resolve_elt name =
try Hashtbl.find elts (fix_namespace name)
with Not_found -> assert false
with Not_found ->
failwith ("Cannot find element " ^ (Utf8.to_string name))
and resolve_att name =
let name = fix_namespace name in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment