diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-10-04 14:16:57 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-10-04 14:16:57 +0200 |
commit | 0500032a1d954058b94cf9a0fa2a662e5666a526 (patch) | |
tree | dad39582ff940d2043acf6042470ee63898c3185 /examples/error.hs | |
parent | 04ec1d6b547d6c48506d66298f7d09f7de22c96e (diff) |
update examples
Diffstat (limited to 'examples/error.hs')
-rw-r--r-- | examples/error.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/examples/error.hs b/examples/error.hs index 5efae7c..77467df 100644 --- a/examples/error.hs +++ b/examples/error.hs | |||
@@ -8,6 +8,7 @@ test x = catch | |||
8 | (print x) | 8 | (print x) |
9 | (\e -> putStrLn $ "captured ["++ show (e :: SomeException) ++"]") | 9 | (\e -> putStrLn $ "captured ["++ show (e :: SomeException) ++"]") |
10 | 10 | ||
11 | |||
11 | main = do | 12 | main = do |
12 | setErrorHandlerOff | 13 | setErrorHandlerOff |
13 | 14 | ||
@@ -15,7 +16,8 @@ main = do | |||
15 | test $ 5 + (fst.exp_e) 1000 | 16 | test $ 5 + (fst.exp_e) 1000 |
16 | test $ bessel_zero_Jnu_e (-0.3) 2 | 17 | test $ bessel_zero_Jnu_e (-0.3) 2 |
17 | 18 | ||
18 | test $ (linearSolve 0 4 :: Matrix Double) | 19 | test $ (inv 0 :: Matrix Double) |
19 | test $ (linearSolve 5 (sqrt (-1)) :: Matrix Double) | 20 | test $ (linearSolveLS 5 (sqrt (-1)) :: Matrix Double) |
21 | |||
22 | putStrLn "Bye" | ||
20 | 23 | ||
21 | putStrLn "Bye" \ No newline at end of file | ||