summaryrefslogtreecommitdiff
path: root/tests/filter.ur
blob: efd326c33213b9f0e534c9276632928b412c1b56 (plain)
1
2
3
4
5
6
7
8
9
fun filter [fs ::: {Type}] [ks] (t : sql_table fs ks) (p : sql_exp [T = fs] [] [] bool)
   : sql_query [T = fs] [] =
   (SELECT * FROM t WHERE {p})

table t : { A : int, B : float }

fun main () =
    queryX (filter t (WHERE t.A > 3))
           (fn r => <xml>{[r.T.A]}, {[r.T.B]}</xml>)