From e61c1b95e22563d57013af26c78596d7e93f3283 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
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')

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