Mercurial > urweb

view tests/timestamp.ur @ 2063:83bdb52962c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Check realloc's return code to prevent segfault on out of memoty condition
author Sergey Mironov <grrwlf@gmail.com>
date Sat, 23 Aug 2014 11:59:34 +0000
parents 690638bd9fef
children
line wrap: on
line source
table t : { A : time }

fun many ls =
    case ls of
        [] => (WHERE TRUE)
      | tm :: ls' => (WHERE t.A = {[tm]} AND {many ls'})

task initialize = fn () =>
                     tm <- now;
                     dml (DELETE FROM t WHERE {many (tm :: [])})