Initial implementation of statuses using objects in place of nested records.

[helm.git] / helm / software / matita / matitaGui.ml

diff --git a/helm/software/matita/matitaGui.ml b/helm/software/matita/matitaGui.ml
index 8acc424a9b0f13459d7b733c03cab50841eab093..e71eb4104ab0dea6fb1b2d5a5d6dc6a45fd145b9 100644 (file)
--- a/helm/software/matita/matitaGui.ml
+++ b/helm/software/matita/matitaGui.ml
@@ -90,7 +90,7 @@ let save_moo grafite_status =
      LexiconMarshal.save_lexicon lexicon_fname
        (GrafiteTypes.get_lexicon grafite_status).LexiconEngine.lexicon_content_rev;
      NRstatus.Serializer.serialize ~baseuri:(NUri.uri_of_string baseuri)
-      (GrafiteTypes.get_dump grafite_status)
+      (GrafiteTypes.get_dstatus grafite_status)#dump
   | _ -> clean_current_baseuri grafite_status 
 ;;