anchor.diff:  module Giraffe.HttpContextExtensions
   
   open System
  +open System.Globalization
   open System.IO
   open System.Reflection
   open System.ComponentModel
  
positive.code: 
                  let converter = TypeDescriptor.GetConverter propertyType
  
                  let value = converter.ConvertFromInvariantString(queryValue)
  
                  if isOptionType then
                      let cases = FSharpType.GetUnionCases(p.PropertyType)
  
negative.code:                     p.SetValue(obj, value, null))
          obj
  
      member this.BindModelAsync<'T>(?cultureInfo) = this.BindModelAsync<'T>(defaultJsonSerializerSettings, ?cultureInfo = cultureInfo)
  
      member this.BindModelAsync<'T> (settings : JsonSerializerSettings, ?cultureInfo:CultureInfo) =
          task {
              let method = this.Request.Method
              if method.Equals "POST" || method.Equals "PUT" then
  