blob: c4ac775064aeef391eb9329f57bc0a18f600b0c2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(
(let config (DataSource 'config))
(let world (Configure! world config 'PureDataSource 'yt))
(let list (Just (String 'a)))
(let data (Fold1 list
(lambda '(item) (Concat item (String 'b)))
(lambda '(item state) (Concat item state))))
(let res_sink (DataSink 'result))
(let world (Write! world res_sink
(Key)
data '()))
(let world (Commit! world res_sink))
(return world)
)
|
