anchor.diff:        XmlMemberMap : IDictionary<string, XElement>
         MarkdownComments : bool
         UniqueUrlName : string -> string
  +      UrlRangeHighlight : Uri -> int -> int -> string
         SourceFolderRepository : (string * string) option }
       member x.XmlMemberLookup(key) =
         match x.XmlMemberMap.TryGetValue(key) with
         | true, v -> Some v
         | _ -> None 
  -    static member Create(publicOnly, map, sourceFolderRepo, markDownComments) = 
  +    static member Create(publicOnly, map, sourceFolderRepo, urlRangeHighlight, markDownComments) = 
         let usedNames = Dictionary<_, _>()
         let nameGen (name:string) =
           let nice = name.Replace(".", "-").Replace("`", "-").ToLower()
  
positive.code:     let typeparams = List.empty
      let signature = fields |> List.map (fun field -> formatType field.FieldType) |> String.concat " * "
      let loc = defaultArg case.ImplementationLocation case.DeclarationLocation
      let location = formatSourceLocation ctx.SourceFolderRepository loc
      MemberOrValue.Create(usage, modifiers, typeparams, signature, location)
  
    let readFSharpField (ctx:ReadingContext) (field:FSharpField) =
  
negative.code:     let otherFlags = defaultArg otherFlags []
      let publicOnly = defaultArg publicOnly true
      let libDirs = defaultArg libDirs []
      let urlRangeHighlight =
        defaultArg urlRangeHighlight (fun url start stop -> String.Format("{0}#L{1}-{2}", url, start, stop))
      let sourceFolderRepo =
          match sourceFolder, sourceRepo with
          | Some folder, Some repo -> Some(folder, repo)
  