X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite%2FgrafiteMarshal.ml;h=481a1b21dcacaed45448da576d50378433d5d616;hb=f524a0d716de2bdc0874aace8f82f6289034eccf;hp=48525aed5bf2406b307b970c52d67356f70911cb;hpb=84e6cbe962c9a534be48542c098d7bb0d90be9a1;p=helm.git

diff --git a/helm/software/components/grafite/grafiteMarshal.ml b/helm/software/components/grafite/grafiteMarshal.ml
index 48525aed5..481a1b21d 100644
--- a/helm/software/components/grafite/grafiteMarshal.ml
+++ b/helm/software/components/grafite/grafiteMarshal.ml
@@ -50,6 +50,8 @@ let rehash_cmd_uris =
       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)
   | cmd ->
       prerr_endline "Found a command not expected in a .moo:";
       let term_pp _ = assert false in