From 607726b85cb83d2d29fafeca8cf73754b81995a4 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sat, 18 May 2024 22:13:01 +0200 Subject: WIP IsList instances --- src/Data/Array/Nested/Internal.hs | 8 -------- 1 file changed, 8 deletions(-) (limited to 'src/Data/Array/Nested') diff --git a/src/Data/Array/Nested/Internal.hs b/src/Data/Array/Nested/Internal.hs index c66bd07..b9adde9 100644 --- a/src/Data/Array/Nested/Internal.hs +++ b/src/Data/Array/Nested/Internal.hs @@ -731,14 +731,6 @@ instance Elt a => Elt (Mixed sh' a) where mvecsFreeze sh (MV_Nest sh' vecs) = M_Nest sh <$> mvecsFreeze (X.shAppend sh sh') vecs --- | Evidence for the static part of a shape. This pops up only when you are --- polymorphic in the element type of an array. -type KnownShX :: [Maybe Nat] -> Constraint -class KnownShX sh where knownShX :: StaticShX sh -instance KnownShX '[] where knownShX = ZKX -instance (KnownNat n, KnownShX sh) => KnownShX (Just n : sh) where knownShX = SKnown natSing :!% knownShX -instance KnownShX sh => KnownShX (Nothing : sh) where knownShX = SUnknown () :!% knownShX - instance (KnownShX sh', KnownElt a) => KnownElt (Mixed sh' a) where memptyArray sh = M_Nest sh (memptyArray (X.shAppend sh (X.completeShXzeros (knownShX @sh')))) -- cgit v1.2.3-70-g09d2