diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-12-22 09:04:12 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-12-22 09:04:12 +0000 |
commit | 107478b2288b0904159599be94089230c7cd3edf (patch) | |
tree | 14834baa61a038efe0e81ed00d45071ba47f2789 /lib/Numeric/LinearAlgebra | |
parent | ed8f45f7316569bfeacdd2848017d93c5cfdd261 (diff) |
fix ghc-6.12 warnings
Diffstat (limited to 'lib/Numeric/LinearAlgebra')
-rw-r--r-- | lib/Numeric/LinearAlgebra/Algorithms.hs | 1 | ||||
-rw-r--r-- | lib/Numeric/LinearAlgebra/LAPACK.hs | 1 | ||||
-rw-r--r-- | lib/Numeric/LinearAlgebra/Linear.hs | 1 | ||||
-rw-r--r-- | lib/Numeric/LinearAlgebra/Tests.hs | 2 |
4 files changed, 1 insertions, 4 deletions
diff --git a/lib/Numeric/LinearAlgebra/Algorithms.hs b/lib/Numeric/LinearAlgebra/Algorithms.hs index 954b214..e0cc0a0 100644 --- a/lib/Numeric/LinearAlgebra/Algorithms.hs +++ b/lib/Numeric/LinearAlgebra/Algorithms.hs | |||
@@ -72,7 +72,6 @@ import Data.Packed.Internal hiding (fromComplex, toComplex, conj, (//)) | |||
72 | import Data.Packed | 72 | import Data.Packed |
73 | import Numeric.GSL.Vector | 73 | import Numeric.GSL.Vector |
74 | import Numeric.LinearAlgebra.LAPACK as LAPACK | 74 | import Numeric.LinearAlgebra.LAPACK as LAPACK |
75 | import Complex | ||
76 | import Numeric.LinearAlgebra.Linear | 75 | import Numeric.LinearAlgebra.Linear |
77 | import Data.List(foldl1') | 76 | import Data.List(foldl1') |
78 | import Data.Array | 77 | import Data.Array |
diff --git a/lib/Numeric/LinearAlgebra/LAPACK.hs b/lib/Numeric/LinearAlgebra/LAPACK.hs index ffa2cb5..30a3d3b 100644 --- a/lib/Numeric/LinearAlgebra/LAPACK.hs +++ b/lib/Numeric/LinearAlgebra/LAPACK.hs | |||
@@ -30,7 +30,6 @@ module Numeric.LinearAlgebra.LAPACK ( | |||
30 | import Data.Packed.Internal hiding (toComplex) | 30 | import Data.Packed.Internal hiding (toComplex) |
31 | import Data.Packed | 31 | import Data.Packed |
32 | import Numeric.GSL.Vector(vectorMapValR, FunCodeSV(Scale)) | 32 | import Numeric.GSL.Vector(vectorMapValR, FunCodeSV(Scale)) |
33 | import Complex | ||
34 | import Foreign | 33 | import Foreign |
35 | import Foreign.C.Types (CInt) | 34 | import Foreign.C.Types (CInt) |
36 | import Control.Monad(when) | 35 | import Control.Monad(when) |
diff --git a/lib/Numeric/LinearAlgebra/Linear.hs b/lib/Numeric/LinearAlgebra/Linear.hs index 0426bb7..699985f 100644 --- a/lib/Numeric/LinearAlgebra/Linear.hs +++ b/lib/Numeric/LinearAlgebra/Linear.hs | |||
@@ -20,7 +20,6 @@ module Numeric.LinearAlgebra.Linear ( | |||
20 | 20 | ||
21 | import Data.Packed | 21 | import Data.Packed |
22 | import Numeric.GSL.Vector | 22 | import Numeric.GSL.Vector |
23 | import Complex | ||
24 | 23 | ||
25 | -- | A generic interface for vectors and matrices to a few element-by-element functions in Numeric.GSL.Vector. | 24 | -- | A generic interface for vectors and matrices to a few element-by-element functions in Numeric.GSL.Vector. |
26 | class (Container c e) => Linear c e where | 25 | class (Container c e) => Linear c e where |
diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs index bf29ee9..e591285 100644 --- a/lib/Numeric/LinearAlgebra/Tests.hs +++ b/lib/Numeric/LinearAlgebra/Tests.hs | |||
@@ -225,7 +225,7 @@ runTests n = do | |||
225 | test (\m -> toRows (m::RM) == read (show (toRows m))) | 225 | test (\m -> toRows (m::RM) == read (show (toRows m))) |
226 | test (\m -> toRows (m::CM) == read (show (toRows m))) | 226 | test (\m -> toRows (m::CM) == read (show (toRows m))) |
227 | putStrLn "------ some unit tests" | 227 | putStrLn "------ some unit tests" |
228 | runTestTT $ TestList | 228 | _ <- runTestTT $ TestList |
229 | [ utest "1E5 rots" rotTest | 229 | [ utest "1E5 rots" rotTest |
230 | , utest "det1" detTest1 | 230 | , utest "det1" detTest1 |
231 | , utest "expm1" (expmTest1) | 231 | , utest "expm1" (expmTest1) |