From cbd851577d961a01c6a75533079e4de4aafdeb24 Mon Sep 17 00:00:00 2001 From: Mikolaj Konarski Date: Tue, 4 Jun 2024 01:40:16 +0200 Subject: Change a confusing function argument name --- src/Data/Array/Nested/Internal/Ranked.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Data/Array/Nested/Internal/Ranked.hs') 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 -- cgit v1.2.3-70-g09d2