diff options
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 | ||