From d6a748e01924b249cf61bf9a6d1167f4ab49bf4e Mon Sep 17 00:00:00 2001
From: Mikolaj Konarski <mikolaj.konarski@gmail.com>
Date: Sun, 19 May 2024 10:34:33 +0200
Subject: Fix empty lists displayed as ']'

---
 src/Data/Array/Mixed.hs           | 2 +-
 src/Data/Array/Nested/Internal.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Data/Array/Mixed.hs b/src/Data/Array/Mixed.hs
index 39d969c..aef8ac6 100644
--- a/src/Data/Array/Mixed.hs
+++ b/src/Data/Array/Mixed.hs
@@ -120,7 +120,7 @@ foldListX _ ZX = mempty
 foldListX f (x ::% xs) = f x <> foldListX f xs
 
 showListX :: forall sh f. (forall n. f n -> ShowS) -> ListX sh f -> ShowS
-showListX f l = go "[" l . showString "]"
+showListX f l = showString "[" . go "" l . showString "]"
   where
     go :: String -> ListX sh' f -> ShowS
     go _ ZX = id
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