Mercurial > urweb

view tests/treeDyn.ur @ 1866:9fc086e3c95a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add hex SQL syntax for blobs, such as X'0ABC12343'. Works with sqlite.
author Sergey Mironov <grrwlf@gmail.com>
date Fri, 13 Sep 2013 10:09:15 -0400
parents aa2398e58306
children
line wrap: on
line source
table t : {Id : int, Parent : option int}

fun recurse (root : option int) =
    queryX' (SELECT * FROM t WHERE {eqNullable' (SQL t.Parent) root})
            (fn r =>
                children <- recurse (Some r.T.Id);
                (*s <- source False;*)
                return <xml>
                  <dyn signal={(*v <- signal s;
                               if v then*)
                                   return <xml><b>HI</b>{children}<b>BYE</b></xml>
                               (*else
                                   return <xml/>*)}/>
                </xml>)

fun main () =
    x <- recurse None;
    return <xml><body>{x}</body></xml>