"verbose" argument of remove is now optional (default false)

diff --git a/helm/matita/matitaSync.ml b/helm/matita/matitaSync.ml
index fc952ba4f02662577ea0d22f3f3a2caf5a7d893c..95dab03607493fb3f56e8ddccecaadefb92cf755 100644 (file)
--- a/helm/matita/matitaSync.ml
+++ b/helm/matita/matitaSync.ml
@@ -288,7 +288,7 @@ let time_travel ~present ~past =
     
 let last_baseuri = ref ""
 
-let remove ~verbose uri =
+let remove ?(verbose=false) uri =
   let derived_uris_of_uri uri =
     UriManager.innertypesuri_of_uri uri ::
     UriManager.univgraphuri_of_uri uri ::

diff --git a/helm/matita/matitaSync.mli b/helm/matita/matitaSync.mli
index 9dd13529cbe4cd4132566ebadf13707d46731c41..f3906fb8bc1febcf7de9f0735d2ab352d0fa9635 100644 (file)
--- a/helm/matita/matitaSync.mli
+++ b/helm/matita/matitaSync.mli
@@ -46,5 +46,7 @@ val set_proof_aliases :
 
   (* removes the object from DB, Disk, CoercionsDB, CicEnvironment, getter 
    * asserts the uri is resolved to file:// so it is only for 
-   * user's objects *)
-val remove: verbose:bool -> UriManager.uri -> unit
+   * user's objects
+   * @param verbose defaults to false *)
+val remove: ?verbose:bool -> UriManager.uri -> unit
+