anchor.diff:  //    let rec findEvents
   //        match eventList with
   //        | [] -> []
  -    
  +
   //recursive find the events and :: them together and return them?
       failwith "Not implemented yed."
   
  
positive.code: /// Removes given event form given workflow and returns the result
  let remove_event (workflow : Workflow) (event : EventName) : ResultWorkflow =
      let wfName, eventNameList = workflow
      let rec remove_first event eventNameList =
        match eventNameList with
         | h::eventNameList when event = h-> eventNameList
         | h::eventNameList -> h::remove_first event eventNameList
         | _ -> []
      ResultWorkflow.Ok(wfName, (remove_first event eventNameList))
  
      
  /// Deletes given workflow and returns it if its susesful
  let delete_workflow (workflow : Workflow) : ResultWorkflow =
      let wfName, eventNameList = workflow
      let rec deleteEvents eventNameList =
          match eventNameList with
          | h::eventNameList -> deleteEvents(remove_event(h))
          | _ -> []
      let deleteWfName wfName = ""
      ResultWorkflow.Ok((deleteWfName wfName), (deleteEvents eventNameList))
  
  //make a copy of the workflow. Might not be necessary.
  //go recursive though all the events in the workflow calling remove_event, afterwards return the workflow.
  
negative.code: 
  /// Adds a given event to a given Workflow and returns the result
  let add_event (workflow : Workflow) (event : EventName) : ResultWorkflow =
      failwith "Not implemented yed."
      let wfName, eventNameList = workflow
      ResultWorkflow.Ok(wfName, event::eventNameList)
  
  