From 447b60afccc89ef18d8f92a260dd1fcdf735898e Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 31 Aug 2008 08:32:18 -0400 Subject: Laconic -> Ur --- tests/datatypeP2.ur | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 tests/datatypeP2.ur (limited to 'tests/datatypeP2.ur') 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 => + {cdata (show x)} + + +val main : unit -> page = fn () => +

+ -- cgit v1.2.3