X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2FdisambiguatingParser.ml.in;fp=helm%2FgTopLevel%2FdisambiguatingParser.ml.in;h=224eb4b6e913bf4bf58cc262838154a381c2e910;hb=282f371ba8533ea0e4e667265f9e4b04856bf972;hp=dfab60433c75d285dd38e1590071d7303fa68dc9;hpb=08b4e4ec7df6644f42fcad30b9d46195c935cf6e;p=helm.git

diff --git a/helm/gTopLevel/disambiguatingParser.ml.in b/helm/gTopLevel/disambiguatingParser.ml.in
index dfab60433..224eb4b6e 100644
--- a/helm/gTopLevel/disambiguatingParser.ml.in
+++ b/helm/gTopLevel/disambiguatingParser.ml.in
@@ -31,14 +31,14 @@ module AndreaAndZackDisambiguatingParser =
 
   module Make (C : DisambiguateTypes.Callbacks) =
    struct
-    let disambiguate_term ~(dbh:Dbi.connection) context metasenv term_as_string
+    let disambiguate_term ~(dbd:Mysql.dbd) context metasenv term_as_string
       aliases
     =
       let module Disambiguate' = Disambiguate.Make (C) in
       let term =
         CicTextualParser2.parse_term (Stream.of_string term_as_string)
       in
-      Disambiguate'.disambiguate_term ~dbh context metasenv term ~aliases
+      Disambiguate'.disambiguate_term ~dbd context metasenv term ~aliases
    end
  end