Introduce a more generally applicable X::ArrayShapeMismatch

rakudo · Dec 7, 2018 · dd03014 · dd03014
1 parent d92b155
commit dd03014
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/core/Exception.pm6 b/src/core/Exception.pm6
@@ -2946,13 +2946,16 @@ my class X::IllegalDimensionInShape is Exception {
     }
 }
 
-my class X::Assignment::ArrayShapeMismatch is Exception {
+my class X::ArrayShapeMismatch is Exception {
+    has $.action = "assign";
     has $.target-shape;
     has $.source-shape;
     method message() {
         "Cannot assign an array of shape $.source-shape to an array of shape $.target-shape"
     }
 }
+my class X::Assignment::ArrayShapeMismatch is X::ArrayShapeMismatch {
+}
 
 my class X::Assignment::ToShaped is Exception {
     has $.shape;