| 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