diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-12-22 12:13:23 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-12-22 12:13:23 -0500 |
| commit | 1399d287e92c4d6a76564cdb2d14e226629de60d (patch) | |
| tree | 2f9b8a343d9b384b5f9996d02c555e597693f2ea /lib/ur/top.urs | |
| parent | a16e550a2284ab7485429afae24f20032e5bac17 (diff) | |
Basis.sql_nullable and Top.queryL
Diffstat (limited to 'lib/ur/top.urs')
| -rw-r--r-- | lib/ur/top.urs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/ur/top.urs b/lib/ur/top.urs index 92fb9edd..11547ace 100644 --- a/lib/ur/top.urs +++ b/lib/ur/top.urs @@ -118,6 +118,11 @@ val foldRX3 : K --> tf1 :: (K -> Type) -> tf2 :: (K -> Type) -> tf3 :: (K -> Typ -> r :: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r) -> $(map tf3 r) -> xml ctx [] [] +val queryL : tables ::: {{Type}} -> exps ::: {Type} + -> [tables ~ exps] => + sql_query tables exps + -> transaction (list $(exps ++ map (fn fields :: {Type} => $fields) tables)) + val queryI : tables ::: {{Type}} -> exps ::: {Type} -> [tables ~ exps] => sql_query tables exps |