Mercurial > urweb
view tests/sql_if.ur @ 1942:a671e5258a2c
Raise exception when recv()ing from someone else's channel; improve setting of client ID in RPCs
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Fri, 27 Dec 2013 12:10:03 -0500 |
parents | 34364e383bed |
children |
line wrap: on
line source
table t : { A : int, B : int } fun main () = x <- queryX (SELECT * FROM t WHERE IF t.A = 6 THEN t.B < 2 ELSE t.B > 5) (fn r => <xml><li>{[r.T.A]}, {[r.T.B]}</li></xml>); return <xml><body>{x}</body></xml>