anchor.diff:                         
                          | "see" -> match element |> attribute "cref" with
                                     | null -> acc
  -                                  | attrib -> let fragment = attrib.Value |> (strip "T:" >> unqualifyName >> Style.Type >> addStyle)
  +                                  | attrib -> let fragment = attrib.Value |> (strip "T:" >> unqualifyName >> Style.Type >> style)
                                                 acc.Append(fragment)
                                     
                          | "paramref" -> match element |> attribute "name" with
                                          | null -> acc
  -                                       | attrib -> let fragment = attrib.Value |> (Style.Parameter >> addStyle)
  +                                       | attrib -> let fragment = attrib.Value |> (Style.Parameter >> style)
                                                      acc.Append(fragment)
                                             
  -                       | "c" -> let fragment = element.Value |> (GLib.Markup.EscapeText >> Style.Code >> addStyle)
  +                       | "c" -> let fragment = element.Value |> (GLib.Markup.EscapeText >> Style.Code >> style)
                                   acc.Append(fragment)
                          | "attribution" -> acc //skip attribution elements
                          | unknown -> 
  
positive.code:         |> String.concat(" ")
              
      let private unqualifyName (txt:String) = txt.Substring(txt.LastIndexOf(".") + 1)
              
      let private elementValue (addStyle: Style -> string) (element:XElement) =
          let sb = StringBuilder()
          if element = null then sb else
          let rec processNodes (sb: StringBuilder) (nodes: IEnumerable<XNode>) =
  
negative.code:                 | _ -> acc )
          processNodes sb (element.Nodes())
  
      let getTooltipSummary (style: Style -> string) (str:string) = 
          try let xdoc =
                  if str.StartsWith("<?xml") then XElement.Parse(str)
                  else XElement.Parse("<Root>" + str + "</Root>")
  