From b334ec455eb3703873af8aef9840837f203a71d3 Mon Sep 17 00:00:00 2001 From: Mikolaj Konarski Date: Sat, 26 Apr 2025 10:58:57 +0200 Subject: Fix the Show instance for Shaped --- src/Data/Array/Nested/Internal/Shaped.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Data/Array/Nested') diff --git a/src/Data/Array/Nested/Internal/Shaped.hs b/src/Data/Array/Nested/Internal/Shaped.hs index b7cb14d..a8f330f 100644 --- a/src/Data/Array/Nested/Internal/Shaped.hs +++ b/src/Data/Array/Nested/Internal/Shaped.hs @@ -68,7 +68,7 @@ deriving instance Ord (Mixed (MapJust sh) a) => Ord (Shaped sh a) instance (Show a, Elt a) => Show (Shaped n a) where showsPrec d arr@(Shaped marr) = let sh = show (shsToList (sshape arr)) - in showsMixedArray ("rfromListLinear " ++ sh) ("rreplicate " ++ sh) d marr + in showsMixedArray ("sfromListLinear " ++ sh) ("sreplicate " ++ sh) d marr instance Elt a => NFData (Shaped sh a) where rnf (Shaped arr) = rnf arr -- cgit v1.2.3-70-g09d2