X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FHypothesis.pm;h=202f4eafb56f9a5d972612feacab9170becee27f;hb=77065529a9faee7f2865ac34793f7716f4b9827f;hp=931cd0c1c30981771378f87f8aa883df3b348694;hpb=ea0dbc2aca498af5fcfbe6621a5547897c487340;p=scpubgit%2FDX.git diff --git a/lib/DX/Hypothesis.pm b/lib/DX/Hypothesis.pm index 931cd0c..202f4ea 100644 --- a/lib/DX/Hypothesis.pm +++ b/lib/DX/Hypothesis.pm @@ -92,16 +92,15 @@ sub with_resolution { my ($self, $prop, $depends, $actions) = @_; (my $hyp, my @recheck) = $self->with_actions(@$actions); return undef unless $hyp; - if (@recheck) { - $hyp = $hyp->but_recheck_for(@recheck); - return undef unless $hyp; - } - $hyp->but( - resolved_propositions => $self->resolved_propositions - ->with_resolution_for( - $prop, - $depends, - ), + return ( + $hyp->but( + resolved_propositions => $self->resolved_propositions + ->with_resolution_for( + $prop, + $depends, + ), + ), + @recheck ); }