From 58c927541d3960c0bca5636c05e499246d3cecef Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 3 Feb 2011 21:04:12 -0500 Subject: Subqueries may always return NULL --- lib/ur/basis.urs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lib/ur/basis.urs') diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index da703d40..795b4f9a 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -529,9 +529,10 @@ val sql_nullable : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} -> -> sql_exp tables agg exps t -> sql_exp tables agg exps (option t) -val sql_subquery : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} -> nm ::: Name -> t ::: Type +val sql_subquery : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} -> nm ::: Name -> t ::: Type -> nt ::: Type + -> nullify t nt -> sql_query tables agg [] [nm = t] - -> sql_exp tables agg exps t + -> sql_exp tables agg exps nt (*** Executing queries *) -- cgit v1.2.3