Also replace replicateScal -> replicatePrim in error messages

3 files changed, 7 insertions, 7 deletions

diff --git a/src/Data/Array/Nested/Mixed.hs b/src/Data/Array/Nested/Mixed.hs
index c0261ed..98cb004 100644
--- a/src/Data/Array/Nested/Mixed.hs
+++ b/src/Data/Array/Nested/Mixed.hs
@@ -257,7 +257,7 @@ instance (NumElt a, PrimElt a) => Num (Mixed sh a) where
   abs = mliftNumElt1 (liftO1 . numEltAbs)
   signum = mliftNumElt1 (liftO1 . numEltSignum)
   -- TODO: THIS IS BAD, WE NEED TO REMOVE THIS
-  fromInteger = error "Data.Array.Nested.fromInteger: Cannot implement fromInteger, use mreplicateScal"
+  fromInteger = error "Data.Array.Nested.fromInteger: Cannot implement fromInteger, use mreplicatePrim"
 
 instance (FloatElt a, PrimElt a) => Fractional (Mixed sh a) where
   fromRational _ = error "Data.Array.Nested.fromRational: No singletons available, use explicit mreplicate"
diff --git a/src/Data/Array/Nested/Ranked/Base.hs b/src/Data/Array/Nested/Ranked/Base.hs
index 9df508d..11a8ffb 100644
--- a/src/Data/Array/Nested/Ranked/Base.hs
+++ b/src/Data/Array/Nested/Ranked/Base.hs
@@ -210,15 +210,15 @@ instance (NumElt a, PrimElt a) => Num (Ranked n a) where
   negate = liftRanked1 negate
   abs = liftRanked1 abs
   signum = liftRanked1 signum
-  fromInteger = error "Data.Array.Nested(Ranked).fromInteger: No singletons available, use explicit rreplicateScal"
+  fromInteger = error "Data.Array.Nested(Ranked).fromInteger: No singletons available, use explicit rreplicatePrim"
 
 instance (FloatElt a, PrimElt a) => Fractional (Ranked n a) where
-  fromRational _ = error "Data.Array.Nested(Ranked).fromRational: No singletons available, use explicit rreplicateScal"
+  fromRational _ = error "Data.Array.Nested(Ranked).fromRational: No singletons available, use explicit rreplicatePrim"
   recip = liftRanked1 recip
   (/) = liftRanked2 (/)
 
 instance (FloatElt a, PrimElt a) => Floating (Ranked n a) where
-  pi = error "Data.Array.Nested(Ranked).pi: No singletons available, use explicit rreplicateScal"
+  pi = error "Data.Array.Nested(Ranked).pi: No singletons available, use explicit rreplicatePrim"
   exp = liftRanked1 exp
   log = liftRanked1 log
   sqrt = liftRanked1 sqrt
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