Commit 6bc3c3fc authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2005-02-22 00:46:20 by afrisch] New translation for types

Original author: afrisch
Date: 2005-02-22 00:46:20+00:00
parent 6fd393b7
......@@ -1736,10 +1736,8 @@ let get_schema uri =
List.iter (* Schema types -> CDuce types *)
(fun type_def ->
let name = Schema_common.name_of_type_definition type_def in
log_schema_component "type" uri name ();
let cd_type = Schema_converter.cd_type_of_type_def ~schema type_def in
Format.fprintf Format.std_formatter
"Done@.";
log_schema_component "type" uri name cd_type;
Hashtbl.add !schema_types (uri, name) cd_type)
schema.Schema_types.types;
List.iter (* Schema attributes -> CDuce types *)
......
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