anchor.diff:      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)
  +    MemberOrValue.Create(usage, modifiers, typeparams, signature, location, getCompiledName case)
   
     let readFSharpField (ctx:ReadingContext) (field:FSharpField) =
       let usage (maxLength:int) = field.Name
  
positive.code:     Modifiers : string list 
      TypeArguments : string list 
      Signature : string
      SourceLocation : string option }
    member x.FormatUsage(maxLength) = x.Usage(maxLength)
    member x.FormatTypeArguments = String.concat ", " x.TypeArguments
    member x.FormatModifiers = String.concat " " x.Modifiers
    member x.FormatSourceLocation = defaultArg x.SourceLocation ""
    static member Create(usage, mods, typars, sign, location) =
      { Usage = usage; Modifiers = mods; TypeArguments = typars;
        Signature = sign; SourceLocation = location }
  
  type MemberKind = 
    // In a module
  
negative.code:     // If there is a signature file, we should go for implementation file
      let loc = tryGetLocation v
      let location = formatSourceLocation ctx.UrlRangeHighlight ctx.SourceFolderRepository loc
      MemberOrValue.Create(buildShortUsage, modifiers, typars, signature, location, getCompiledName v)
  
      (*
  
  