summaryrefslogtreecommitdiff
path: root/lib/Numeric/LinearAlgebra
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2009-12-22 09:04:12 +0000
committerAlberto Ruiz <aruiz@um.es>2009-12-22 09:04:12 +0000
commit107478b2288b0904159599be94089230c7cd3edf (patch)
tree14834baa61a038efe0e81ed00d45071ba47f2789 /lib/Numeric/LinearAlgebra
parented8f45f7316569bfeacdd2848017d93c5cfdd261 (diff)
fix ghc-6.12 warnings
Diffstat (limited to 'lib/Numeric/LinearAlgebra')
-rw-r--r--lib/Numeric/LinearAlgebra/Algorithms.hs1
-rw-r--r--lib/Numeric/LinearAlgebra/LAPACK.hs1
-rw-r--r--lib/Numeric/LinearAlgebra/Linear.hs1
-rw-r--r--lib/Numeric/LinearAlgebra/Tests.hs2
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, (//))
72import Data.Packed 72import Data.Packed
73import Numeric.GSL.Vector 73import Numeric.GSL.Vector
74import Numeric.LinearAlgebra.LAPACK as LAPACK 74import Numeric.LinearAlgebra.LAPACK as LAPACK
75import Complex
76import Numeric.LinearAlgebra.Linear 75import Numeric.LinearAlgebra.Linear
77import Data.List(foldl1') 76import Data.List(foldl1')
78import Data.Array 77import 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 (
30import Data.Packed.Internal hiding (toComplex) 30import Data.Packed.Internal hiding (toComplex)
31import Data.Packed 31import Data.Packed
32import Numeric.GSL.Vector(vectorMapValR, FunCodeSV(Scale)) 32import Numeric.GSL.Vector(vectorMapValR, FunCodeSV(Scale))
33import Complex
34import Foreign 33import Foreign
35import Foreign.C.Types (CInt) 34import Foreign.C.Types (CInt)
36import Control.Monad(when) 35import 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
21import Data.Packed 21import Data.Packed
22import Numeric.GSL.Vector 22import Numeric.GSL.Vector
23import 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.
26class (Container c e) => Linear c e where 25class (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)