From: Matt S Trout Date: Sun, 17 Jul 2016 18:36:30 +0000 (+0000) Subject: tweak naming in recheck code X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FDX.git;a=commitdiff_plain;h=2ccd4b58123288af004358751a047e276f2c6c58 tweak naming in recheck code --- diff --git a/lib/DX/Step/CompleteRecheck.pm b/lib/DX/Step/CompleteRecheck.pm index f52c194..35b805b 100644 --- a/lib/DX/Step/CompleteRecheck.pm +++ b/lib/DX/Step/CompleteRecheck.pm @@ -6,17 +6,17 @@ with 'DX::Role::Step'; has was_recheck_for => (is => 'ro', required => 1); -has original_search_state => (is => 'ro', required => 1); +has resume_search_state => (is => 'ro', required => 1); sub apply_to { my ($self, $ss) = @_; my $prop = $self->was_recheck_for; - my $re_ss = $self->original_search_state; + my $re_ss = $self->resume_search_state; my $re_hyp = $re_ss->current_hypothesis; - my $re_rsp = $re_hyp->resolved_propositions; + my $re_rps = $re_hyp->resolved_propositions; - my $rsp = $re_rsp->with_updated_dependencies_for( + my $rps = $re_rps->with_updated_dependencies_for( $prop, $ss->current_hypothesis ->resolved_propositions @@ -25,7 +25,7 @@ sub apply_to { return $re_ss->but( current_hypothesis => $re_hyp->but( - resolved_propositions => $rsp + resolved_propositions => $rps ), is_solution_state => 1 ); diff --git a/lib/DX/Step/EnterRecheck.pm b/lib/DX/Step/EnterRecheck.pm index 64218fa..c7dc447 100644 --- a/lib/DX/Step/EnterRecheck.pm +++ b/lib/DX/Step/EnterRecheck.pm @@ -52,7 +52,7 @@ sub apply_to { is_solution_state => 0, on_exhaustion_step => undef, on_solution_step => DX::Step::CompleteRecheck->new( - original_search_state => $old_ss, + resume_search_state => $old_ss, was_recheck_for => $prop, ), );