Mercurial > urweb

view tests/jsparse.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 c270fb847dc2
children
line wrap: on
line source
fun main () =
    s <- source "13";
    return <xml><body>
      <ctextbox source={s}/>
      <dyn signal={v <- signal s; return (case read v : option int of
                                              None => <xml>None</xml>
                                            | Some n => <xml>Some {[n]}</xml>)}/>
      </body></xml>