From 2abed5bc95fa69a49d955e0b115d0db874f53a3a Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Tue, 7 Sep 2010 08:28:07 -0400
Subject: Server-side 'onError'

---
 tests/onerror.ur | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 tests/onerror.ur

(limited to 'tests/onerror.ur')

diff --git a/tests/onerror.ur b/tests/onerror.ur
new file mode 100644
index 00000000..9877d8d7
--- /dev/null
+++ b/tests/onerror.ur
@@ -0,0 +1,4 @@
+fun main n =
+  case n of
+      0 => error <xml>Zero is bad!</xml>
+    | _ => return <xml/>
-- 
cgit v1.2.3