add exhaustionstep and resumesearch concepts

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

diff --git a/lib/DX/Step/MarkAsSolution.pm b/lib/DX/Step/MarkAsSolution.pm
index e2fc7e3..37d59f5 100644 (file)
--- a/lib/DX/Step/MarkAsSolution.pm
+++ b/lib/DX/Step/MarkAsSolution.pm
@@ -1,14 +1,16 @@
 package DX::Step::MarkAsSolution;
 
+use DX::Step::ResumeSearch;
 use DX::Class;
 
 with 'DX::Role::Step';
 
 sub apply_to {
   my ($self, $ss) = @_;
+  trace solution => [ statement => [ [ symbol => 'solution' ] ] ];
   $ss->but(
     is_solution_state => 1,
-    next_step => DX::Step::Backtrack->new
+    next_step => DX::Step::ResumeSearch->new
   );
 }