diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-12-13 14:34:18 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-12-13 14:34:18 -0500 |
| commit | 1589307fcb887ec55b5baea7445747b479a665d2 (patch) | |
| tree | d0e80d87e37b478abae9baf9012b125900f0557f /lib/ur/top.ur | |
| parent | b225596addee1a3cfd6c3189cff923e7f0e8f7c9 (diff) | |
Fixing a bug in DInitializer elaboration
Diffstat (limited to 'lib/ur/top.ur')
| -rw-r--r-- | lib/ur/top.ur | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/ur/top.ur b/lib/ur/top.ur index 8b737179..78a799b1 100644 --- a/lib/ur/top.ur +++ b/lib/ur/top.ur @@ -271,6 +271,9 @@ fun oneRowE1 [tabs ::: {Unit}] [nm ::: Name] [t ::: Type] [tabs ~ [nm]] (q : sql None => error <xml>Query returned no rows</xml> | Some r => r.nm) +fun nonempty [fs] [us] (t : sql_table fs us) = + oneRowE1 (SELECT COUNT( * ) > 0 AS B FROM t) + fun eqNullable [tables ::: {{Type}}] [agg ::: {{Type}}] [exps ::: {Type}] [t ::: Type] (_ : sql_injectable (option t)) (e1 : sql_exp tables agg exps (option t)) |