summaryrefslogtreecommitdiff
path: root/demo/view.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-05-28 10:35:25 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-05-28 10:35:25 -0400
commit6a6c98d74f0eb61b52e8adc5385698a224eeccc1 (patch)
treebc9e633b76c75ea47d6cfdb826c549ed7cd4c66a /demo/view.ur
parent3cb644caeed50e5c82778b5ed7c165950655109a (diff)
Demo compiles with pattern-matching-fu
Diffstat (limited to 'demo/view.ur')
-rw-r--r--demo/view.ur2
1 files changed, 1 insertions, 1 deletions
diff --git a/demo/view.ur b/demo/view.ur
index ce1242e0..84c179f4 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 ::: Type) (_ : fieldsOf u [A = int]) (title : string) (x : u) =
+fun list [u] (_ : fieldsOf u [A = int]) (title : string) (x : u) =
xml <- queryX (SELECT * FROM x)
(fn r : {X : {A : int}} => <xml><li>{[r.X.A]}</li></xml>);
return <xml>