Bluebird map + bhttp

map.st

(* 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
}