summaryrefslogtreecommitdiff
path: root/tests/agg.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-08-31 16:26:50 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-08-31 16:26:50 -0400
commitddb4c1fe285a26cc46c59e6269ecac1f26c687a6 (patch)
treea16c831c3294421918ed57f105c049597e2159ac /tests/agg.ur
parente63d9fdd9bc5c0316f3467fa762e27f5e482ed75 (diff)
Monoize aggregates
Diffstat (limited to 'tests/agg.ur')
-rw-r--r--tests/agg.ur4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/agg.ur b/tests/agg.ur
index dc7c0341..7e091060 100644
--- a/tests/agg.ur
+++ b/tests/agg.ur
@@ -12,8 +12,8 @@ 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
+val r1 : transaction (list string) =
+ query q4
(fn fs acc => return (Cons (fs.X, acc)))
Nil