Fixes FCO#364. Uses model's or column's

Xliff · Sep 14, 2019 · 7750c96 · 7750c96
1 parent 392250b
commit 7750c96
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/MetamodelX/Red/Dirtable.pm6 b/lib/MetamodelX/Red/Dirtable.pm6
@@ -46,7 +46,7 @@ method set-helper-attrs(Mu \type) {
     type.^add_attribute: $!dirty-old-values-attr;
 }
 
-submethod !TWEAK_pr(\instance: *%data) {
+submethod !TWEAK_pr(\instance: *%data) is rw {
     my @columns = instance.^columns;
 
     my %new = |@columns.map: {

diff --git a/lib/MetamodelX/Red/Model.pm6 b/lib/MetamodelX/Red/Model.pm6
@@ -205,7 +205,7 @@ method add-column(::T Red::Model:U \type, Red::Attr::Column $attr) {
         }
         self.add-comparate-methods(T, $attr);
         if $attr.has_accessor {
-            if $attr.rw {
+            if type.^rw or $attr.rw {
                 T.^add_multi_method: $name, method (Red::Model:D:) is rw {
                     use nqp;
                     nqp::getattr(self, self.WHAT, $attr.name)