anchor.diff:  open System.Threading
   open System.Collections.Generic
   
  -let innerText (exn:Exception) =
  -    match exn.InnerException with
  -    | null -> ""
  -    | exn -> Environment.NewLine + " Details: " + exn.Message
  -
   /// [omit]
   let downloadFromUrl (auth:Auth option, url : string) (filePath: string) =
       async {
  
positive.code:             return! client.DownloadStringTaskAsync (Uri url) |> Async.AwaitTask
          with
          | exn -> 
              return failwithf "Could not retrieve data from %s%s Message: %s%s" url Environment.NewLine exn.Message (innerText exn)
  
      }
  
  
negative.code:         d
      with
      | exn -> 
          raise <| Exception(sprintf "Could not parse '%s' as key/value pairs." s, exn)
  
  let downloadStringSync (url : string) (client : WebClient) = 
      try 
  