Mercurial > urweb

view tests/stringToTime.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 252e05bf199d
children
line wrap: on
line source
fun main () : transaction page =
    s <- source "";
    return <xml><body>
      <ctextbox source={s}/>
      <button onclick={v <- get s; alert (show (readError v : time))}/>
      <button onclick={v <- get s; case read v : option time of
                                       None => alert "Invalid"
                                     | Some tm => alert (show tm)}/>
    </body></xml>