From d43dc372d0dbc90031696d8503c05654e6605f84 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 31 Aug 2008 14:27:01 -0400 Subject: Monoized a WHERE clause with a comparison --- tests/query.ur | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'tests/query.ur') diff --git a/tests/query.ur b/tests/query.ur index 91c0cee3..afe5fab8 100644 --- a/tests/query.ur +++ b/tests/query.ur @@ -1,10 +1,12 @@ -table t1 : {A : int, B : string, C : float} +table t1 : {A : int, B : string, C : float, D : bool} table t2 : {A : float, D : int} datatype list a = Nil | Cons of a * list a -val q1 = (SELECT * FROM t1) -val r1 : transaction (list {A : int, B : string, C : float}) = +(*val q1 = (SELECT * FROM t1)*) +val q1 = (SELECT * FROM t1 WHERE t1.A = 0) + +val r1 : transaction (list {A : int, B : string, C : float, D : bool}) = query q1 (fn fs acc => return (Cons (fs.T1, acc))) Nil -- cgit v1.2.3