let get_file ?pwd file =
  match pwd with
    | Some pwd ->
      if Http.is_url pwd && not (Http.is_url file) then
        pwd ^ file
      else
        let f = Filename.concat pwd file in
        if Sys.file_exists f then f else file
    | None -> file