diff options
Diffstat (limited to 'stdlib/source/lux/world/db/jdbc/input.jvm.lux')
| -rw-r--r-- | stdlib/source/lux/world/db/jdbc/input.jvm.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/world/db/jdbc/input.jvm.lux b/stdlib/source/lux/world/db/jdbc/input.jvm.lux index d037d4234..ef9db9009 100644 --- a/stdlib/source/lux/world/db/jdbc/input.jvm.lux +++ b/stdlib/source/lux/world/db/jdbc/input.jvm.lux @@ -6,7 +6,7 @@ [data ["." error (#+ Error)] [collection - [list ("list/." Fold<List>)]]] + [list ("list/." fold)]]] [time ["." instant (#+ Instant)]] ["." io (#+ IO)] @@ -57,7 +57,7 @@ (def: #export (and pre post) (All [l r] (-> (Input l) (Input r) (Input [l r]))) (function (_ [left right] context) - (do error.Monad<Error> + (do error.monad [context (pre left context)] (post right context)))) @@ -75,7 +75,7 @@ [(def: #export <function> (Input <type>) (function (_ value [idx statement]) - (do error.Monad<Error> + (do error.monad [_ (<setter> (.int idx) value statement)] (wrap [(.inc idx) statement]))))] @@ -97,7 +97,7 @@ [(def: #export <function> (Input Instant) (function (_ value [idx statement]) - (do error.Monad<Error> + (do error.monad [_ (<setter> (.int idx) (<constructor> (instant.to-millis value)) statement)] |