From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 16 Mar 2016 14:35:42 +0000 (+0000)
Subject: trace recheck failure
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2d4e0113e1292c8e0e4f69d2a00737bd69952987;p=scpubgit%2FDX.git

trace recheck failure
---

diff --git a/lib/DX/Hypothesis.pm b/lib/DX/Hypothesis.pm
index 1bad497..59e0480 100644
--- a/lib/DX/Hypothesis.pm
+++ b/lib/DX/Hypothesis.pm
@@ -67,7 +67,12 @@ sub but_recheck_for {
 
   my $ss = DX::SearchState->new_for($hyp);
 
-  return undef unless my $sol_ss = $ss->find_solution;
+  my $sol_ss = $ss->find_solution;
+
+  unless ($sol_ss) {
+    trace 'step.recheck.fail' => 'argh';
+    return undef;
+  }
 
   my $sol_rps = $sol_ss->current_hypothesis->resolved_propositions;