[ocaml-gen] prevent multiple declaration of same custom type

Author: mimoo

ocaml/ocaml-gen/derive/src/lib.rs

@@ -674,7 +674,7 @@ pub fn derive_ocaml_custom(item: TokenStream) -> TokenStream {
             if new_type {
                 let ty_name = rename.unwrap_or(#ocaml_name);
                 let ty_id = <Self as ::ocaml_gen::OCamlDesc>::unique_id();
-                env.new_custom_type(ty_id, ty_name);
+                env.new_type(ty_id, ty_name);
             }
 
             let name = <Self as ::ocaml_gen::OCamlDesc>::ocaml_desc(env, &[]);

ocaml/ocaml-gen/src/lib.rs

@@ -44,12 +44,6 @@ impl Env {
         };
     }
 
-    /// Declares a new custom type. Unlike [new_type] this can be called several times with the same type.
-    pub fn new_custom_type(&mut self, ty: u128, name: &'static str) {
-        self.locations
-            .insert(ty, (self.current_module.clone(), name));
-    }
-
     /// retrieves a type that was declared previously
     pub fn get_type(&self, ty: u128, name: &str) -> String {
         let (type_path, type_name) = self.locations.get(&ty).expect(&format!(