anchor.diff:      let getThemeId() =
           let categoryName = "General"
           let themePropertyName = "CurrentTheme"
  -        let dte = serviceProvider.GetService<EnvDTE.DTE, SDTE>()
  +        let dte = serviceProvider.GetService<DTE, SDTE>()
           let keyName = 
               match VisualStudioVersion.fromDTEVersion dte.Version with
               | VisualStudioVersion.VS2012
  
positive.code:             | VisualStudioVersion.VS14 as version ->
                  Some (String.Format(@"Software\Microsoft\VisualStudio\{0}.0\{1}", VisualStudioVersion.toString version, categoryName))
              | v ->
                  debug "Unknown Visual Studio version detected while updating theme colors: %O" v
                  None
          keyName |> Option.map (fun keyName ->
              use key = Registry.CurrentUser.OpenSubKey(keyName)
              string (key.GetValue(themePropertyName, String.Empty)))
  
      member x.GetCurrentTheme() =
          match getThemeId() with
          | Some themeId ->
              match Guid.TryParse(themeId) with
              | true, themeGuid ->
                  match themes.TryGetValue(themeGuid) with
                  | true, t -> t
                  | _ -> VisualStudioTheme.Unknown
              | _ ->
                  VisualStudioTheme.Unknown
          | None -> 
              VisualStudioTheme.Unknown
  
negative.code: open Microsoft.VisualStudio.Shell.Interop
  open FSharpVSPowerTools.ProjectSystem
  open Microsoft.Win32
  open EnvDTE
  
  type VisualStudioTheme =
      | Unknown = 0
  