types and deparsing and recalculation part working

[scpubgit/DX.git] / lib / DX / Role / Predicate.pm

diff --git a/lib/DX/Role/Predicate.pm b/lib/DX/Role/Predicate.pm
index b1c8181..2a94ade 100644 (file)
--- a/lib/DX/Role/Predicate.pm
+++ b/lib/DX/Role/Predicate.pm
@@ -1,7 +1,7 @@
 package DX::Role::Predicate;
 
 use List::Util qw(reduce);
-use DX::Utils qw(step);
+use DX::Utils qw(step CONTENTS_OF);
 use DX::Role;
 
 sub resolution_step_for {
@@ -18,7 +18,9 @@ sub _make_equal {
   if ($left->equals($right)) {
     return step(
       actions => [],
-      depends_on => [ [ undef ,=> [ $left, $right ] ] ],
+      depends_on => [
+        [ undef ,=> [ CONTENTS_OF ,=> $left ], [ CONTENTS_OF ,=> $right ] ]
+      ],
     );
   }
   return (
@@ -28,7 +30,7 @@ sub _make_equal {
           actions => [ $set ],
           depends_on => [
             [ $right =>
-              [ $left ], [ $right ]
+              [ CONTENTS_OF ,=> $left ], [ CONTENTS_OF ,=> $right ]
             ]
           ]
         )
@@ -42,7 +44,7 @@ sub _make_equal {
           actions => [ $set ],
           depends_on => [
             [ $left =>
-              [ $left ], [ $right ]
+              [ CONTENTS_OF ,=> $left ], [ CONTENTS_OF ,=> $right ]
             ]
           ]
         )