anchor.diff:              match response with
               | Choice1Of2(r) -> owinContext |> this.SerializeSuccess r successStatus
               | Choice2Of2(r) -> owinContext |> this.SerializeFailure r failureStatus
  -        
  -        member __.SetDefaults(value : 'T) = 
  -            match defaultValueSetter with
  -            | Some(func) -> func (value)
  -            | _ -> value
           
           abstract Process : request:RequestContext * body:'T option -> ResponseContext<'U>
       
  
positive.code:     let execute (request : RequestContext, handler : HttpHandlerBase<_, _>) = 
          let validateRequest() = 
              maybe { 
                  /// Check if we are in processing indices based resource
                  do! if String.Equals(request.ResName, "indices", StringComparison.OrdinalIgnoreCase) 
                         && request.ResId.IsSome then 
                          match handler.Properties.CheckIndexIsOnline, handler.Properties.CheckIndexExists with
                          | true, _ -> indexOnline request.ResId.Value
                          | false, true -> indexExists request.ResId.Value
                          | _ -> ok()
                      else ok()
                  let! body = match handler.HasBody with
                              | true -> 
                                  match handler.DeSerialize(request.OwinContext.Request) with
                                  | Choice1Of2 a -> 
                                      // Set the default value for the DTO
                                      ok <| Some(handler.SetDefaults(a))
                                  | Choice2Of2 b -> 
                                      if handler.Properties.FailOnMissingBody then fail <| b
                                      else ok <| None
                              | false -> ok <| None
                  /// Validate the DTO
                  if body.IsSome && handler.Properties.ValidateDto then do! body.Value.Validate()
                  return body
              }
          
  
negative.code:     
      /// Handler base class which exposes common Http Handler functionality
      [<AbstractClass>]
      type HttpHandlerBase<'T, 'U when 'T :> DtoBase>(?failOnMissingBody : bool, ?validateBody : bool) = 
          member __.HasBody = typeof<'T> = typeof<NoBody>
          member this.FailOnMissingBody = defaultArg failOnMissingBody this.HasBody
          member this.ValidateBody = defaultArg validateBody false
          member __.DeSerialize(request : IOwinRequest) = getRequestBody<'T> (request)
          
          member __.SerializeSuccess (response : 'U) (successStatus : HttpStatusCode) (owinContext : IOwinContext) = 
  