anchor.diff:      let workflow, name = eventName
   
       //Det skal lige chekkes om workflow'et ekesitire
  -    Ok(update_inner_map workflow (fun x -> Map.add name (false, n) x) repository)
  +    update_inner_map workflow (fun x -> MapOk(Map.add name (false, n) x)) repository
   
   /// Return name and state of given event
   let get_event_state (eventName : EventName) (repository : Repository) : (string*EventState) =
  
positive.code:         true ) event.fromRelations
  
      let workflow, name = eventName
      let inner (x : Map<string, bool*Event>) = 
          match Map.tryFind name x with
              | Some(_) ->
                  Map.remove name x
              | None -> failwith "Missing Event"
  
      Ok(update_inner_map workflow inner repository)
  
  /// Removes given roles form given event and returns the result
  let remove_event_roles (eventName : EventName) (roles : Roles) (repository : Repository) : Result =
      let inner (event : Event) : Event =
          {event with roles = Set.fold (fun x y -> x.Remove y) event.roles roles}
      Ok(update_inner_event eventName inner repository)
  
  
negative.code: 
      let workflow, name = eventName
      let event = get_event eventName repository
      let inner (x : Map<string, bool*Event>) : UpdateMapResult = 
          match Map.tryFind name x with
              | Some(x') ->
                  let lock, event = x'
                  MapOk(Map.add name (lock, {event with executed = true; pending = false}) x)
              | None -> MapErr(MissingEvent)
      
      if not event.included
      then NotExecutable
  