From 61dfbf38e22a5ba1f90ab8246b93b972d881c3b3 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Fri, 6 May 2022 10:34:55 +0200
Subject: Don't use the Rust disambiguators when generating names at extraction

---
 src/Names.ml | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/Names.ml')

diff --git a/src/Names.ml b/src/Names.ml
index 5785d06f..a57f9aa1 100644
--- a/src/Names.ml
+++ b/src/Names.ml
@@ -61,6 +61,13 @@ let filter_disambiguators_zero (n : name) : name =
   in
   List.filter pred n
 
+(** Filter the disambiguators in a name *)
+let filter_disambiguators (n : name) : name =
+  let pred (pe : path_elem) : bool =
+    match pe with Ident _ -> true | Disambiguator _ -> false
+  in
+  List.filter pred n
+
 let as_ident (pe : path_elem) : string =
   match pe with
   | Ident s -> s
-- 
cgit v1.2.3