anchor.diff:              | Result.NotExecutable -> (repository,"The event is not executable.", 400)
               | Result.MissingRelation -> (repository,"The relation is missing.", 400)
               | Result.LockConflict -> (repository,"Encountered LockConflict.", 400)
  +            | Result.MissingEvent -> (repository,"Event is missing", 400)
  +            | Result.MissingWorkflow -> (repository,"Workflow is missing", 400)
               | Result.Error(s) -> (repository,s, 400)
   
   let createEvent eventName workflowName attribute (repository : Repository) : ResourceResponse<Repository> =
  
positive.code:             | Result.NotExecutable -> (repository,"The event is not executable.", 400)
              | Result.MissingRelation -> (repository,"The relation is missing.", 400)
              | Result.LockConflict -> (repository,"Encountered LockConflict.", 400)
              | Result.Error(s) -> (repository,s, 400)
  
  // Adds a new relation
  
negative.code:             | Result.NotExecutable -> (repo,"The event is not executable.", 400)
              | Result.MissingRelation -> (repo,"The relation is missing.", 400)
              | Result.LockConflict -> (repo,"Encountered LockConflict.", 400)
              | Result.MissingEvent -> (repo,"Event is missing", 400)
              | Result.MissingWorkflow -> (repo,"Workflow is missing", 400)
              | Result.Error(s) -> (repo,s, 400)
  
  // Attempts to create a new event
  