provide and preserve aperture information

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

diff --git a/lib/DX/Predicate/Eq.pm b/lib/DX/Predicate/Eq.pm
index e21be8c..e0b3899 100644 (file)
--- a/lib/DX/Predicate/Eq.pm
+++ b/lib/DX/Predicate/Eq.pm
@@ -10,9 +10,12 @@ sub _resolution_space_for {
 
   my $deps = [ [ CONTENTS_OF ,=> $left ], [ CONTENTS_OF ,=> $right ] ];
 
+  my $aperture = [ map @{$_->aperture_for_set_value}, $left, $right ];
+
   if ($left->equals($right)) {
     return rspace(
       geometry_depends_on => $deps,
+      aperture => $aperture,
       members => [
         res(
           actions => [],
@@ -37,6 +40,7 @@ sub _resolution_space_for {
 
   return rspace(
     geometry_depends_on => $deps,
+    aperture => $aperture,
     members => \@members,
   );
 }