diff options
Diffstat (limited to 'lib/basis.urs')
-rw-r--r-- | lib/basis.urs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/basis.urs b/lib/basis.urs index 421a07bc..7435e716 100644 --- a/lib/basis.urs +++ b/lib/basis.urs @@ -156,8 +156,8 @@ val bind : t1 ::: Type -> t2 ::: Type -> transaction t2 val query : tables ::: {{Type}} -> exps ::: {Type} -> tables ~ exps - -> sql_query tables exps -> state ::: Type + -> sql_query tables exps -> ($(exps ++ fold (fn nm (fields :: {Type}) acc => [nm] ~ acc => [nm = $fields] ++ acc) [] tables) -> state -> transaction state) |