X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Fgrafite%2FgrafiteMarshal.ml;h=7731902b4adbf73b4c02566deafa9c6693e8c9c2;hb=396a578b680e7fdb9d262822184e52f0d4d5086b;hp=056b1225d1c2c14cf3de6343fab6472f7598f875;hpb=666e2a3fcbfffd2df99650e3404965e95e6b352b;p=helm.git

diff --git a/components/grafite/grafiteMarshal.ml b/components/grafite/grafiteMarshal.ml
index 056b1225d..7731902b4 100644
--- a/components/grafite/grafiteMarshal.ml
+++ b/components/grafite/grafiteMarshal.ml
@@ -44,8 +44,8 @@ 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.Coercion (loc, uri, close, arity, saturations) ->
+      GrafiteAst.Coercion (loc, rehash_uri uri, close, arity, saturations)
   | GrafiteAst.Index (loc, key, uri) ->
       GrafiteAst.Index (loc, HExtlib.map_option CicUtil.rehash_term key, rehash_uri uri)
   | cmd ->