anchor.diff:          Some(w.UploadString(url,verb, value))
       with
           | _ -> None
  -//Get event status
  +
  +//Returns a list of event names with ' ' as delimiter
  +let GetAllEvents baseUrl =
  +    let eventsResponse = HTTPRequestDownload (baseUrl)
  +    if (eventsResponse.IsNone) then
  +        None
  +    else
  +        Some(Split(eventsResponse.Value) ' ')
  +    
  +//Gets the status of a particular event
   let eventStatus baseUrl eventName = 
       let executed = HTTPRequestDownload (baseUrl + "/" + eventName + "/executed")
       let included = HTTPRequestDownload (baseUrl + "/" + eventName + "/included")
  
positive.code: ﻿open System
  type EventStatus = string * string * string
  
  // HTTPREQUEST GET
  let HTTPRequestDownload (url : string) = 
      try
          let port = 8080
  
negative.code:     with
          | _ -> None
          
  // 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 = 
      try
          let port = 8080
  