From 9a640d084f3d950e37e054672c9bbbefe4af06d7 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Tue, 26 May 2015 20:14:56 +0200 Subject: tr' , documentation --- packages/base/src/Numeric/LinearAlgebra/Static/Internal.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'packages/base/src/Numeric/LinearAlgebra/Static/Internal.hs') 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) where tr a@(isDiag -> Just _) = mkL (extract a) tr (extract -> a) = mkL (tr a) + tr' = tr instance (KnownNat n, KnownNat m) => Transposable (M m n) (M n m) where tr a@(isDiagC -> Just _) = mkM (extract a) tr (extract -> a) = mkM (tr a) + tr' a@(isDiagC -> Just _) = mkM (extract a) + tr' (extract -> a) = mkM (tr' a) -------------------------------------------------------------------------------- -- cgit v1.2.3