From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 22 Jun 2016 16:16:30 +0000 (+0000)
Subject: switch SearchState to using Backtrack step
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=985b43d17f964ea2fc2c9b7fd043c06a1fe21215;p=scpubgit%2FDX.git

switch SearchState to using Backtrack step
---

diff --git a/lib/DX/SearchState.pm b/lib/DX/SearchState.pm
index 9562373..99ac3f2 100644
--- a/lib/DX/SearchState.pm
+++ b/lib/DX/SearchState.pm
@@ -1,6 +1,7 @@
 package DX::SearchState;
 
 use Types::Standard qw(Maybe);
+use DX::Step::Backtrack;
 use DX::Step::InvokeNextPredicate;
 use DX::Class;
 
@@ -42,9 +43,7 @@ sub with_one_step {
   return undef unless $first_alt;
   trace 'search.backtrack.rewind_to' => $first_alt->[1];
   return $self->but(
-    current_hypothesis => $first_alt->[0],
-    alternatives => \@rest_alt,
-    next_step => $first_alt->[1],
+    next_step => DX::Step::Backtrack->new,
   );
 }