Mercurial > urweb

view tests/showTime.ur @ 1895:2eabe66daef6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Experimenting with distribution via 'make dist', to allow deletion of autogenerated files from version control
author Adam Chlipala <adam@chlipala.net>
date Thu, 21 Nov 2013 14:53:01 -0500
parents 438561303d02
children
line wrap: on
line source
fun main () : transaction page =
    tm <- now;
    s <- source tm;
    return <xml><body>
      <b>Server:</b> {[tm]}<br/>
      <b>Client:</b> <dyn signal={v <- signal s; return (txt v)}/>
      <button value="Recalculate" onclick={tm <- now; set s tm}/>
    </body></xml>