X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FCollation%2FRelationship.pm;h=49ac1dba34ccafd2d460e7a8801a77be10907120;hb=b15511bfc5546fb21b191921506253f89f19465a;hp=7001782590c29e468f217c05cb7ddd57e395ac1f;hpb=d5f263a03709dc236e29e9029bd4a897396d41c7;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/Collation/Relationship.pm b/lib/Text/Tradition/Collation/Relationship.pm
index 7001782..49ac1db 100644
--- a/lib/Text/Tradition/Collation/Relationship.pm
+++ b/lib/Text/Tradition/Collation/Relationship.pm
@@ -15,8 +15,8 @@ enum 'RelationshipType' => qw( spelling orthographic grammatical repetition lexi
 subtype 'RelationshipVector',
     => as 'ArrayRef',
     => where { @$_ == 2
-	       && $_->[0]->isa( 'Text::Tradition::Collation::Reading' )
-	       && $_->[1]->isa( 'Text::Tradition::Collation::Reading' )
+	       && $_->[0]->isa( 'Graph::Easy::Node' )
+	       && $_->[1]->isa( 'Graph::Easy::Node' )
 	     },
     message { 'Argument should be [ SourceReading, TargetReading ]' };
 
@@ -50,6 +50,16 @@ has 'global' => (
     default => 0,
 );
 
+has 'non_correctable' => (
+    is => 'rw',
+    isa => 'Bool',
+    );
+
+has 'non_independent' => (
+    is => 'rw',
+    isa => 'Bool',
+    );
+
 sub FOREIGNBUILDARGS {
     my $class = shift;
     my %args = @_;