annotate tests/treeDyn.ur @ 2119:5439b35c5d0b

Add 'download' attribute to <a/>, part of HTML5
author Sergey Mironov <grrwlf@gmail.com>
date Sun, 26 Oct 2014 14:07:07 +0000
parents aa2398e58306
children
rev   line source
adam@1457 1 table t : {Id : int, Parent : option int}
adam@1457 2
adam@1457 3 fun recurse (root : option int) =
adam@1457 4 queryX' (SELECT * FROM t WHERE {eqNullable' (SQL t.Parent) root})
adam@1457 5 (fn r =>
adam@1457 6 children <- recurse (Some r.T.Id);
adam@1457 7 (*s <- source False;*)
adam@1457 8 return <xml>
adam@1457 9 <dyn signal={(*v <- signal s;
adam@1457 10 if v then*)
adam@1457 11 return <xml><b>HI</b>{children}<b>BYE</b></xml>
adam@1457 12 (*else
adam@1457 13 return <xml/>*)}/>
adam@1457 14 </xml>)
adam@1457 15
adam@1457 16 fun main () =
adam@1457 17 x <- recurse None;
adam@1457 18 return <xml><body>{x}</body></xml>