From d6a748e01924b249cf61bf9a6d1167f4ab49bf4e Mon Sep 17 00:00:00 2001 From: Mikolaj Konarski Date: Sun, 19 May 2024 10:34:33 +0200 Subject: Fix empty lists displayed as ']' --- src/Data/Array/Nested/Internal.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Data/Array/Nested') diff --git a/src/Data/Array/Nested/Internal.hs b/src/Data/Array/Nested/Internal.hs index b9adde9..6581963 100644 --- a/src/Data/Array/Nested/Internal.hs +++ b/src/Data/Array/Nested/Internal.hs @@ -208,7 +208,7 @@ unconsListR (i ::: sh') = Just (UnconsListRRes sh' i) unconsListR ZR = Nothing showListR :: forall sh i. (i -> ShowS) -> ListR sh i -> ShowS -showListR f l = go "[" l . showString "]" +showListR f l = showString "[" . go "" l . showString "]" where go :: String -> ListR sh' i -> ShowS go _ ZR = id @@ -293,7 +293,7 @@ foldListS _ ZS = mempty foldListS f (x ::$ xs) = f x <> foldListS f xs showListS :: forall sh f. (forall n. f n -> ShowS) -> ListS sh f -> ShowS -showListS f l = go "[" l . showString "]" +showListS f l = showString "[" . go "" l . showString "]" where go :: String -> ListS sh' f -> ShowS go _ ZS = id -- cgit v1.2.3-70-g09d2