module VCR::LibraryHooks::Typhoeus

def collect_chunks(request)
  chunks = ''
  request.on_body.unshift(
    Proc.new do |body, response|
      chunks += body
      request.instance_variable_set(:@chunked_body, chunks)
    end
  )
end

def restore_body_from_chunks(response, request)
  response.options[:response_body] = request.instance_variable_get(:@chunked_body)
end

def vcr_response_from(response)
  VCR::Response.new \
    VCR::ResponseStatus.new(response.code, response.status_message),
    response.headers,
    response.body,
    response.http_version,
    { "effective_url" => response.effective_url }
end