diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-11-13 11:00:34 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-11-13 11:00:34 +0000 |
commit | d404bcf2859f6b4f94d34dec205895019ed564e8 (patch) | |
tree | 0866db6fd6220c741062d93daa75705d7a8204d3 /lib/Numeric/LinearAlgebra/Linear.hs | |
parent | e8939f7f7f9654bcf0ab9a0cd3720279117e2e29 (diff) |
explicit export lists in internal modules
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Linear.hs')
-rw-r--r-- | lib/Numeric/LinearAlgebra/Linear.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/LinearAlgebra/Linear.hs b/lib/Numeric/LinearAlgebra/Linear.hs index 9bf60e2..0426bb7 100644 --- a/lib/Numeric/LinearAlgebra/Linear.hs +++ b/lib/Numeric/LinearAlgebra/Linear.hs | |||
@@ -55,7 +55,7 @@ instance Linear Vector (Complex Double) where | |||
55 | sub = vectorZipC Sub | 55 | sub = vectorZipC Sub |
56 | mul = vectorZipC Mul | 56 | mul = vectorZipC Mul |
57 | divide = vectorZipC Div | 57 | divide = vectorZipC Div |
58 | equal u v = dim u == dim v && vectorMax (liftVector magnitude (sub u v)) == 0.0 | 58 | equal u v = dim u == dim v && vectorMax (mapVector magnitude (sub u v)) == 0.0 |
59 | 59 | ||
60 | instance (Linear Vector a, Container Matrix a) => (Linear Matrix a) where | 60 | instance (Linear Vector a, Container Matrix a) => (Linear Matrix a) where |
61 | scale x = liftMatrix (scale x) | 61 | scale x = liftMatrix (scale x) |