From 466b05b8ec4e8f07b46ebdfaaacb8fdaca82d207 Mon Sep 17 00:00:00 2001 From: Mikolaj Konarski Date: Tue, 2 Dec 2025 22:51:52 +0100 Subject: Add a missing INLINEABLE for ixsToList --- src/Data/Array/Nested/Shaped/Shape.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Data/Array/Nested/Shaped/Shape.hs b/src/Data/Array/Nested/Shaped/Shape.hs index 35c9d7a..60800ae 100644 --- a/src/Data/Array/Nested/Shaped/Shape.hs +++ b/src/Data/Array/Nested/Shaped/Shape.hs @@ -260,6 +260,7 @@ ixsRank (IxS l) = listsRank l ixsFromList :: forall sh i. ShS sh -> [i] -> IxS sh i ixsFromList = coerce (listsFromList @_ @i) +{-# INLINEABLE ixsToList #-} ixsToList :: forall sh i. IxS sh i -> [i] ixsToList = coerce (listsToList @_ @i) -- cgit v1.2.3-70-g09d2