diff --git a/src/super_context.ml b/src/super_context.ml index ace3b4bc..323a7bd5 100644 --- a/src/super_context.ml +++ b/src/super_context.ml @@ -887,8 +887,8 @@ module PP = struct [ build ; Build.return (A.diff ~optional:true - (Path.extend_basename fn ~suffix:".ppx-corrected") - fn) + fn + (Path.extend_basename fn ~suffix:".ppx-corrected")) ] let lint_module sctx ~(source : Module.t) ~(ast : Module.t) ~dir