diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-04-14 12:58:34 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-04-14 12:58:34 +0200 |
| commit | e61c1b95e22563d57013af26c78596d7e93f3283 (patch) | |
| tree | 4bcadad74b0553b12814c308b2fdcd62ea3e76b2 | |
| parent | 3defbdadab5080fc1f44895c06297d58ff3f5a43 (diff) | |
Fix variable naming
| -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 |