summaryrefslogtreecommitdiff
path: root/demo/batchFun.ur
diff options
context:
space:
mode:
Diffstat (limited to 'demo/batchFun.ur')
-rw-r--r--demo/batchFun.ur2
1 files changed, 1 insertions, 1 deletions
diff --git a/demo/batchFun.ur b/demo/batchFun.ur
index d69d68af..69a68423 100644
--- a/demo/batchFun.ur
+++ b/demo/batchFun.ur
@@ -46,7 +46,7 @@ functor Make(M : sig
fun add r =
dml (insert t
(@foldR2 [fst] [colMeta]
- [fn cols => $(map (fn t => sql_exp [] [] [] t.1) cols)]
+ [fn cols => $(map (fn t => sql_exp [] [] [] disallow_window t.1) cols)]
(fn [nm :: Name] [t ::_] [rest ::_] [[nm] ~ rest] input col acc =>
acc ++ {nm = @sql_inject col.Inject input})
{} M.fl (r -- #Id) M.cols