anchor.diff:          AssemblyPath = assemblyPath
           CompilerOptions = compilerOptions
           FormatAgent = formatAgent }
  +
  +  let inline private getCompiledName (s : ^a when ^a :> FSharpSymbol) =
  +    let compiledName = (^a : (member CompiledName : string) (s))
  +    match compiledName = s.DisplayName with
  +    | true -> None
  +    | _    -> Some compiledName
   
     let formatSourceLocation (urlRangeHighlight : Uri -> int -> int -> string) (sourceFolderRepo : (string * string) option) (location : range option) =
       location |> Option.bind (fun location ->
  
positive.code:     let signature = fields |> List.map (fun field -> formatType field.FieldType) |> String.concat " * "
      let loc = tryGetLocation case
      let location = formatSourceLocation ctx.UrlRangeHighlight ctx.SourceFolderRepository loc
      MemberOrValue.Create(usage, modifiers, typeparams, signature, location)
  
    let readFSharpField (ctx:ReadingContext) (field:FSharpField) =
      let usage (maxLength:int) = field.Name
  
negative.code:     let signature = formatType field.FieldType
      let loc = tryGetLocation field
      let location = formatSourceLocation ctx.UrlRangeHighlight ctx.SourceFolderRepository loc
      MemberOrValue.Create(usage, modifiers, typeparams, signature, location, if field.Name <> field.DisplayName then Some field.Name else None)
  
    let getFSharpStaticParamXmlSig (typeProvider:FSharpEntity) parameterName = 
      "SP:" + typeProvider.AccessPath + "." + typeProvider.LogicalName + "." + parameterName
  