diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-10-10 14:41:03 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-10-10 14:41:03 -0400 |
| commit | 5d51d86b0973fe6996b4b64ec78d9fc810177e02 (patch) | |
| tree | 2e1c023171139b80bf24b4ec2b5a85115973e945 /demo/view.ur | |
| parent | d8bc26c9647d2b45009f6538bc2a69508c983449 (diff) | |
Hopeful fix for the Great Unification Bug
Diffstat (limited to 'demo/view.ur')
| -rw-r--r-- | demo/view.ur | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/demo/view.ur b/demo/view.ur index 84c179f4..0dcb42fa 100644 --- a/demo/view.ur +++ b/demo/view.ur @@ -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> |