diff options
| author | Alberto Ruiz <aruiz@um.es> | 2009-05-09 11:08:40 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2009-05-09 11:08:40 +0000 |
| commit | edabccf9d9564573359ebf795f4ce9cce7b15816 (patch) | |
| tree | e23e04713ff7ecf13cbb09d866989cdbe15c996b /examples/experiments/error.hs | |
| parent | 38d7b765f024b1f1aa42daf8b94050e43383ebec (diff) | |
catching error example
Diffstat (limited to 'examples/experiments/error.hs')
| -rw-r--r-- | examples/experiments/error.hs | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/examples/experiments/error.hs b/examples/experiments/error.hs deleted file mode 100644 index 16305dc..0000000 --- a/examples/experiments/error.hs +++ /dev/null | |||
| @@ -1,16 +0,0 @@ | |||
| 1 | import Numeric.GSL | ||
| 2 | import Prelude hiding (catch) | ||
| 3 | import Control.Exception | ||
| 4 | |||
| 5 | test x = catch | ||
| 6 | (print x) | ||
| 7 | (\e -> putStrLn $ "captured ["++ show e++"]") | ||
| 8 | |||
| 9 | main = do | ||
| 10 | setErrorHandlerOff | ||
| 11 | |||
| 12 | test $ log_e (-1) | ||
| 13 | test $ 5 + (fst.exp_e) 1000 | ||
| 14 | test $ bessel_zero_Jnu_e (-0.3) 2 | ||
| 15 | |||
| 16 | putStrLn "Bye" \ No newline at end of file | ||