summaryrefslogtreecommitdiff
path: root/tests/datatypeP2.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-08-31 08:32:18 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-08-31 08:32:18 -0400
commit447b60afccc89ef18d8f92a260dd1fcdf735898e (patch)
tree93d1ffca9832084286525896afc4c17eaf5d23f4 /tests/datatypeP2.ur
parent508290e29047e068b9db4b02485fefd9e3ced81c (diff)
Laconic -> Ur
Diffstat (limited to 'tests/datatypeP2.ur')
-rw-r--r--tests/datatypeP2.ur15
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/datatypeP2.ur b/tests/datatypeP2.ur
new file mode 100644
index 00000000..09cc964a
--- /dev/null
+++ b/tests/datatypeP2.ur
@@ -0,0 +1,15 @@
+datatype sum a b = Left of a | Right of b
+
+val l : sum int string = Left 5
+val r : sum int string = Right "Hi"
+
+val show = fn x : sum int string => case x of Left _ => "Left _" | Right s => s
+
+val page = fn x => <html><body>
+ {cdata (show x)}
+</body></html>
+
+val main : unit -> page = fn () => <html><body>
+ <li><a link={page l}>Left</a></li>
+ <li><a link={page r}>Right</a></li>
+</body></html>