anchor.diff:  open MonoDevelop.Core
   
   type Style = 
  -    | Type of string 
  -    | Parameter of string 
  -    | Code of string
  -    | Exception of string
  +| Type of string 
  +| Parameter of string 
  +| Code of string
  +| Exception of string
   
   module Styles =
       let simpleMarkup style =
  
positive.code: namespace MonoDevelop.FSharp
  
  open System
  open System.Text
  open System.Collections.Generic
  open System.Linq
  
negative.code:         match element.PreviousNode with
          | null -> None 
          | node -> Some(node)
                                        
  module TooltipsXml = 
      open Linq2Xml    
      let private strip start (str:string)= 
          if str.StartsWith start then str.Substring(start.Length)
          else str
      
      let private trim (str:String) =
          str.Split([|'\n';'\r'|], StringSplitOptions.RemoveEmptyEntries)
          |> Array.map (fun s -> s.Trim() )
          |> 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>) =
  