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/Tests.hs | |
parent | ed8f45f7316569bfeacdd2848017d93c5cfdd261 (diff) |
fix ghc-6.12 warnings
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests.hs')
-rw-r--r-- | lib/Numeric/LinearAlgebra/Tests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |