anchor.diff:          | Some(v) -> true
           | None -> false
   
  -/// Metodes used when finding all executabel event for a user
  -let find_executable_with_roles (workflow : Workflow) (roles : Roles) (magic : SendFunc<'a>) (repos : Repository) : ExecutableInWorkflow =
  -//    let name, eventList = workflow
  -//    let rec findEvents
  -//        match eventList with
  -//        | [] -> []
  -
  -//recursive find the events and :: them together and return them?
  -    failwith "Not implemented yed."
  +/// Metodes used when finding all executabel event for a user   SHOULD NOT BE IMPLEMENTED
  +//let find_executable_with_roles (workflow : Workflow) (roles : Roles) (magic : SendFunc<'a>) (repos : Repository) : ExecutableInWorkflow =
  +//    failwith "Not implemented yed."
   
   //Update
   
  
positive.code:         | Some(v) -> v
          | None -> failwith "Workflow Does not exist" 
      Result.Ok({repos with workflows = Map.add wfName (event::events) repos.workflows})
      //add to event. Event is not a list?
  
  //Delete
  
  
negative.code:                 deleteEvents events
              | _ -> []
          | _ -> []
      Result.Ok({repos with workflows = Map.remove wfName repos.workflows})