X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FPredicate%2FMemberAt.pm;h=ffb95ccd88eedd9c5ec38e8705fa2d72039c40eb;hb=113f21b91243fbf16a81c67eb7d447b435455648;hp=cc811352170fa0bd016b6defe061848549606c40;hpb=1f3fa757641adc0ddd2151f2d8b6f5cdac3dfd77;p=scpubgit%2FDX.git

diff --git a/lib/DX/Predicate/MemberAt.pm b/lib/DX/Predicate/MemberAt.pm
index cc81135..ffb95cc 100644
--- a/lib/DX/Predicate/MemberAt.pm
+++ b/lib/DX/Predicate/MemberAt.pm
@@ -7,36 +7,6 @@ use DX::Class;
 
 with 'DX::Role::Predicate';
 
-sub _possible_resolution_list {
-  my ($self, @args) = @_;
-  my $rspace = $self->_resolution_space_for(@args);
-  return () unless my @members = @{$rspace->members};
-  return map {
-    $_->isa('DX::Resolution')
-      ? step(
-          actions => $_->actions,
-          depends_on => $_->veracity_depends_on,
-        )
-      : do {
-          my ($db, @ap) = (
-            $_->veracity_depends_on_builder, @{$_->action_prototypes}
-          );
-          map {
-            my @cand = @{$_};
-            step(
-              actions => [
-                map {
-                  my ($inv, $type, @args) = @{$ap[$_]};
-                  $inv->${\"action_for_${type}"}(@args, @{$cand[$_]});
-                } 0..$#ap
-              ],
-              depends_on => $db->(@cand),
-            )
-          } @{$_->implementation_candidates};
-        }
-  } @members;
-}
-
 # member_at Dict Key Value
 #
 # Dict must be set to a dict (later maybe also an array and Key -> Index)