Mercurial > urweb
comparison demo/view.ur @ 823:669ac5e9a69e
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> |