move with_actions call to within with_resolution

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

diff --git a/lib/DX/Hypothesis.pm b/lib/DX/Hypothesis.pm
index 0386cd0..5e9a147 100644 (file)
--- a/lib/DX/Hypothesis.pm
+++ b/lib/DX/Hypothesis.pm
@@ -88,8 +88,10 @@ sub but_recheck_for {
 }
 
 sub with_resolution {
-  my ($self, $prop, $depends) = @_;
-  $self->but(
+  my ($self, $prop, $depends, $actions) = @_;
+  my $hyp = $self->with_actions(@$actions);
+  return undef unless $hyp;
+  $hyp->but(
     resolved_propositions => $self->resolved_propositions
                                   ->with_resolution_for(
                                       $prop,