diff options
Diffstat (limited to 'packages/base/src/Internal/Static.hs')
-rw-r--r-- | packages/base/src/Internal/Static.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/packages/base/src/Internal/Static.hs b/packages/base/src/Internal/Static.hs index 0ad2cad..1e9a5a3 100644 --- a/packages/base/src/Internal/Static.hs +++ b/packages/base/src/Internal/Static.hs | |||
@@ -207,7 +207,7 @@ singleV v = LA.size v == 1 | |||
207 | singleM m = rows m == 1 && cols m == 1 | 207 | singleM m = rows m == 1 && cols m == 1 |
208 | 208 | ||
209 | 209 | ||
210 | instance forall n. KnownNat n => Sized ℂ (C n) Vector | 210 | instance KnownNat n => Sized ℂ (C n) Vector |
211 | where | 211 | where |
212 | size _ = fromIntegral . natVal $ (undefined :: Proxy n) | 212 | size _ = fromIntegral . natVal $ (undefined :: Proxy n) |
213 | konst x = mkC (LA.scalar x) | 213 | konst x = mkC (LA.scalar x) |
@@ -223,7 +223,7 @@ instance forall n. KnownNat n => Sized ℂ (C n) Vector | |||
223 | r = mkC v :: C n | 223 | r = mkC v :: C n |
224 | 224 | ||
225 | 225 | ||
226 | instance forall n. KnownNat n => Sized ℝ (R n) Vector | 226 | instance KnownNat n => Sized ℝ (R n) Vector |
227 | where | 227 | where |
228 | size _ = fromIntegral . natVal $ (undefined :: Proxy n) | 228 | size _ = fromIntegral . natVal $ (undefined :: Proxy n) |
229 | konst x = mkR (LA.scalar x) | 229 | konst x = mkR (LA.scalar x) |
@@ -240,7 +240,7 @@ instance forall n. KnownNat n => Sized ℝ (R n) Vector | |||
240 | 240 | ||
241 | 241 | ||
242 | 242 | ||
243 | instance forall m n . (KnownNat m, KnownNat n) => Sized ℝ (L m n) Matrix | 243 | instance (KnownNat m, KnownNat n) => Sized ℝ (L m n) Matrix |
244 | where | 244 | where |
245 | size _ = ((fromIntegral . natVal) (undefined :: Proxy m) | 245 | size _ = ((fromIntegral . natVal) (undefined :: Proxy m) |
246 | ,(fromIntegral . natVal) (undefined :: Proxy n)) | 246 | ,(fromIntegral . natVal) (undefined :: Proxy n)) |
@@ -258,7 +258,7 @@ instance forall m n . (KnownNat m, KnownNat n) => Sized ℝ (L m n) Matrix | |||
258 | r = mkL x :: L m n | 258 | r = mkL x :: L m n |
259 | 259 | ||
260 | 260 | ||
261 | instance forall m n . (KnownNat m, KnownNat n) => Sized ℂ (M m n) Matrix | 261 | instance (KnownNat m, KnownNat n) => Sized ℂ (M m n) Matrix |
262 | where | 262 | where |
263 | size _ = ((fromIntegral . natVal) (undefined :: Proxy m) | 263 | size _ = ((fromIntegral . natVal) (undefined :: Proxy m) |
264 | ,(fromIntegral . natVal) (undefined :: Proxy n)) | 264 | ,(fromIntegral . natVal) (undefined :: Proxy n)) |
@@ -316,7 +316,7 @@ isDiagg (Dim (Dim x)) | |||
316 | 316 | ||
317 | -------------------------------------------------------------------------------- | 317 | -------------------------------------------------------------------------------- |
318 | 318 | ||
319 | instance forall n . KnownNat n => Show (R n) | 319 | instance KnownNat n => Show (R n) |
320 | where | 320 | where |
321 | show s@(R (Dim v)) | 321 | show s@(R (Dim v)) |
322 | | singleV v = "("++show (v!0)++" :: R "++show d++")" | 322 | | singleV v = "("++show (v!0)++" :: R "++show d++")" |
@@ -324,7 +324,7 @@ instance forall n . KnownNat n => Show (R n) | |||
324 | where | 324 | where |
325 | d = size s | 325 | d = size s |
326 | 326 | ||
327 | instance forall n . KnownNat n => Show (C n) | 327 | instance KnownNat n => Show (C n) |
328 | where | 328 | where |
329 | show s@(C (Dim v)) | 329 | show s@(C (Dim v)) |
330 | | singleV v = "("++show (v!0)++" :: C "++show d++")" | 330 | | singleV v = "("++show (v!0)++" :: C "++show d++")" |
@@ -332,7 +332,7 @@ instance forall n . KnownNat n => Show (C n) | |||
332 | where | 332 | where |
333 | d = size s | 333 | d = size s |
334 | 334 | ||
335 | instance forall m n . (KnownNat m, KnownNat n) => Show (L m n) | 335 | instance (KnownNat m, KnownNat n) => Show (L m n) |
336 | where | 336 | where |
337 | show (isDiag -> Just (z,y,(m',n'))) = printf "(diag %s %s :: L %d %d)" (show z) (drop 9 $ show y) m' n' | 337 | show (isDiag -> Just (z,y,(m',n'))) = printf "(diag %s %s :: L %d %d)" (show z) (drop 9 $ show y) m' n' |
338 | show s@(L (Dim (Dim x))) | 338 | show s@(L (Dim (Dim x))) |
@@ -341,7 +341,7 @@ instance forall m n . (KnownNat m, KnownNat n) => Show (L m n) | |||
341 | where | 341 | where |
342 | (m',n') = size s | 342 | (m',n') = size s |
343 | 343 | ||
344 | instance forall m n . (KnownNat m, KnownNat n) => Show (M m n) | 344 | instance (KnownNat m, KnownNat n) => Show (M m n) |
345 | where | 345 | where |
346 | show (isDiagC -> Just (z,y,(m',n'))) = printf "(diag %s %s :: M %d %d)" (show z) (drop 9 $ show y) m' n' | 346 | show (isDiagC -> Just (z,y,(m',n'))) = printf "(diag %s %s :: M %d %d)" (show z) (drop 9 $ show y) m' n' |
347 | show s@(M (Dim (Dim x))) | 347 | show s@(M (Dim (Dim x))) |
@@ -352,7 +352,7 @@ instance forall m n . (KnownNat m, KnownNat n) => Show (M m n) | |||
352 | 352 | ||
353 | -------------------------------------------------------------------------------- | 353 | -------------------------------------------------------------------------------- |
354 | 354 | ||
355 | instance forall n t . (Num (Vector t), Numeric t )=> Num (Dim n (Vector t)) | 355 | instance (Num (Vector t), Numeric t )=> Num (Dim n (Vector t)) |
356 | where | 356 | where |
357 | (+) = lift2F (+) | 357 | (+) = lift2F (+) |
358 | (*) = lift2F (*) | 358 | (*) = lift2F (*) |