From: Matt S Trout <mst@shadowcat.co.uk>
Date: Tue, 2 Aug 2016 18:38:43 +0000 (+0000)
Subject: blow away current trace calls since they were insufficiently thought through
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=104ea5a9802c5be72cb27f086057f90e2de755f4;p=scpubgit%2FDX.git

blow away current trace calls since they were insufficiently thought through
---

diff --git a/lib/DX/SearchProcess.pm b/lib/DX/SearchProcess.pm
index cb50a2f..b66d350 100644
--- a/lib/DX/SearchProcess.pm
+++ b/lib/DX/SearchProcess.pm
@@ -31,7 +31,6 @@ sub find_solution {
     $state = $state->with_one_step;
   }
   return undef unless $state;
-  trace 'search.solution.hyp' => $state->current_hypothesis;
   return $self->but(current_search_state => $state);
 }
 
diff --git a/lib/DX/SearchState.pm b/lib/DX/SearchState.pm
index 4715606..78b7528 100644
--- a/lib/DX/SearchState.pm
+++ b/lib/DX/SearchState.pm
@@ -58,7 +58,6 @@ sub force_backtrack {
   my ($self) = @_;
   my ($first_alt, @rest_alt) = @{$self->alternatives};
   return undef unless $first_alt;
-  trace 'search.backtrack.forced' => $first_alt->[0];
   return $self->but(
     next_step => DX::Step::Backtrack->new,
   )->with_one_step;
diff --git a/lib/DX/Step/Backtrack.pm b/lib/DX/Step/Backtrack.pm
index 5fdfbc7..5d3c339 100644
--- a/lib/DX/Step/Backtrack.pm
+++ b/lib/DX/Step/Backtrack.pm
@@ -8,7 +8,6 @@ sub apply_to {
   my ($self, $ss) = @_;
   my ($first_alt, @rest_alt) = @{$ss->alternatives};
   return $ss->but(next_step => $ss->on_exhaustion_step) unless $first_alt;
-  trace 'search.backtrack.rewind_to' => $first_alt->[1];
   return $ss->but(
     current_hypothesis => $first_alt->[0],
     alternatives => \@rest_alt,
diff --git a/lib/DX/Step/EnterRecheck.pm b/lib/DX/Step/EnterRecheck.pm
index 4d48553..2b7ac56 100644
--- a/lib/DX/Step/EnterRecheck.pm
+++ b/lib/DX/Step/EnterRecheck.pm
@@ -47,8 +47,6 @@ sub apply_to {
                     ? $self->but(proposition_list => \@rest)
                     : $self->on_completion_step);
 
-  trace 'step.recheck.hyp' => $hyp;
-
   my $ss = DX::SearchState->new(
     current_hypothesis => $hyp,
     alternatives => [],