anchor.diff:      if (executed.IsNone || included.IsNone || pending.IsNone) then
           None
       else
  -        Some((executed.Value,included.Value,pending.Value) : EventStatus)
  +        Some((Convert.ToBoolean(executed.Value),Convert.ToBoolean(included.Value),Convert.ToBoolean(pending.Value)) : EventStatus)
   
   //Writes the status of each event to the console and returns a list containing only the events that was responsive.
   let rec getStatusAndRemovefaulty events baseUrl = 
  
positive.code:                     let (executed,included,pended) = eventStatusResponse.Value
                      //Write out status:
                      printfn "Event status:"
                      printfn "IsExecuted: %s" executed
                      printfn "IsIncluded: %s" included
                      printfn "IsPending: %s" pended
                      printfn "Actions:"
                      printfn "1 -> Execute"
                      printfn "2 -> Include"
  
negative.code:              let eventsResponse = GetAllEvents baseUrl
               if (eventsResponse.IsNone) then
                  printfn "Program failed to get a list of events. Connection may be at fault."   
                  printfn "%s downloaded." (eventsResponse.Value.Length.ToString())
               mainLoop baseUrl eventsResponse.Value
      | "2" -> //Connect an event
               printfn "Please provide event name:"
               let eventName = Console.ReadLine()
  