CDE

Task/Exceptions/Haskell/exceptions-1.hs

@@ -0,0 +1,2 @@
+do {- ... -}
+   throwIO SomeException

Task/Exceptions/Haskell/exceptions-2.hs

@@ -0,0 +1,2 @@
+if condition then 3
+else throw SomeException

Task/Exceptions/Haskell/exceptions-3.hs

@@ -0,0 +1,2 @@
+if condition then 3
+else throwDyn myException

Task/Exceptions/Haskell/exceptions-4.hs

@@ -0,0 +1,4 @@
+do
+  {- do IO computations here -}
+`catch` \ex -> do
+  {- handle exception "ex" here -}

Task/Exceptions/Haskell/exceptions-5.hs

@@ -0,0 +1,4 @@
+do
+  {- do IO computations here -}
+`catchDyn` \ex -> do
+  {- handle exception "ex" here -}

Task/Exceptions/Haskell/exceptions-6.hs

@@ -0,0 +1,17 @@
+import Exceptions
+
+procedure main(A)
+    every i := !A do {
+        case Try().call{ write(g(i)) } of {
+            Try().catch(): {
+                x := Try().getException()
+                write(x.getMessage(), ":\n", x.getLocation())
+                }
+            }
+        }
+end
+
+procedure g(i)
+    if numeric(i) = 3 then Exception().throw("bad value of "||i)
+    return i
+end