view tests/urlifyVariant.ur @ 1979:81bc76aa4acd

Merge in upstream changes.
author Patrick Hurst <phurst@mit.edu>
date Sat, 18 Jan 2014 18:26:24 -0500
parents 02533f681ad2
children
line wrap: on
line source
datatype t = T of variant [A = t]

fun main (x : t) : transaction page = return <xml><body>
  <a link={main x}>Go</a>
</body></xml>