Bugfix in tipify: a metavariable was set to type without sortifying its type.

[helm.git] / helm / software / components / ng_refiner / nRstatus.ml

diff --git a/helm/software/components/ng_refiner/nRstatus.ml b/helm/software/components/ng_refiner/nRstatus.ml
index 26ef2684c11a0a5ebb1f3815e5e0abf5e2c2187f..9a6fd4ef29ec4870b37e58fb8e117c2c627e84a4 100644 (file)
--- a/helm/software/components/ng_refiner/nRstatus.ml
+++ b/helm/software/components/ng_refiner/nRstatus.ml
@@ -11,16 +11,7 @@
 
 (* $Id: nCicRefiner.ml 9802 2009-05-25 15:39:26Z tassi $ *)
 
-type refiner_status = {
-        coerc_db : NCicCoercion.db;
-        uhint_db : NCicUnifHint.db;
-        library_db : NCicLibrary.timestamp;
-}
+class type g_status = NCicCoercion.status
 
-module Serializer =
- NCicLibrary.Serializer(struct type status = refiner_status end)
+class status = NCicCoercion.status
 
-type dumpable_refiner_status = {
-        refiner_status : refiner_status;
-        dump: Serializer.obj list
-}