comparison tests/urlifyVariant.ur @ 1730:02533f681ad2

Fix urlification of recursive polymorphic variants
author Adam Chlipala <adam@chlipala.net>
date Sat, 28 Apr 2012 11:35:12 -0400
parents
children
comparison
equal deleted inserted replaced
1729:6817ddd6cf1f 1730:02533f681ad2
1 datatype t = T of variant [A = t]
2
3 fun main (x : t) : transaction page = return <xml><body>
4 <a link={main x}>Go</a>
5 </body></xml>