Hi, I'm here tracing for exhaustion step

[scpubgit/DX.git] / lib / DX / Step / MarkAsExhaustion.pm

diff --git a/lib/DX/Step/MarkAsExhaustion.pm b/lib/DX/Step/MarkAsExhaustion.pm
index cd58fd4..8196321 100644 (file)
--- a/lib/DX/Step/MarkAsExhaustion.pm
+++ b/lib/DX/Step/MarkAsExhaustion.pm
@@ -6,6 +6,7 @@ with 'DX::Role::Step';
 
 sub apply_to {
   my ($self, $ss) = @_;
+  trace exhaustion => [ statement => [ [ symbol => 'exhaustion' ] ] ];
   $ss->but(
     is_solution_state => 0,
     is_exhaustion_state => 1,