Mercurial > urweb

comparison tests/filter.ur @ 904:6d9538ce94d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix type class resolution infinite loop, discovered while meeting with Ezra
author Adam Chlipala <adamc@hcoop.net>
date Thu, 06 Aug 2009 15:23:04 -0400
parents
children
comparison
equal deleted inserted replaced
903:63114a2e5075 904:6d9538ce94d8
1 fun filter [fs ::: {Type}] [ks] (t : sql_table fs ks) (p : sql_exp [T = fs] [] [] bool)
2 : sql_query [T = fs] [] =
3 (SELECT * FROM t WHERE {p})
4
5 table t : { A : int, B : float }
6
7 fun main () =
8 queryX (filter t (WHERE t.A > 3))
9 (fn r => <xml>{[r.T.A]}, {[r.T.B]}</xml>)