diff options
| author | Mikolaj Konarski <mikolaj.konarski@gmail.com> | 2024-06-04 01:40:16 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-06-07 21:43:00 +0200 |
| commit | cbd851577d961a01c6a75533079e4de4aafdeb24 (patch) | |
| tree | 1fbb190b265bbca6816c2e4f9f9883155d120cf4 | |
| parent | c5108efd1402dcb52beca27d13b4880eed35ef5b (diff) | |
Change a confusing function argument name
| -rw-r--r-- | src/Data/Array/Nested/Internal/Ranked.hs | 4 |
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 |