Useless code removed.

diff --git a/helm/software/components/disambiguation/disambiguateTypes.ml b/helm/software/components/disambiguation/disambiguateTypes.ml
index 496c7db35203476b25a3656a01da0e6f7958da36..23c16cff28e620e388f259c15e4bf6a44e0face4 100644 (file)
--- a/helm/software/components/disambiguation/disambiguateTypes.ml
+++ b/helm/software/components/disambiguation/disambiguateTypes.ml
@@ -86,6 +86,3 @@ let string_of_domain_item = function
   | Id s -> Printf.sprintf "ID(%s)" s
   | Symbol (s, i) -> Printf.sprintf "SYMBOL(%s,%d)" s i
   | Num i -> Printf.sprintf "NUM(instance %d)" i
-
-let string_of_domain dom =
-  String.concat "; " (List.map string_of_domain_item dom)

diff --git a/helm/software/components/disambiguation/disambiguateTypes.mli b/helm/software/components/disambiguation/disambiguateTypes.mli
index 43cfc2316120c2fd05f15e492284d7af439ed5b6..c3601eae5858c81ca9451667738a08329290972a 100644 (file)
--- a/helm/software/components/disambiguation/disambiguateTypes.mli
+++ b/helm/software/components/disambiguation/disambiguateTypes.mli
@@ -58,4 +58,3 @@ type input_or_locate_uri_type =
   title:string -> ?id:string -> unit -> UriManager.uri option
 
 val string_of_domain_item: domain_item -> string
-val string_of_domain: domain_item list -> string