summaryrefslogtreecommitdiff
path: root/packages/base/src/Data/Packed/Numeric.hs
diff options
context:
space:
mode:
Diffstat (limited to 'packages/base/src/Data/Packed/Numeric.hs')
-rw-r--r--packages/base/src/Data/Packed/Numeric.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/packages/base/src/Data/Packed/Numeric.hs b/packages/base/src/Data/Packed/Numeric.hs
index ae5fad7..4d66f27 100644
--- a/packages/base/src/Data/Packed/Numeric.hs
+++ b/packages/base/src/Data/Packed/Numeric.hs
@@ -219,11 +219,11 @@ class Konst e d c | d -> c, c -> d
219 -- 219 --
220 konst :: e -> d -> c e 220 konst :: e -> d -> c e
221 221
222instance Container Vector e => Konst e Int Vector 222instance SContainer Vector e => Konst e Int Vector
223 where 223 where
224 konst = konst' 224 konst = konst'
225 225
226instance Container Vector e => Konst e (Int,Int) Matrix 226instance (Num e, SContainer Vector e) => Konst e (Int,Int) Matrix
227 where 227 where
228 konst = konst' 228 konst = konst'
229 229
@@ -246,11 +246,11 @@ class Build d f c e | d -> c, c -> d, f -> e, f -> d, f -> c, c e -> f, d e -> f
246 -- 246 --
247 build :: d -> f -> c e 247 build :: d -> f -> c e
248 248
249instance Container Vector e => Build Int (e -> e) Vector e 249instance SContainer Vector e => Build Int (e -> e) Vector e
250 where 250 where
251 build = build' 251 build = build'
252 252
253instance Container Matrix e => Build (Int,Int) (e -> e -> e) Matrix e 253instance SContainer Matrix e => Build (Int,Int) (e -> e -> e) Matrix e
254 where 254 where
255 build = build' 255 build = build'
256 256