aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom Smeding <t.j.smeding@uu.nl>2024-11-14 13:39:59 +0100
committerTom Smeding <t.j.smeding@uu.nl>2024-11-14 13:39:59 +0100
commit6fe603c89c59b156b7ecf410b4f39b28d4a22262 (patch)
tree7ac94fee652a24dcdc63067bd8ff5904f4fd6059
parent7281c200900507d2327fe0a532d1de2e3c0b5c8f (diff)
Improve error message
-rw-r--r--src/Data/Array/Nested/Internal/Shaped.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Data/Array/Nested/Internal/Shaped.hs b/src/Data/Array/Nested/Internal/Shaped.hs
index d8c80d1..e2f65c0 100644
--- a/src/Data/Array/Nested/Internal/Shaped.hs
+++ b/src/Data/Array/Nested/Internal/Shaped.hs
@@ -199,14 +199,14 @@ instance (NumElt a, PrimElt a, Num a, KnownShS sh) => Num (Shaped sh a) where
fromInteger =
case knownShS @sh of
ZSS -> sscalar . fromInteger
- _ -> error "Data.Array.Nested.fromInteger: No singletons available, use explicit sreplicateScal/sscalar"
+ _ -> error "Data.Array.Nested.fromInteger: No singletons available, use explicit sreplicateScal"
-- | TODO: 'KnownShS' is only there for 'fromRational'.
instance (FloatElt a, NumElt a, PrimElt a, Fractional a, KnownShS sh) => Fractional (Shaped sh a) where
fromRational =
case knownShS @sh of
ZSS -> sscalar . fromRational
- _ -> error "Data.Array.Nested.fromRational: No singletons available, use explicit sreplicateScal/sscalar"
+ _ -> error "Data.Array.Nested.fromRational: No singletons available, use explicit sreplicateScal"
recip = arithPromoteShaped recip
(/) = arithPromoteShaped2 (/)
@@ -215,7 +215,7 @@ instance (FloatElt a, NumElt a, PrimElt a, Floating a, KnownShS sh) => Floating
pi =
case knownShS @sh of
ZSS -> sscalar pi
- _ -> error "Data.Array.Nested.pi: No singletons available, use explicit sreplicateScal/sscalar"
+ _ -> error "Data.Array.Nested.pi: No singletons available, use explicit sreplicateScal"
exp = arithPromoteShaped exp
log = arithPromoteShaped log
sqrt = arithPromoteShaped sqrt