Skip to content

Instantly share code, notes, and snippets.

@robotlolita
Forked from joepie91/map.js
Last active Aug 28, 2015
Embed
What would you like to do?
Bluebird map + bhttp
(* Assume bhttp-get is available here somehow *)
let HTTP = {
def get: url
(* This would actually need to be imported properly. Yeah, FFI sucks, but oh well... *)
Task from-promise: (FFI invoke: bhttp-get in-context: unit with-arguments: [FFI export: url])
}
do {
response <- HTTP get: "http://somesite.com/all-the-urls.txt";
url <- response at: "body" >> as-string >> split: "\n";
HTTP get: url
} recover: { error |
Console log!: error
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment