Mercurial > urweb

view tests/parseInt.ur @ 1651:dfc854e478bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Error messages about applying 'dynClass' to tags that don't like it
author Adam Chlipala <adam@chlipala.net>
date Sat, 31 Dec 2011 13:31:00 -0500
parents 4798ad652c94
children
line wrap: on
line source
fun main () : transaction page =
    s <- source "";
    return <xml><body>
      <ctextbox source={s}/>
      <button onclick={n <- get s;
                       case read n of
                           None => alert "Invalid"
                         | Some n => alert (show (n + 1))}/>
    </body></xml>