anchor.diff:              do! task
           with
           | exn ->
  -            failwithf "Could not download from %s%s Message: %s%s" url Environment.NewLine exn.Message (innerText exn)
  +            raise <| Exception(sprintf "Could not download from '%s'" url, exn)
       }
   
   /// [omit]
  
positive.code:         d
      with
      | exn -> 
          failwithf "Could not parse %s as key/value pairs.%s%s" s Environment.NewLine exn.Message
  
  let downloadStringSync (url : string) (client : WebClient) = 
      try 
  
negative.code:             return! client.DownloadStringTaskAsync (Uri url) |> Async.AwaitTask
          with
          | exn -> 
              return raise <| Exception(sprintf "Could not retrieve data from '%s'" url, exn)
  
      }
  
  