diff options
| author | Mikolaj Konarski <mikolaj.konarski@gmail.com> | 2024-04-28 19:18:06 +0200 |
|---|---|---|
| committer | Mikolaj Konarski <mikolaj.konarski@gmail.com> | 2024-04-28 19:18:06 +0200 |
| commit | d9a1b896875153cc3ee8fefc3dba7de1f6122d45 (patch) | |
| tree | 098c5e91d79acac5a529015bb7478d1673da2adf | |
| parent | b86302bdb747fbe4262b1afa6ae981fd54d7bce4 (diff) | |
Make sized ranked lists strict due to impurity evaluation order in horde-ad
| -rw-r--r-- | src/Data/Array/Nested/Internal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/Array/Nested/Internal.hs b/src/Data/Array/Nested/Internal.hs index efb9dc6..1999bb6 100644 --- a/src/Data/Array/Nested/Internal.hs +++ b/src/Data/Array/Nested/Internal.hs @@ -857,7 +857,7 @@ type role ListR nominal representational type ListR :: INat -> Type -> Type data ListR n i where ZR :: ListR Z i - (:::) :: forall n {i}. i -> ListR n i -> ListR (S n) i + (:::) :: forall n {i}. !i -> !(ListR n i) -> ListR (S n) i deriving instance Show i => Show (ListR n i) deriving instance Eq i => Eq (ListR n i) deriving instance Ord i => Ord (ListR n i) |