+ struct
+ include NCicLibrary.Serializer(struct type status = sstatus end)
+
+ let require ~baseuri status =
+ let rstatus = require ~baseuri (status : #status :> status) in
+ let status = status#set_coerc_db (rstatus#coerc_db) in
+ let status = status#set_uhint_db (rstatus#uhint_db) in
+ let status = status#set_timestamp (rstatus#timestamp) in
+ status
+ end
+
+class type g_dumpable_status =
+ object
+ inherit g_status
+ method dump: Serializer.obj list
+ end