add some basic tracing using the new deparser

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

diff --git a/lib/DX/Step/FailRecheck.pm b/lib/DX/Step/FailRecheck.pm
index fb3b0bc..f303d78 100644 (file)
--- a/lib/DX/Step/FailRecheck.pm
+++ b/lib/DX/Step/FailRecheck.pm
@@ -8,6 +8,7 @@ has resume_search_state => (is => 'ro', isa => SearchState, required => 1);
 
 sub apply_to {
   my ($self, $old_ss) = @_;
+  trace recheck => [ statement => [ [ symbol => 'fail_recheck' ] ] ];
   return $self->resume_search_state;
 }