anchor.diff:  
   //Gets the status of a particular event
   let eventStatus baseUrl eventName = 
  -    let executed = HTTPRequestUpload (baseUrl + "/" + eventName + "/executed") "GET" ""
  -    let included = HTTPRequestUpload (baseUrl + "/" + eventName + "/included") "GET" ""
  -    let pending = HTTPRequestUpload (baseUrl + "/" + eventName + "/pending") "GET" ""
  +    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
  
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: 
  //Returns a list of event names with ' ' as delimiter
  let GetAllEvents baseUrl =
      let eventsResponse = HTTPRequestDownload baseUrl
      if (eventsResponse.IsNone) then
          None
      else
  