anchor.diff:      ResultWorkflow.Ok(wfName, (remove_first eventNameList event))
   
   /// Deletes given workflow and returns it if its susesful
  -let delete_workflow (workflow : Workflow) : ResultWorkflow =
  +let delete_workflow (workflow : Workflow) (magic : SendFunc<'a>) (repos : Repository) : ResultWorkflow =
       let wfName, eventNameList = workflow
       let rec deleteEvents eventNameList=
           match eventNameList with
           | h::eventNameList ->
  -            match remove_event workflow h with 
  +            match remove_event workflow h magic repos with  
               |ResultWorkflow.Ok(x) -> 
                   let wfN, eventNList = x
                   deleteEvents eventNList
  
positive.code: 
  open Repository_types
  
  //Create
  
  /// Creates and returns a new workflow from a name
  let create_workflow (workflow : WorkflowName) : ResultWorkflow =
      failwith "Not implemented yed."
      ResultWorkflow.Ok(workflow,[])
  
  //Read
  
  /// Metodes used when finding all executabel event for a user
  let find_executable_with_roles (workflow : Workflow) (roles : Roles) : ExecutableInWorkflow =
  //    let name, eventList = workflow
  //    let rec findEvents
  //        match eventList with
  
negative.code: //Update
  
  /// Adds a given event to a given Workflow and returns the result
  let add_event (wfName : WorkflowName) (event : EventName) (repos : Repository) : ResultWorkflow =
      let events = 
          match repos.workflows.TryFind(wfName) with
          | Some(v) -> v
          | None -> failwith "Noooooo" 
      let (makeEventnames : EventName list) =
          events |> List.map (fun (event) -> (wfName, event))
      ResultWorkflow.Ok(wfName, event::makeEventnames)
      //does this meathod rly add a event to the repos?
  
  //Delete
  
  /// Removes given event form given workflow and returns the result
  let remove_event (workflow : WorkflowName) (event : EventName) (magic : SendFunc<'a>) (repos : Repository) : ResultWorkflow =
      let wfName, eventNameList = workflow
      let rec remove_first eventNameList event =
          match eventNameList with
  