blob: 921334c2cbd2efdc0d2035269bd5db4543cc28fb (
plain) (
blame)
1
2
3
4
5
6
|
(
(let x (Read! world (DataSource '"yt" '"plato") (Key '('table (String '"Input"))) (Void) '()))
(let result (DataSink 'result))
(let world (Write! (Left! x) result (Key) (FlatMap (Right! x) (lambda '(item) (AsList item))) '('('type) '('autoref))))
(return (Commit! (Commit! world result) (DataSink '"yt" '"plato")))
)
|
