diff options
| author | Mikolaj Konarski <mikolaj.konarski@gmail.com> | 2025-04-26 10:58:57 +0200 |
|---|---|---|
| committer | Mikolaj Konarski <mikolaj.konarski@gmail.com> | 2025-04-26 10:58:57 +0200 |
| commit | b334ec455eb3703873af8aef9840837f203a71d3 (patch) | |
| tree | 62b9f774bb6a30c16e8528b07701e6b6284891ce /src/Data/Array/Nested/Internal | |
| parent | 3ccac33c2c37081b2dcc9253f48aecc61f506744 (diff) | |
Fix the Show instance for Shaped
Diffstat (limited to 'src/Data/Array/Nested/Internal')
| -rw-r--r-- | src/Data/Array/Nested/Internal/Shaped.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |