anchor.diff:                              | Result.MissingRelation -> (repo,"The relation is missing.", 400)
                               | Result.LockConflict -> (repo,"Encountered LockConflict.", 400)
                               | Result.Error(s) -> (repo,s, 400)
  +                            | Result.MissingEvent -> (repo,"Event is missing", 400)
  +                            | Result.MissingWorkflow -> (repo,"Workflow is missing", 400)
           | None -> (repo,"Invalid relation type", 400)
       
   let createWorkflow workflowName repo  : ResourceResponse<Repository> =
  
positive.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.Error(s) -> (repo,s, 400)
  
  // Attempts to create a new event
  
negative.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.MissingEvent -> (repository,"Event is missing", 400)
              | Result.MissingWorkflow -> (repository,"Workflow is missing", 400)
              | Result.Error(s) -> (repository,s, 400)
  
  // Adds a new relation
  