diff options
| author | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-12-15 20:40:49 +0100 |
|---|---|---|
| committer | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-12-16 09:55:19 +0100 |
| commit | 6dfb79d117ea5218e53815f04d2a6e603c1b78fd (patch) | |
| tree | 6aceff341ea13254357eb3ba847779a3362ec389 /src/Data | |
| parent | 21d3d6190bbdaf6ca626ac550dcee26e02318442 (diff) | |
Temporarily remove the UNPACK, until GHC is fixed not to crash with it
Diffstat (limited to 'src/Data')
| -rw-r--r-- | src/Data/Array/Nested/Mixed/Shape.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Data/Array/Nested/Mixed/Shape.hs b/src/Data/Array/Nested/Mixed/Shape.hs index dc4063c..6b7708f 100644 --- a/src/Data/Array/Nested/Mixed/Shape.hs +++ b/src/Data/Array/Nested/Mixed/Shape.hs @@ -341,7 +341,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) |