Write .orig and .rej files upon failure to patch file

ocaml · Jan 19, 2025 · 10a485e · 10a485e
1 parent 6a05509
commit 10a485e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/opamSystem.ml b/src/core/opamSystem.ml
@@ -1569,6 +1569,8 @@ let internal_patch ~patch_filename ~dir diffs =
         x
       | None -> assert false
       | exception _ ->
+        OpamStd.Option.iter (write (file^".orig")) content;
+        write (file^".rej") (Format.asprintf "%a" Patch.pp diff);
         raise (Internal_patch_error (fmt "Patch %S does not apply cleanly." patch_filename))
   in
   let apply diff = match diff.Patch.operation with