catching error example

1 files changed, 20 insertions, 0 deletions

diff --git a/examples/error.hs b/examples/error.hs
new file mode 100644
index 0000000..f13a48e
--- /dev/null
+++ b/examples/error.hs
@@ -0,0 +1,20 @@
+import Numeric.GSL
+import Numeric.LinearAlgebra
+import Prelude hiding (catch)
+import Control.Exception
+
+test x = catch
+       (print x)
+       (\e -> putStrLn $ "captured ["++ show (e :: SomeException) ++"]")
+
+main = do
+    setErrorHandlerOff
+
+    test $ log_e (-1)
+    test $ 5 + (fst.exp_e) 1000
+    test $ bessel_zero_Jnu_e (-0.3) 2
+
+    test $ (linearSolve 0 4 :: Matrix Double)
+    test $ (linearSolve 5 (sqrt (-1)) :: Matrix Double)
+
+    putStrLn "Bye"
\ No newline at end of file