aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikolaj Konarski <mikolaj.konarski@gmail.com>2025-04-26 10:58:57 +0200
committerMikolaj Konarski <mikolaj.konarski@gmail.com>2025-04-26 10:58:57 +0200
commitb334ec455eb3703873af8aef9840837f203a71d3 (patch)
tree62b9f774bb6a30c16e8528b07701e6b6284891ce
parent3ccac33c2c37081b2dcc9253f48aecc61f506744 (diff)
Fix the Show instance for ShapedHEADmaster
-rw-r--r--src/Data/Array/Nested/Internal/Shaped.hs2
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