find solution on proposition addition and output actions run

[scpubgit/DX.git] / lib / DX / QueryState.pm

diff --git a/lib/DX/QueryState.pm b/lib/DX/QueryState.pm
index 68f4638..dcc79c7 100644 (file)
--- a/lib/DX/QueryState.pm
+++ b/lib/DX/QueryState.pm
@@ -61,9 +61,12 @@ sub with_additional_proposition {
   my ($self, $prop) = @_;
   my $prop_seq = $self->proposition_sequence
                       ->but_append_proposition($prop);
+  my $sol_ss = $self->new_search_state_for($prop_seq)
+                    ->find_solution;
+  die "No solution" unless $sol_ss;
   $self->but(
     proposition_sequence => $prop_seq,
-    search_state => $self->new_search_state_for($prop_seq)
+    search_state => $sol_ss,
   );
 }