blob: 2080bede74e8bc37f6244d2d859e4236e3e0aa1f (
plain) (
blame)
1
2
3
4
5
6
|
(
(let x (Read! world (DataSource '"yt" '"plato") (Key '('table (String '"Input"))) (Void) '('('infer_scheme))))
(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")))
)
|
