X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Flexicon%2FlexiconSync.ml;h=30031943d9bb1897a5fa4a2a0dc473a715b7c796;hb=9e5abfcf937cb4fa85387cbd2b6503c2bf21a32c;hp=f88a79971b32919e0441a31f85bf8999840376bd;hpb=2d2a35723bd9649be36598fd98520919fc628e48;p=helm.git diff --git a/components/lexicon/lexiconSync.ml b/components/lexicon/lexiconSync.ml index f88a79971..30031943d 100644 --- a/components/lexicon/lexiconSync.ml +++ b/components/lexicon/lexiconSync.ml @@ -41,7 +41,7 @@ let alias_diff ~from status = status.LexiconEngine.aliases [] let alias_diff = - let profiler = HExtlib.profile "alias_diff (conteggiato anche in include)" in + let profiler = HExtlib.profile "alias_diff(conteg. anche in include)" in fun ~from status -> profiler.HExtlib.profile (alias_diff ~from) status (** given a uri and a type list (the contructors types) builds a list of pairs