From 954e0958d2d6d40be9d95004a7f813ae9ce5d947 Mon Sep 17 00:00:00 2001 From: Mikolaj Konarski Date: Mon, 15 Dec 2025 20:40:49 +0100 Subject: Temporarily remove the UNPACK, until GHC is fixed not to crash with it --- src/Data/Array/Nested/Mixed/Shape.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Data/Array/Nested') diff --git a/src/Data/Array/Nested/Mixed/Shape.hs b/src/Data/Array/Nested/Mixed/Shape.hs index f62553c..ae267da 100644 --- a/src/Data/Array/Nested/Mixed/Shape.hs +++ b/src/Data/Array/Nested/Mixed/Shape.hs @@ -342,7 +342,9 @@ type ListH :: [Maybe Nat] -> Type -> Type data ListH sh i where ZH :: ListH '[] i ConsUnknown :: forall sh i. i -> ListH sh i -> ListH (Nothing : sh) i - ConsKnown :: forall n sh i. {-# UNPACK #-} SNat n -> ListH sh i -> ListH (Just n : sh) i +-- TODO: bring this UNPACK back when GHC no longer crashes: +-- ConsKnown :: forall n sh i. {-# UNPACK #-} SNat n -> ListH sh i -> ListH (Just n : sh) i + ConsKnown :: forall n sh i. SNat n -> ListH sh i -> ListH (Just n : sh) i deriving instance Eq i => Eq (ListH sh i) deriving instance Ord i => Ord (ListH sh i) -- cgit v1.2.3-70-g09d2