X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite%2FgrafiteMarshal.ml;h=2b1ed9dbaafb6765e1acc78f04b4770fcc1b4e6e;hb=437246a8e84268383a2f53f76442d811af3e8056;hp=e786d500154f4747b0128bdcf323178793278244;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/grafite/grafiteMarshal.ml b/helm/software/components/grafite/grafiteMarshal.ml
index e786d5001..2b1ed9dba 100644
--- a/helm/software/components/grafite/grafiteMarshal.ml
+++ b/helm/software/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) ->
-      GrafiteAst.Coercion (loc, rehash_uri uri, close)
+  | GrafiteAst.Coercion (loc, uri, close, arity) ->
+      GrafiteAst.Coercion (loc, rehash_uri uri, close, arity)
   | cmd ->
       prerr_endline "Found a command not expected in a .moo:";
       let obj_pp _ = assert false in