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

diff --git a/components/grafite/grafiteMarshal.ml b/components/grafite/grafiteMarshal.ml
index cc4423b96..056b1225d 100644
--- a/components/grafite/grafiteMarshal.ml
+++ b/components/grafite/grafiteMarshal.ml
@@ -46,6 +46,8 @@ let rehash_cmd_uris =
       GrafiteAst.Default (loc, name, uris)
   | 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