anchor.diff:  let role = "Client"
   
   // HTTPREQUEST with a given httpverb that returns an option of None on error and a response string on success
  -let HTTPRequestUpload (url : string) verb value = 
  +let HTTPRequestUpload (url : string) verb = 
       try
           use w = new System.Net.WebClient () 
  -        Some(w.UploadString(url,verb, (role + "," + value)))
  +        Some(w.UploadString(url+"?role="+role,verb, "true"))
       with
           | _ -> None
  -        
  +
  +// HTTPREQUEST GET returns an option of None on error and a response string on success
  +let HTTPRequestDownload (url : string) = 
  +    try
  +        use w = new System.Net.WebClient () 
  +        Some(w.DownloadString(url+"?role="+role))
  +    with
  +        | _ -> None
  +          
   //Converts a list of eventnames to a list of the EventStatus type
   let rec stringListToEventStatus eventsList =
       match (eventsList) with
  
positive.code:              printfn "Downloading the list of events..."
               let eventsResponse = GetAllEvents baseUrl
               if (eventsResponse.IsNone) then
                  printfn "Program failed to get a list of events. Connection may be at fault."   
               if (eventsResponse.IsSome) then
                  printfn "%s downloaded." (eventsResponse.Value.Length.ToString())
               mainLoop baseUrl eventsResponse.Value
      | "2" -> //Connect an event
               printfn "Please provide event name:"
               let eventName = Console.ReadLine()
  
negative.code: 
  //Gets the status of a particular event
  let eventStatus baseUrl eventName = 
      let executed = HTTPRequestDownload (baseUrl + "/" + eventName + "/executed")
      let included = HTTPRequestDownload (baseUrl + "/" + eventName + "/included")
      let pending = HTTPRequestDownload (baseUrl + "/" + eventName + "/pending")
      if (executed.IsNone || included.IsNone || pending.IsNone) then
          None
      else
  