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/Sparse.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'packages/base/src/Numeric/Sparse.hs') diff --git a/packages/base/src/Numeric/Sparse.hs b/packages/base/src/Numeric/Sparse.hs index f1516ec..d856287 100644 --- a/packages/base/src/Numeric/Sparse.hs +++ b/packages/base/src/Numeric/Sparse.hs @@ -195,10 +195,12 @@ toDense asm = assoc (r+1,c+1) 0 asm instance Transposable CSR CSC where tr (CSR vs cs rs n m) = CSC vs cs rs m n + tr' = tr instance Transposable CSC CSR where tr (CSC vs rs cs n m) = CSR vs rs cs m n + tr' = tr instance Transposable GMatrix GMatrix where @@ -206,5 +208,5 @@ instance Transposable GMatrix GMatrix tr (SparseC s n m) = SparseR (tr s) m n tr (Diag v n m) = Diag v m n tr (Dense a n m) = Dense (tr a) m n - + tr' = tr -- cgit v1.2.3