From 24d93b59d75c1ea11f4443965d681236c459b439 Mon Sep 17 00:00:00 2001 From: Mikolaj Konarski Date: Fri, 26 Sep 2025 21:09:23 +0200 Subject: Done --- src/Data/Array/Nested/Ranked/Shape.hs | 1 - 1 file changed, 1 deletion(-) (limited to 'src/Data/Array/Nested/Ranked') diff --git a/src/Data/Array/Nested/Ranked/Shape.hs b/src/Data/Array/Nested/Ranked/Shape.hs index 8b670e5..88a550c 100644 --- a/src/Data/Array/Nested/Ranked/Shape.hs +++ b/src/Data/Array/Nested/Ranked/Shape.hs @@ -138,7 +138,6 @@ listrCast = listrCastWithName "listrCast" listrIndex :: forall k n i. (k + 1 <= n) => SNat k -> ListR n i -> i listrIndex SZ (x ::: _) = x listrIndex (SS i) (_ ::: xs) | Refl <- lemLeqSuccSucc (Proxy @k) (Proxy @n) = listrIndex i xs -listrIndex _ ZR = error "k + 1 <= 0" listrZip :: ListR n i -> ListR n j -> ListR n (i, j) listrZip ZR ZR = ZR -- cgit v1.2.3-70-g09d2