# our own patch identification algorithm?
# this is an alternative strategy
+sub merge_failed ($$) {
+ my ($wrecknotes, $emsg) = @_;
+ my @m;
+ push @m, "Merge resolution failed: $emsg";
+
+ push @m, "See git-debrebase(1) section FAILED MERGES for suggestions.";
+ # ^ xxx this section does not yet exist
+ fail join '', map { "$_\n" } @m;
+}
+
sub mwrecknote ($$$) {
my ($wrecknotes, $reftail, $commitish) = @_;
confess unless defined $commitish;
+ printdebug "mwrecknote $reftail $commitish\n";
$wrecknotes->{$reftail} = $commitish;
}
};
my $nomerge = sub {
- fail "something useful about failed merge attempt @_ xxx".Dumper($cl);
+ my ($emsg) = @_;
+ merge_failed $cl->{MergeWreckNotes}, $emsg;
};
my $mwrecknote = sub { &mwrecknote($cl->{MergeWreckNotes}, @_); };