From 9560d0f26420409afd2230fb7e5e111eafcced06 Mon Sep 17 00:00:00 2001
From: Mikolaj Konarski <mikolaj.konarski@funktory.com>
Date: Mon, 1 Dec 2025 01:44:05 +0100
Subject: Expose the unfolding of the indexing operations

---
 src/Data/Array/Nested/Ranked.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Data/Array/Nested/Ranked.hs')

diff --git a/src/Data/Array/Nested/Ranked.hs b/src/Data/Array/Nested/Ranked.hs
index 2fbfdd8..bf35cc4 100644
--- a/src/Data/Array/Nested/Ranked.hs
+++ b/src/Data/Array/Nested/Ranked.hs
@@ -49,9 +49,11 @@ remptyArray = mtoRanked (memptyArray ZSX)
 rsize :: Elt a => Ranked n a -> Int
 rsize = shrSize . rshape
 
+{-# INLINEABLE rindex #-}
 rindex :: Elt a => Ranked n a -> IIxR n -> a
 rindex (Ranked arr) idx = mindex arr (ixxFromIxR idx)
 
+{-# INLINEABLE rindexPartial #-}
 rindexPartial :: forall n m a. Elt a => Ranked (n + m) a -> IIxR n -> Ranked m a
 rindexPartial (Ranked arr) idx =
   Ranked (mindexPartial @a @(Replicate n Nothing) @(Replicate m Nothing)
-- 
cgit v1.2.3-70-g09d2