Commit ef5082b0 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 ad742151
......@@ -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
log_schema_component "type" uri name cd_type;
Hashtbl.add !schema_types (uri, name) cd_type)
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