diff options
Diffstat (limited to 'packages/base/src/Numeric/LinearAlgebra/Static')
-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 | ||