diff options
Diffstat (limited to 'packages/base/src/Numeric/LinearAlgebra/Static/Internal.hs')
| -rw-r--r-- | packages/base/src/Numeric/LinearAlgebra/Static/Internal.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/Static/Internal.hs b/packages/base/src/Numeric/LinearAlgebra/Static/Internal.hs index 7ecb132..7b770e0 100644 --- a/packages/base/src/Numeric/LinearAlgebra/Static/Internal.hs +++ b/packages/base/src/Numeric/LinearAlgebra/Static/Internal.hs | |||
| @@ -244,11 +244,14 @@ instance (KnownNat n, KnownNat m) => Transposable (L m n) (L n m) | |||
| 244 | where | 244 | where |
| 245 | tr a@(isDiag -> Just _) = mkL (extract a) | 245 | tr a@(isDiag -> Just _) = mkL (extract a) |
| 246 | tr (extract -> a) = mkL (tr a) | 246 | tr (extract -> a) = mkL (tr a) |
| 247 | tr' = tr | ||
| 247 | 248 | ||
| 248 | instance (KnownNat n, KnownNat m) => Transposable (M m n) (M n m) | 249 | instance (KnownNat n, KnownNat m) => Transposable (M m n) (M n m) |
| 249 | where | 250 | where |
| 250 | tr a@(isDiagC -> Just _) = mkM (extract a) | 251 | tr a@(isDiagC -> Just _) = mkM (extract a) |
| 251 | tr (extract -> a) = mkM (tr a) | 252 | tr (extract -> a) = mkM (tr a) |
| 253 | tr' a@(isDiagC -> Just _) = mkM (extract a) | ||
| 254 | tr' (extract -> a) = mkM (tr' a) | ||
| 252 | 255 | ||
| 253 | -------------------------------------------------------------------------------- | 256 | -------------------------------------------------------------------------------- |
| 254 | 257 | ||