Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (let [ data-ch (chan)
- key->endpoint {:config "http://localhost:8529/_db/_system/dev/shopio/config"
- :products "http://localhost:8529/_db/_system/dev/shopio/products"
- :photos "http://localhost:8529/_db/_system/dev/shopio/photos"}]
- (go
- (doseq [[k endpoint] key->endpoint]
- (println "sending to channel...")
- (put! data-ch endpoint)))
- (go
- (while true
- (let [ep (<! data-ch)]
- (println "recieved:")
- (println ep)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement