move remaining resolution_space selection into FailRecheck

[scpubgit/DX.git] / lib / DX / Step / FailRecheck.pm

package DX::Step::FailRecheck;

use DX::Class;

with 'DX::Role::Step';

has resume_search_state => (is => 'ro', isa => SearchState, required => 1);

has resolution_space => (is => 'ro', isa => ResolutionSpace, required => 1);

sub apply_to {
  my ($self, $old_ss) = @_;
  trace recheck => [ statement => [ [ symbol => 'fail_recheck' ] ] ];
  trace recheck => [ 'leave_block' ];
  return $self->resume_search_state->but(
    next_step
      => $self->resolution_space->remaining_resolution_space->next_step
  );
}

1;