In the case type_of constructor with expected type T, T is now put in whd to

[helm.git] / helm / software / components / grafite_parser / nEstatus.mli

diff --git a/helm/software/components/grafite_parser/nEstatus.mli b/helm/software/components/grafite_parser/nEstatus.mli
index e77f4e5665cd1088de8fe0010a75b0560911dca9..cc356aa465a175befc81c440ab2a6e987ac5ec3e 100644 (file)
--- a/helm/software/components/grafite_parser/nEstatus.mli
+++ b/helm/software/components/grafite_parser/nEstatus.mli
@@ -11,9 +11,16 @@
 
 (* $Id: nCic.ml 9058 2008-10-13 17:42:30Z tassi $ *)
 
+class type g_status =
+ object
+  inherit LexiconEngine.g_status
+  inherit NCicLibrary.g_dumpable_status
+ end
+
 class status :
  object ('self)
   inherit LexiconEngine.status
-  inherit NRstatus.dumpable_status
-  method set_estatus: status -> 'self
+  inherit NCicLibrary.dumpable_status
+  inherit g_status
+  method set_estatus: #g_status -> 'self
  end