X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FStep%2FCompleteRecheck.pm;h=35b805b75685a8565fe1a558db204c1a173f5364;hb=2ccd4b58123288af004358751a047e276f2c6c58;hp=f52c19455c84e985107a33629b5f708656517886;hpb=251177ea7e3a1ec49314ffce2846e711052a3fa1;p=scpubgit%2FDX.git 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 );