X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Fgrafite%2FgrafiteMarshal.ml;h=056b1225d1c2c14cf3de6343fab6472f7598f875;hb=ad55bb9bc450fbccc969bca52602a6572217d565;hp=e786d500154f4747b0128bdcf323178793278244;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/components/grafite/grafiteMarshal.ml b/components/grafite/grafiteMarshal.ml
index e786d5001..056b1225d 100644
--- a/components/grafite/grafiteMarshal.ml
+++ b/components/grafite/grafiteMarshal.ml
@@ -25,7 +25,7 @@
 
 (* $Id$ *)
 
-type ast_command = Cic.obj GrafiteAst.command
+type ast_command = (Cic.term,Cic.obj) GrafiteAst.command
 type moo = ast_command list
 
 let format_name = "grafite"
@@ -44,12 +44,15 @@ let rehash_cmd_uris =
   | GrafiteAst.Default (loc, name, uris) ->
       let uris = List.map rehash_uri uris in
       GrafiteAst.Default (loc, name, uris)
-  | GrafiteAst.Coercion (loc, uri, close) ->
-      GrafiteAst.Coercion (loc, rehash_uri uri, close)
+  | GrafiteAst.Coercion (loc, uri, close, arity) ->
+      GrafiteAst.Coercion (loc, rehash_uri uri, close, arity)
+  | GrafiteAst.Index (loc, key, uri) ->
+      GrafiteAst.Index (loc, HExtlib.map_option CicUtil.rehash_term key, rehash_uri uri)
   | cmd ->
       prerr_endline "Found a command not expected in a .moo:";
+      let term_pp _ = assert false in
       let obj_pp _ = assert false in
-      prerr_endline (GrafiteAstPp.pp_command ~obj_pp cmd);
+      prerr_endline (GrafiteAstPp.pp_command ~term_pp ~obj_pp cmd);
       assert false
 
 let save_moo ~fname moo = save_moo_to_file ~fname (List.rev moo)