Mercurial > urweb

annotate tests/parseInt.ur @ 1640:dc986eb6113c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Order constructors properly in wildification, to avoid spuriously displeasing the new scoping check
author Adam Chlipala <adam@chlipala.net>
date Sun, 18 Dec 2011 12:00:36 -0500
parents 4798ad652c94
children
rev   line source
adam@1630 1 fun main () : transaction page =
adam@1630 2 s <- source "";
adam@1630 3 return <xml><body>
adam@1630 4 <ctextbox source={s}/>
adam@1630 5 <button onclick={n <- get s;
adam@1630 6 case read n of
adam@1630 7 None => alert "Invalid"
adam@1630 8 | Some n => alert (show (n + 1))}/>
adam@1630 9 </body></xml>