diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-05-22 09:02:42 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-05-22 09:02:42 +0200 |
commit | 0c8a545e67ebef2b3a4e376fac8f23a651dfbe6d (patch) | |
tree | aa34da915f597ccd8cf497834b156a76ea537684 /packages/base/src/Data/Packed/Numeric.hs | |
parent | dd595ffe3fe6c710adba253696e455ffd98877c5 (diff) |
initial CInt SContainer
Diffstat (limited to 'packages/base/src/Data/Packed/Numeric.hs')
-rw-r--r-- | packages/base/src/Data/Packed/Numeric.hs | 8 |
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 | ||
222 | instance Container Vector e => Konst e Int Vector | 222 | instance SContainer Vector e => Konst e Int Vector |
223 | where | 223 | where |
224 | konst = konst' | 224 | konst = konst' |
225 | 225 | ||
226 | instance Container Vector e => Konst e (Int,Int) Matrix | 226 | instance (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 | ||
249 | instance Container Vector e => Build Int (e -> e) Vector e | 249 | instance SContainer Vector e => Build Int (e -> e) Vector e |
250 | where | 250 | where |
251 | build = build' | 251 | build = build' |
252 | 252 | ||
253 | instance Container Matrix e => Build (Int,Int) (e -> e -> e) Matrix e | 253 | instance SContainer Matrix e => Build (Int,Int) (e -> e -> e) Matrix e |
254 | where | 254 | where |
255 | build = build' | 255 | build = build' |
256 | 256 | ||