diff options
author | Alberto Ruiz <aruiz@um.es> | 2014-05-24 13:32:58 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2014-05-24 13:32:58 +0200 |
commit | 5b6de561f131d75049fdb999e98a07939ec2e8e7 (patch) | |
tree | b662ce05f56e2c4aa67243b0030a4786dc1fef0b /packages/base/src/Numeric/Sparse.hs | |
parent | 0a9ef8f5b0088c1ac25175bffca4ed95d9e109a5 (diff) |
backward compatibility
Diffstat (limited to 'packages/base/src/Numeric/Sparse.hs')
-rw-r--r-- | packages/base/src/Numeric/Sparse.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/packages/base/src/Numeric/Sparse.hs b/packages/base/src/Numeric/Sparse.hs index 1957d3a..2df4578 100644 --- a/packages/base/src/Numeric/Sparse.hs +++ b/packages/base/src/Numeric/Sparse.hs | |||
@@ -10,7 +10,7 @@ module Numeric.Sparse( | |||
10 | smXv | 10 | smXv |
11 | )where | 11 | )where |
12 | 12 | ||
13 | import Numeric.Container | 13 | import Data.Packed.Numeric |
14 | import qualified Data.Vector.Storable as V | 14 | import qualified Data.Vector.Storable as V |
15 | import Data.Function(on) | 15 | import Data.Function(on) |
16 | import Control.Arrow((***)) | 16 | import Control.Arrow((***)) |
@@ -133,10 +133,6 @@ instance Transposable SMatrix | |||
133 | tr (CSC vs rs cs n m) = CSR vs rs cs m n | 133 | tr (CSC vs rs cs n m) = CSR vs rs cs m n |
134 | tr (Diag v n m) = Diag v m n | 134 | tr (Diag v n m) = Diag v m n |
135 | 135 | ||
136 | instance Transposable (Matrix Double) | ||
137 | where | ||
138 | tr = trans | ||
139 | |||
140 | 136 | ||
141 | instance CGMat SMatrix | 137 | instance CGMat SMatrix |
142 | instance CGMat (Matrix Double) | 138 | instance CGMat (Matrix Double) |