anchor.diff:      let response = getEvent workflowName event repo
       let (eventState,message,statusCode) = response
       match (eventState) with
  -        | Some(evState) -> (repo,(string)evState.included, statusCode)
  +        | Some(evState) ->
  +            let resp = if evState.included then "true" else "false"
  +            (repo, resp, statusCode)
           | None ->  (repo,"Event could not be received.", statusCode)
   
   // Gets the 'executable' state of an event
  
positive.code:     let response = getEvent workflowName event repo
      let (eventState,message,statusCode) = response
      match (eventState) with
          | Some(evState) -> (repo,(string)evState.executed, statusCode)
          | None ->  (repo,"Event could not be received.", statusCode)
  
  // Gets the 'included' state of an event
  
negative.code:     let response = getEvent workflowName event repo
      let (eventState,message,statusCode) = response
      match (eventState) with
          | Some(evState) ->
              let resp = if evState.pending then "true" else "false"
              (repo, resp, statusCode)
          | None ->  (repo,"Event could not be received.", statusCode)
  
  // Attempts to execute the given event
  