Mercurial > urweb

diff tests/mutual.ur @ 807:61a1f5c5ae2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mutual datatypes through Effectize
author Adam Chlipala <adamc@hcoop.net>
date Sat, 16 May 2009 15:45:12 -0400
parents e2780d2f4afc
children
line wrap: on
line diff
--- a/tests/mutual.ur	Sat May 16 15:22:05 2009 -0400
+++ b/tests/mutual.ur	Sat May 16 15:45:12 2009 -0400
@@ -1,2 +1,10 @@
 datatype foo = A | B of bar
 and bar = C | D of foo
+
+val q = B (D A)
+
+fun main () = return <xml>
+  {case q of
+       B (D A) => <xml>Good</xml>
+     | _ => <xml>Bad</xml>}
+</xml>