X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite%2FgrafiteMarshal.ml;h=d666f62b61837163fe53dc9905fdc0d2f2df1020;hb=c6ee1124bbfd9ecf01ed5fd5b92e0b32b2c47d97;hp=cc4423b96e83a3171a0861e7a2d389f77a99b208;hpb=7b4d519aefac94afb371a7e4da94779b40bf8608;p=helm.git

diff --git a/helm/software/components/grafite/grafiteMarshal.ml b/helm/software/components/grafite/grafiteMarshal.ml
index cc4423b96..d666f62b6 100644
--- a/helm/software/components/grafite/grafiteMarshal.ml
+++ b/helm/software/components/grafite/grafiteMarshal.ml
@@ -44,8 +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, arity) ->
-      GrafiteAst.Coercion (loc, rehash_uri uri, close, arity)
+  | GrafiteAst.PreferCoercion (loc, uri) ->
+      GrafiteAst.PreferCoercion (loc, CicUtil.rehash_term uri)
+  | GrafiteAst.Coercion (loc, uri, close, arity, saturations) ->
+      GrafiteAst.Coercion (loc, CicUtil.rehash_term uri, close, arity, saturations)
+  | GrafiteAst.Index (loc, key, uri) ->
+      GrafiteAst.Index (loc, HExtlib.map_option CicUtil.rehash_term key, rehash_uri uri)
+  | GrafiteAst.Select (loc, uri) -> 
+      GrafiteAst.Select (loc, rehash_uri uri)
+  | GrafiteAst.Include _ as cmd -> cmd
   | cmd ->
       prerr_endline "Found a command not expected in a .moo:";
       let term_pp _ = assert false in