switch recheck to using an on_completion_step

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

diff --git a/lib/DX/Deparse.pm b/lib/DX/Deparse.pm
index 8edfffd..5350b58 100644 (file)
--- a/lib/DX/Deparse.pm
+++ b/lib/DX/Deparse.pm
@@ -81,7 +81,7 @@ sub _fmt_hypothesis {
   my ($self, $hyp, $meta) = @_;
   $self->_fmt_object([
     map [ $_ => $hyp->$_ ],
-      qw(actions outstanding_propositions resolved_propositions scope)
+      qw(actions resolved_propositions scope)
   ], $meta);
 }
 
@@ -122,6 +122,11 @@ sub _fmt_action_bindvalue {
   join ' ', BindValue => $path, $bound_path;
 }
 
+sub _fmt_action_addboundvalue {
+  my ($self, $action, $meta) = @_;
+  $self->_fmt_action_generic(AddBoundValue => $action, $meta);
+}
+
 sub _fmt_action_setboundvalue {
   my ($self, $action, $meta) = @_;
   $self->_fmt_action_generic(SetBoundValue => $action, $meta);
@@ -176,4 +181,12 @@ sub _fmt_searchstate {
   ], $meta);
 }
 
+sub _fmt_step_normal {
+  my ($self, $step, $meta) = @_;
+  $self->_fmt_object([
+    [ actions => $step->actions ],
+    [ alternative_step => $step->alternative_step ],
+  ], $meta);
+}
+
 1;