From bcb5d9f9a5e8385fd09c269933987bb6aeca8c65 Mon Sep 17 00:00:00 2001
From: Mikolaj Konarski <mikolaj.konarski@funktory.com>
Date: Thu, 12 Feb 2026 09:55:43 +0100
Subject: Add a precautionary INLINEABLE to the now polymorphic shsTakeIx

---
 src/Data/Array/Nested/Shaped.hs | 1 +
 1 file changed, 1 insertion(+)

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

diff --git a/src/Data/Array/Nested/Shaped.hs b/src/Data/Array/Nested/Shaped.hs
index 6034dc7..acb7c89 100644
--- a/src/Data/Array/Nested/Shaped.hs
+++ b/src/Data/Array/Nested/Shaped.hs
@@ -56,6 +56,7 @@ ssize = shsSize . sshape
 sindex :: Elt a => Shaped sh a -> IIxS sh -> a
 sindex (Shaped arr) idx = mindex arr (ixxFromIxS idx)
 
+{-# INLINEABLE shsTakeIx #-}
 shsTakeIx :: Proxy sh' -> ShS (sh ++ sh') -> IxS sh i -> ShS sh
 shsTakeIx _ _ ZIS = ZSS
 shsTakeIx p sh (_ :.$ idx) = case sh of n :$$ sh' -> n :$$ shsTakeIx p sh' idx
-- 
cgit v1.2.3-70-g09d2