diff options
author | 2009-10-20 11:05:58 -0400 | |
---|---|---|
committer | 2009-10-20 11:05:58 -0400 | |
commit | e23f4d764bc93640cb08a7d6ebd7e261fac2cb05 (patch) | |
tree | d11bc3451bff30a58f66c2d1dbb41852526a308f /lib/ur/top.urs | |
parent | 66fa98fe9619afa56b10f1357edb617dc813051c (diff) |
Registering for Conference1
Diffstat (limited to 'lib/ur/top.urs')
-rw-r--r-- | lib/ur/top.urs | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/ur/top.urs b/lib/ur/top.urs index ef907760..82090dd2 100644 --- a/lib/ur/top.urs +++ b/lib/ur/top.urs @@ -147,13 +147,22 @@ val oneOrNoRows : tables ::: {{Type}} -> exps ::: {Type} $(exps ++ map (fn fields :: {Type} => $fields) tables)) +val oneOrNoRows1 : nm ::: Name -> fs ::: {Type} + -> sql_query [nm = fs] [] + -> transaction (option $fs) + val oneRow : tables ::: {{Type}} -> exps ::: {Type} -> [tables ~ exps] => sql_query tables exps -> transaction $(exps ++ map (fn fields :: {Type} => $fields) tables) - + +val oneRowE1 : tab ::: Name -> nm ::: Name -> t ::: Type + -> [[tab] ~ [nm]] => + sql_query [tab = []] [nm = t] + -> transaction t + val eqNullable : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} -> t ::: Type -> sql_injectable (option t) -> sql_exp tables agg exps (option t) |