add examples

1 files changed, 16 insertions, 0 deletions

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