Mercurial > urweb

view tests/sqliteTime.ur @ 2237:e79ef5792c8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bug in redundancy checking and use finer formula for UPDATE statements.
author Ziv Scully <ziv@mit.edu>
date Sun, 05 Jul 2015 23:57:28 -0700
parents 703c2c94afd5
children
line wrap: on
line source
table dates : { Date : time }

fun aform () =
    let
        val a : time = readError "01/02/03 04:06:07"
    in
        dml(INSERT INTO dates (Date) VALUES ({[a]}));
        ds <- queryX (SELECT * FROM dates)
                     (fn r => <xml>{[r.Dates.Date]}<br/></xml>);
        return <xml><body>{ds}</body></xml>
    end

fun main () =
  return <xml><body><form><submit action={aform}/></form></body></xml>