diff options
Diffstat (limited to 'lib/ur/top.urs')
-rw-r--r-- | lib/ur/top.urs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/ur/top.urs b/lib/ur/top.urs index 6470d7d7..2b6248fc 100644 --- a/lib/ur/top.urs +++ b/lib/ur/top.urs @@ -163,9 +163,9 @@ val oneRow : tables ::: {{Type}} -> exps ::: {Type} $(exps ++ map (fn fields :: {Type} => $fields) tables) -val oneRowE1 : tab ::: Name -> nm ::: Name -> t ::: Type - -> [[tab] ~ [nm]] => - sql_query [tab = []] [nm = t] +val oneRowE1 : tabs ::: {Unit} -> nm ::: Name -> t ::: Type + -> [tabs ~ [nm]] => + sql_query (mapU [] tabs) [nm = t] -> transaction t val eqNullable : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} |