From e61c1b95e22563d57013af26c78596d7e93f3283 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sun, 14 Apr 2024 12:58:34 +0200 Subject: Fix variable naming --- src/Data/Array/Mixed.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Data/Array') 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 -- cgit v1.2.3-70-g09d2