Mercurial > urweb

comparison tests/invurl.ur @ 1628:3621f486ce72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't crash on invalid URL head terms during Tag
author Adam Chlipala <adam@chlipala.net>
date Sat, 03 Dec 2011 17:25:51 -0500
parents
children
comparison
equal deleted inserted replaced
1627:5c1f10cdac63 1628:3621f486ce72
1 val r = { F = fn () => return <xml/> }
2
3 fun main () : transaction page = return <xml><body>
4 <a link={r.F ()}>Go</a>
5 </body></xml>
6
7 fun main' (r' : {F : unit -> transaction page}) : transaction page = return <xml><body>
8 <a link={r'.F ()}>Go</a>
9 </body></xml>