Mercurial > urweb

view tests/invurl.ur @ 2258:b1ba35ce2613

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bug where pure caching didn't treat FFI applications as effectful.
author Ziv Scully <ziv@mit.edu>
date Sun, 27 Sep 2015 17:02:14 -0400
parents 3621f486ce72
children
line wrap: on
line source
val r = { F = fn () => return <xml/> }

fun main () : transaction page = return <xml><body>
  <a link={r.F ()}>Go</a>
</body></xml>

fun main' (r' : {F : unit -> transaction page}) : transaction page = return <xml><body>
  <a link={r'.F ()}>Go</a>
</body></xml>