anchor.diff:  open System
   open System.Reflection
   
  -type private UriInfo = { Path : string; Query : string }
  +type private UriInfo = 
  +    { Path : string; 
  +      Query : string;
  +      OriginalHostAndPath : string;
  +      EncodedQueryAndFragments : string }
   
   let private uriInfo (uri : Uri) (source : string) = 
   
  
positive.code:     fun (uri : Uri) ->
      
          let source = string (sourceField.GetValue(uri))
          cachedToStringField.SetValue(uri, source)
          cachedAbsoluteUriField.SetValue(uri, source)
          let uriInfo = uriInfo uri source
          pathField.SetValue(uri, uriInfo.Path)
          queryField.SetValue(uri, uriInfo.Query)
  
          uri)
  
  
negative.code:                 uri.ToString().EndsWith("%2F", StringComparison.InvariantCulture)
  
  let enableUriSlashes =
      if isMono then purifierMono.Force()
      elif hasBrokenDotNetUri then purifierDotNet.Force()
      else id
  
  