catching error example

1 files changed, 5 insertions, 1 deletions

diff --git a/examples/experiments/error.hs b/examples/error.hs
index 16305dc..f13a48e 100644
--- a/examples/experiments/error.hs
+++ b/examples/error.hs
@@ -1,10 +1,11 @@
 import Numeric.GSL
+import Numeric.LinearAlgebra
 import Prelude hiding (catch)
 import Control.Exception
 
 test x = catch
        (print x)
-       (\e -> putStrLn $ "captured ["++ show e++"]")
+       (\e -> putStrLn $ "captured ["++ show (e :: SomeException) ++"]")
 
 main = do
     setErrorHandlerOff
@@ -13,4 +14,7 @@ main = do
     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