X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitamakeLib.ml;h=8f164b73aca1f5d0f71196630e7415962bfa8e74;hb=bfa6163644fb77d3a207f34712c46f8ac3c7b585;hp=998dcd70edf225f595509a23ff822d715f63fb98;hpb=9d51b4473dd2b28eae6dd9800ca54d7247d6af1b;p=helm.git

diff --git a/helm/matita/matitamakeLib.ml b/helm/matita/matitamakeLib.ml
index 998dcd70e..8f164b73a 100644
--- a/helm/matita/matitamakeLib.ml
+++ b/helm/matita/matitamakeLib.ml
@@ -25,10 +25,10 @@
 
 let logger = fun mark -> 
   match mark with 
-  | `Error -> MatitaLog.error
-  | `Warning -> MatitaLog.warn
-  | `Debug -> MatitaLog.debug
-  | `Message -> MatitaLog.message
+  | `Error -> HLog.error
+  | `Warning -> HLog.warn
+  | `Debug -> HLog.debug
+  | `Message -> HLog.message
 ;;
 
 type development = 
@@ -191,21 +191,20 @@ let vt100 s =
   let rex_d = Pcre.regexp "^Debug" in
   let rex_noendline = Pcre.regexp "\\n" in
   let s = Pcre.replace ~rex:rex_noendline s in
-  let len = String.length s in
   let tokens = Pcre.split ~rex s in
-  let logger = ref MatitaLog.message in
+  let logger = ref HLog.message in
   let rec aux = 
     function
     | [] -> ()
     | s::tl ->
         (if Pcre.pmatch ~rex:rex_i s then
-          logger := MatitaLog.message
+          logger := HLog.message
         else if Pcre.pmatch ~rex:rex_w s then
-          logger := MatitaLog.warn
+          logger := HLog.warn
         else if Pcre.pmatch ~rex:rex_e s then
-          logger := MatitaLog.error
+          logger := HLog.error
         else if Pcre.pmatch ~rex:rex_d s then
-          logger := MatitaLog.debug
+          logger := HLog.debug
         else 
           !logger s);
         aux tl