Mercurial > urweb

comparison demo/view.ur @ 823:669ac5e9a69e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Demo compiles with pattern-matching-fu
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 May 2009 10:35:25 -0400
parents 7b47fc964a0f
children c7b9a33c26c8
comparison
equal deleted inserted replaced
822:d4e811beb8eb 823:669ac5e9a69e
1 table t : { A : int } 1 table t : { A : int }
2 view v = SELECT t.A AS A FROM t WHERE t.A > 7 2 view v = SELECT t.A AS A FROM t WHERE t.A > 7
3 3
4 fun list (u ::: Type) (_ : fieldsOf u [A = int]) (title : string) (x : u) = 4 fun list [u] (_ : fieldsOf u [A = int]) (title : string) (x : u) =
5 xml <- queryX (SELECT * FROM x) 5 xml <- queryX (SELECT * FROM x)
6 (fn r : {X : {A : int}} => <xml><li>{[r.X.A]}</li></xml>); 6 (fn r : {X : {A : int}} => <xml><li>{[r.X.A]}</li></xml>);
7 return <xml> 7 return <xml>
8 <h2>{[title]}</h2> 8 <h2>{[title]}</h2>
9 <ul>{xml}</ul> 9 <ul>{xml}</ul>