diff options
| author | Mikolaj Konarski <mikolaj.konarski@gmail.com> | 2024-05-19 10:34:33 +0200 |
|---|---|---|
| committer | Mikolaj Konarski <mikolaj.konarski@gmail.com> | 2024-05-19 10:34:33 +0200 |
| commit | d6a748e01924b249cf61bf9a6d1167f4ab49bf4e (patch) | |
| tree | 8fbdb9436b7b3c46624407ba4e3f16eb97bad4d4 /src/Data/Array/Mixed.hs | |
| parent | 607726b85cb83d2d29fafeca8cf73754b81995a4 (diff) | |
Fix empty lists displayed as ']'
Diffstat (limited to 'src/Data/Array/Mixed.hs')
| -rw-r--r-- | src/Data/Array/Mixed.hs | 2 |
1 files changed, 1 insertions, 1 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 |