anchor.diff:          moreInfoPath.SetValue(moreInfo, uriInfo.Path)
           moreInfoQuery.SetValue(moreInfo, uriInfo.Query)
   
  -        uri))
  +        uri)
   
   let private purifierMono = lazy(
  +
       let uriType = typeof<Uri>
   
       let sourceField = uriType.GetField("source", privateInstanceFlags)
  
positive.code: let private publicInstanceFlags = BindingFlags.Public ||| BindingFlags.Instance
  
  let private purifierDotNet = lazy(
      let uriType = typeof<Uri>
      let flagsField = uriType.GetField("m_Flags", privateInstanceFlags)
      let stringField = uriType.GetField("m_String", privateInstanceFlags)
  
negative.code:     let cachedToStringField = uriType.GetField("cachedToString", privateInstanceFlags)
      let cachedAbsoluteUriField = uriType.GetField("cachedAbsoluteUri",privateInstanceFlags)
  
      fun (uri : Uri) ->
      
          let source = string (sourceField.GetValue(uri))
          cachedToStringField.SetValue(uri, source)
          cachedAbsoluteUriField.SetValue(uri, source)
  