Mercurial > urweb

diff tests/urlifyVariant.ur @ 1730:02533f681ad2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix urlification of recursive polymorphic variants
author Adam Chlipala <adam@chlipala.net>
date Sat, 28 Apr 2012 11:35:12 -0400
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/urlifyVariant.ur	Sat Apr 28 11:35:12 2012 -0400
@@ -0,0 +1,5 @@
+datatype t = T of variant [A = t]
+
+fun main (x : t) : transaction page = return <xml><body>
+  <a link={main x}>Go</a>
+</body></xml>