diff --git a/src/module.ml b/src/module.ml index 2ef21c34..7c8639c5 100644 --- a/src/module.ml +++ b/src/module.ml @@ -166,7 +166,8 @@ let to_sexp { name; impl; intf; obj_name ; pp } = let deprecate t = { t with - impl = + intf = None + ; impl = Some ( let path = match t.intf, t.impl with