-let add_moo_content cmds status =
- let content = status#moo_content_rev in
- let content' = cmds@content in
-(* prerr_endline ("new moo content: " ^ String.concat " " (List.map
- GrafiteAstPp.pp_command content')); *)
- status#set_moo_content_rev content'
-
-let dump_status status =
- HLog.message "status.aliases:\n";
- HLog.message "status.proof_status:";
- HLog.message "status.options\n";
- HLog.message "status.coercions\n";
- HLog.message "status.objects:\n";
- List.iter
- (fun u -> HLog.message (UriManager.string_of_uri u)) status#objects
+module Serializer =
+ NCicLibrary.Serializer(struct
+ type dumpable_s = status
+ let get status = (status : #status :> NCicLibrary.dumpable_status)
+ let set (status : dumpable_s) dump_status = status#set_dumpable_status dump_status
+ end)