From ab29ac3337d2be88ae3288652e999873be1dcf14 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 2 Sep 2008 17:31:45 -0400 Subject: Compiling a parametrized query the inefficient way --- tests/pquery.ur | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 tests/pquery.ur (limited to 'tests/pquery.ur') diff --git a/tests/pquery.ur b/tests/pquery.ur new file mode 100644 index 00000000..0ccbc9f2 --- /dev/null +++ b/tests/pquery.ur @@ -0,0 +1,16 @@ +table t1 : {A : int, B : string, C : float} + +fun lookup (inp : {B : string}) = + s <- query (SELECT t1.B FROM t1 WHERE t1.B = {inp.B}) + (fn fs _ => return fs.T1.B) + "Couldn't find it!"; + return + Result: {cdata s} + + +fun main () : transaction page = return + + B: + + + -- cgit v1.2.3