diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Data/Array/Mixed.hs | 6 |
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 |