Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (def
- m-seq
- (.withMeta
- (clojure.core/fn
- m-seq
- ([table] (m-seq 1000 table))
- ([batch-size table]
- (flatten
- (take-while
- (fn* [p1__5412#] (> (count p1__5412#) 0))
- (map
- (fn
- [offset]
- @(-> table (cql/drop offset) (cql/take batch-size)))
- (iterate (partial + batch-size) 0))))))
- (.meta #'m-seq)))
Add Comment
Please, Sign In to add comment