anchor.diff:      
       let GetValueFromQueryString1 key (owin : IOwinContext) = 
           match owin.Request.Query.Get(key) with
  -        | null -> Choice2Of2(Errors.MISSING_FIELD_VALUE
  +        | null -> 
  +            Choice2Of2(Errors.MISSING_FIELD_VALUE
                          |> GenerateOperationMessage
                          |> Append("Parameter", key))
           | value -> Choice1Of2(value)
  -            
  +    
       let GetIntValueFromQueryString key defaultValue (owin : IOwinContext) = 
           match owin.Request.Query.Get(key) with
           | null -> defaultValue
  
positive.code:     let NotFound = HttpStatusCode.NotFound
      let BadRequest = HttpStatusCode.BadRequest
      let Conflict = HttpStatusCode.Conflict
      let CREATED (value : obj) (owin : IOwinContext) = WriteResponse HttpStatusCode.Created value owin
      let ACCEPTED (value : obj) (owin : IOwinContext) = WriteResponse HttpStatusCode.Accepted value owin
      let OK (value : obj) (owin : IOwinContext) = WriteResponse HttpStatusCode.OK value owin
      let BAD_REQUEST (value : obj) (owin : IOwinContext) = WriteResponse HttpStatusCode.BadRequest value owin
      let NOT_FOUND (value : obj) (owin : IOwinContext) = WriteResponse HttpStatusCode.NotFound value owin
      let CONFLICT (value : obj) (owin : IOwinContext) = WriteResponse HttpStatusCode.Conflict value owin
      
      let GetValueFromQueryString key defaultValue (owin : IOwinContext) = 
          match owin.Request.Query.Get(key) with
  
negative.code: open Microsoft.Owin
  open Newtonsoft.Json
  open Newtonsoft.Json.Converters
  open Newtonsoft.Json.Schema
  open ProtoBuf
  open System
  open System.Collections.Concurrent
  