aboutsummaryrefslogtreecommitdiff
path: root/src/Data/Array
diff options
context:
space:
mode:
authorMikolaj Konarski <mikolaj.konarski@gmail.com>2024-06-04 01:40:16 +0200
committerTom Smeding <tom@tomsmeding.com>2024-06-07 21:43:00 +0200
commitcbd851577d961a01c6a75533079e4de4aafdeb24 (patch)
tree1fbb190b265bbca6816c2e4f9f9883155d120cf4 /src/Data/Array
parentc5108efd1402dcb52beca27d13b4880eed35ef5b (diff)
Change a confusing function argument name
Diffstat (limited to 'src/Data/Array')
-rw-r--r--src/Data/Array/Nested/Internal/Ranked.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Data/Array/Nested/Internal/Ranked.hs b/src/Data/Array/Nested/Internal/Ranked.hs
index 6b1547d..c5f0c11 100644
--- a/src/Data/Array/Nested/Internal/Ranked.hs
+++ b/src/Data/Array/Nested/Internal/Ranked.hs
@@ -380,8 +380,8 @@ rrerank :: forall n1 n2 n a b. (PrimElt a, PrimElt b)
=> SNat n -> IShR n2
-> (Ranked n1 a -> Ranked n2 b)
-> Ranked (n + n1) a -> Ranked (n + n2) b
-rrerank ssh sh2 f (rtoPrimitive -> arr) =
- rfromPrimitive $ rrerankP ssh sh2 (rtoPrimitive . f . rfromPrimitive) arr
+rrerank sn sh2 f (rtoPrimitive -> arr) =
+ rfromPrimitive $ rrerankP sn sh2 (rtoPrimitive . f . rfromPrimitive) arr
rreplicate :: forall n m a. Elt a
=> IShR n -> Ranked m a -> Ranked (n + m) a