diff options
author | Adam Chlipala <adam@chlipala.net> | 2010-12-24 16:41:10 -0500 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2010-12-24 16:41:10 -0500 |
commit | 466c2aa7a9c1f5bba2ad8630d55e2c2989216091 (patch) | |
tree | b5dcda955d15cd13ca71e4fc21251701d03a0c9a /lib/ur/top.ur | |
parent | f597f5df711397ca65af11eb61acacbfc3d61027 (diff) |
Top.queryI1; fix definition of uw_Basis_minTime
Diffstat (limited to 'lib/ur/top.ur')
-rw-r--r-- | lib/ur/top.ur | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/ur/top.ur b/lib/ur/top.ur index 19259e92..83d5b6af 100644 --- a/lib/ur/top.ur +++ b/lib/ur/top.ur @@ -241,6 +241,12 @@ fun queryI [tables ::: {{Type}}] [exps ::: {Type}] (fn fs _ => f fs) () +fun queryI1 [nm ::: Name] [fs ::: {Type}] (q : sql_query [] [nm = fs] []) + (f : $fs -> transaction unit) = + query q + (fn fs _ => f fs.nm) + () + fun queryX [tables ::: {{Type}}] [exps ::: {Type}] [ctx ::: {Unit}] [inp ::: {Type}] [tables ~ exps] (q : sql_query [] tables exps) (f : $(exps ++ map (fn fields :: {Type} => $fields) tables) |