diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-08-31 16:20:34 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-31 16:20:34 -0400 |
| commit | e63d9fdd9bc5c0316f3467fa762e27f5e482ed75 (patch) | |
| tree | df3d873a9858c1d1e36fb8cea7d5d1b58c04772b /tests/agg.ur | |
| parent | 9a3af2ced0937e9578595053f730cb1b11cca6e5 (diff) | |
Monoize COUNT(*)
Diffstat (limited to 'tests/agg.ur')
| -rw-r--r-- | tests/agg.ur | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/agg.ur b/tests/agg.ur index 8aa72e6c..dc7c0341 100644 --- a/tests/agg.ur +++ b/tests/agg.ur @@ -8,3 +8,15 @@ val q4 = (SELECT MIN(t1.B) AS X, MAX(t1.A) AS Y FROM t1) (*val q5 = (SELECT t1.A FROM t1 GROUP BY t1.B)*) val q5 = (SELECT SUM(t1.A) AS X FROM t1 GROUP BY t1.B) + + +datatype list a = Nil | Cons of a * list a + +val r1 : transaction (list int) = + query q1 + (fn fs acc => return (Cons (fs.X, acc))) + Nil + +val main : unit -> transaction page = fn () => + n <- r1; + return <html><body>Nothing to see here!</body></html> |