anchor.diff:  open System.ComponentModel.Composition
   open System.Windows.Media
   
  +open Microsoft.VisualStudio
  +open Microsoft.VisualStudio.Editor
  +open Microsoft.VisualStudio.PlatformUI
  +open Microsoft.VisualStudio.Shell
  +open Microsoft.VisualStudio.Shell.Interop
  +open Microsoft.Internal.VisualStudio.Shell.Interop
   open Microsoft.VisualStudio.Language.StandardClassification
   open Microsoft.VisualStudio.Text.Classification
   open Microsoft.VisualStudio.Utilities
  
positive.code:         | SemanticClassificationType.Interface -> Interface
  
  module internal ClassificationDefinitions =
      [<Export; Name(FSharpClassificationTypes.Function); BaseDefinition(PredefinedClassificationTypeNames.FormalLanguage)>]
      let FSharpFunctionClassificationType : ClassificationTypeDefinition = null
  
  
negative.code:     [<Name(FSharpClassificationTypes.Function)>]
      [<UserVisible(true)>]
      [<Order(After = PredefinedClassificationTypeNames.Keyword)>]
      type internal FSharpFunctionTypeFormat [<ImportingConstructor>](theme: ThemeColors) as self =
          inherit ClassificationFormatDefinition()
  
          do self.DisplayName <- SR.FSharpFunctionsOrMethodsClassificationType.Value
             self.ForegroundColor <- theme.GetColor FSharpClassificationTypes.Function
  
      [<Export(typeof<EditorFormatDefinition>)>]
      [<ClassificationType(ClassificationTypeNames = FSharpClassificationTypes.MutableVar)>]
      [<Name(FSharpClassificationTypes.MutableVar)>]
      [<UserVisible(true)>]
      [<Order(After = PredefinedClassificationTypeNames.Keyword)>]
      type internal FSharpMutableVarTypeFormat [<ImportingConstructor>](theme: ThemeColors) as self =
          inherit ClassificationFormatDefinition()
  
          do self.DisplayName <- SR.FSharpMutableVarsClassificationType.Value
             self.ForegroundColor <- theme.GetColor FSharpClassificationTypes.MutableVar
  
      [<Export(typeof<EditorFormatDefinition>)>]
      [<ClassificationType(ClassificationTypeNames = FSharpClassificationTypes.Printf)>]
      [<Name(FSharpClassificationTypes.Printf)>]
      [<UserVisible(true)>]
      [<Order(After = PredefinedClassificationTypeNames.String)>]
      type internal FSharpPrintfTypeFormat [<ImportingConstructor>](theme: ThemeColors) as self =
          inherit ClassificationFormatDefinition()
  
          do self.DisplayName <- SR.FSharpPrintfFormatClassificationType.Value
             self.ForegroundColor <- theme.GetColor FSharpClassificationTypes.Printf
  
      [<Export(typeof<EditorFormatDefinition>)>]
      [<ClassificationType(ClassificationTypeNames = FSharpClassificationTypes.Property)>]
      [<Name(FSharpClassificationTypes.Property)>]
      [<UserVisible(true)>]
      [<Order(After = PredefinedClassificationTypeNames.Keyword)>]
      type internal FSharpPropertyFormat [<ImportingConstructor>](theme: ThemeColors) as self =
          inherit ClassificationFormatDefinition()
  
          do self.DisplayName <- SR.FSharpPropertiesClassificationType.Value
             self.ForegroundColor <- theme.GetColor FSharpClassificationTypes.Property
  