aboutsummaryrefslogtreecommitdiff
path: root/src/Data/Array
diff options
context:
space:
mode:
Diffstat (limited to 'src/Data/Array')
-rw-r--r--src/Data/Array/Mixed.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Data/Array/Mixed.hs b/src/Data/Array/Mixed.hs
index 926c6ee..21293dc 100644
--- a/src/Data/Array/Mixed.hs
+++ b/src/Data/Array/Mixed.hs
@@ -102,9 +102,9 @@ ixDrop (_ ::@ sh) (_ ::@ idx) = ixDrop sh idx
ixDrop (_ ::? sh) (_ ::? idx) = ixDrop sh idx
ssxAppend :: StaticShapeX sh -> StaticShapeX sh' -> StaticShapeX (sh ++ sh')
-ssxAppend SZX idx' = idx'
-ssxAppend (n :$@ idx) idx' = n :$@ ssxAppend idx idx'
-ssxAppend (() :$? idx) idx' = () :$? ssxAppend idx idx'
+ssxAppend SZX sh' = sh'
+ssxAppend (n :$@ sh) sh' = n :$@ ssxAppend sh sh'
+ssxAppend (() :$? sh) sh' = () :$? ssxAppend sh sh'
shapeSize :: IxX sh -> Int
shapeSize IZX = 1