Also replace replicateScal -> replicatePrim in error messages

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Data/Array/Nested/Shaped/Base.hs b/src/Data/Array/Nested/Shaped/Base.hs
index e70d84e..98f1241 100644
--- a/src/Data/Array/Nested/Shaped/Base.hs
+++ b/src/Data/Array/Nested/Shaped/Base.hs
@@ -203,15 +203,15 @@ instance (NumElt a, PrimElt a) => Num (Shaped sh a) where
   negate = liftShaped1 negate
   abs = liftShaped1 abs
   signum = liftShaped1 signum
-  fromInteger = error "Data.Array.Nested.fromInteger: No singletons available, use explicit sreplicateScal"
+  fromInteger = error "Data.Array.Nested.fromInteger: No singletons available, use explicit sreplicatePrim"
 
 instance (FloatElt a, PrimElt a) => Fractional (Shaped sh a) where
-  fromRational = error "Data.Array.Nested.fromRational: No singletons available, use explicit sreplicateScal"
+  fromRational = error "Data.Array.Nested.fromRational: No singletons available, use explicit sreplicatePrim"
   recip = liftShaped1 recip
   (/) = liftShaped2 (/)
 
 instance (FloatElt a, PrimElt a) => Floating (Shaped sh a) where
-  pi = error "Data.Array.Nested.pi: No singletons available, use explicit sreplicateScal"
+  pi = error "Data.Array.Nested.pi: No singletons available, use explicit sreplicatePrim"
   exp = liftShaped1 exp
   log = liftShaped1 log
   sqrt = liftShaped1 sqrt