Mercurial > urweb
diff demo/view.ur @ 1303:c7b9a33c26c8
Hopeful fix for the Great Unification Bug
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sun, 10 Oct 2010 14:41:03 -0400 |
| parents | 669ac5e9a69e |
| children |
line wrap: on
line diff
--- a/demo/view.ur Sun Oct 10 13:07:38 2010 -0400 +++ b/demo/view.ur Sun Oct 10 14:41:03 2010 -0400 @@ -1,7 +1,7 @@ table t : { A : int } view v = SELECT t.A AS A FROM t WHERE t.A > 7 -fun list [u] (_ : fieldsOf u [A = int]) (title : string) (x : u) = +fun list [u] (_ : fieldsOf u [A = int]) (title : string) (x : u) : transaction xbody = xml <- queryX (SELECT * FROM x) (fn r : {X : {A : int}} => <xml><li>{[r.X.A]}</li></xml>); return <xml>