query/solve/ensure

[scpubgit/DKit.git] / lib / DX / Op / ProposeAction.pm

diff --git a/lib/DX/Op/ProposeAction.pm b/lib/DX/Op/ProposeAction.pm
index e3d1ed2..9db50a5 100644 (file)
--- a/lib/DX/Op/ProposeAction.pm
+++ b/lib/DX/Op/ProposeAction.pm
@@ -19,6 +19,7 @@ sub run {
   ($state, my %args) = $self->_expand_args($state, %{$self->_arg_map});
   my @vars = @args{sort keys %args};
   return $state->backtrack unless @vars == grep $_->is_bound, @vars;
+  return $state->backtrack unless $state->allow_actions;
   my @deps = $state->action_dependencies(map $_->id, @vars);
   my $action = $self->builder->(map $state->resolve_value($_), @vars)
                     ->but(dependencies => \@deps);