anchor.diff:                                  match handler.DeSerialize(request.OwinContext.Request) with
                                   | Choice1Of2 a -> 
                                       // Set the default value for the DTO
  -                                    ok <| Some(a.SetDefaults())
  +                                    ok <| Some(handler.SetDefaults(a))
                                   | Choice2Of2 b -> 
                                       if handler.Properties.FailOnMissingBody then fail <| b
                                       else ok <| None
  
positive.code: 
  /// Owin katana server
  [<Sealed>]
  type OwinServer(indexExists : string -> Choice<unit, Error>, indexOnline : string -> Choice<unit, Error>, httpModule : Dictionary<string, IHttpHandler<_, Error>>, logger : ILogService, ?port0 : int) = 
      let port = defaultArg port0 9800
      let accessDenied = """
  Port access issue. Make sure that the running user has necessary permission to open the port. 
  
negative.code:     let inline getIndexName (owin : IOwinContext) = removeTrailingSlash owin.Request.Uri.Segments.[2]
      let inline subId (owin : IOwinContext) = removeTrailingSlash owin.Request.Uri.Segments.[4]
      
      /// Handler base class which exposes common Http Handler functionality
      [<AbstractClass>]
      type HttpHandlerBase<'T, 'U when 'T :> IValidate>(?properties0 : HttpHandlerProperties, ?defaultValueSetter : 'T -> 'T) = 
          member __.Properties = defaultArg properties0 HttpHandlerProperties.OnlineIndex
          
          member __.HasBody = 
              if typeof<'T> = typeof<unit> then false
              else true
          
          member __.DeSerialize(request : IOwinRequest) = getRequestBody<'T> (request)
          
          member __.SerializeSuccess (response : 'U) (successStatus : HttpStatusCode) (owinContext : IOwinContext) = 
              let instance = Response<'U>.WithData(response)
              owinContext |> writeResponse successStatus instance
          
          member __.SerializeFailure (response : Error) (failureStatus : HttpStatusCode) (owinContext : IOwinContext) = 
              let instance = Response<'U>.WithError(response)
              owinContext |> writeResponse failureStatus instance
          
          member this.Serialize (response : Choice<'U, Error>) (successStatus : HttpStatusCode) 
                 (failureStatus : HttpStatusCode) (owinContext : IOwinContext) = 
              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)
              | none -> value
          
          abstract Process : request:RequestContext * body:'T option -> ResponseContext<'U>
      
      /// This is responsible for generating routing lookup table from the registerd http modules
      let generateRoutingTable (modules : Dictionary<string, HttpHandlerBase<_, _>>) = 
  