X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_proof_checking%2FcicLogger.mli;h=408bc8879998f0da714948589b3b441dc3425460;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=781abdef6e9a7b6275e14935df9336ddb3cf0a31;hpb=d70688ca1e1bcefc463d3397c6da77b40d055c85;p=helm.git

diff --git a/helm/ocaml/cic_proof_checking/cicLogger.mli b/helm/ocaml/cic_proof_checking/cicLogger.mli
index 781abdef6..408bc8879 100644
--- a/helm/ocaml/cic_proof_checking/cicLogger.mli
+++ b/helm/ocaml/cic_proof_checking/cicLogger.mli
@@ -28,13 +28,15 @@ type msg =
  | `Type_checking_completed of UriManager.uri
  | `Trusting of UriManager.uri
  ]
-;;
 
-(* A callback that can be used to log to html *)
-val log_to_html : print_and_flush:(string -> unit) -> msg -> unit
+  (** Stateless logging. Each message is logged with indentation level 1 *)
+val log: msg -> unit
 
-(* The log function used. The default does nothing. *)
-val log_callback : (msg -> unit) ref
+  (** Stateful logging. Each `Start_type_checing message increase the
+  * indentation level by 1, each `Type_checking_completed message decrease it by
+  * the same amount. *)
+class logger:
+  object
+    method log: msg -> unit
+  end
 
-(* Log something via log_callback *)
-val log : msg -> unit