provide and preserve aperture information

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

diff --git a/lib/DX/Predicate/MemberAt.pm b/lib/DX/Predicate/MemberAt.pm
index ffb95cc..491b48e 100644 (file)
--- a/lib/DX/Predicate/MemberAt.pm
+++ b/lib/DX/Predicate/MemberAt.pm
@@ -79,6 +79,7 @@ sub _resolution_space_for {
         );
 
         return rspace(
+          aperture => [],
           geometry_depends_on => $deps,
           members => \@members
         );
@@ -90,6 +91,7 @@ sub _resolution_space_for {
           [ CONTENTS_OF ,=> $dict, $key->string_value ],
           [ TYPE_OF ,=> $value ],
         ],
+        aperture => $value->aperture_for_set_value,
         members => [
           res(
             actions => [ $value->action_for_set_value($cur_val) ],
@@ -126,6 +128,7 @@ sub _resolution_space_for {
 
       return rspace(
         geometry_depends_on => $deps,
+        aperture => $value->aperture_for_set_value,
         members => [
           res(
             actions => [
@@ -149,6 +152,7 @@ sub _resolution_space_for {
       geometry_depends_on => [
         [ EXISTENCE_OF ,=> $dict, $key->string_value ],
       ],
+      aperture => [],
       members => [],
     );
 
@@ -171,6 +175,7 @@ sub _resolution_space_for {
       [ TYPE_OF ,=> $key ],
       [ TYPE_OF ,=> $value ],
     ],
+    aperture => [ map @{$_->aperture_for_set_value}, $key, $value ],
     members => [
       rstrat(
         action_prototypes => [