anchor.diff:          let existing = getConfigForDirectory loadedConfigs directory
   
           let existingPartial = 
  -            match getPartialConfig loadedConfigs normalisedDir with
  -            | Some(x) -> x
  -            | None -> 
  +            getPartialConfig loadedConfigs normalisedDir
  +            |> Option.getOrTry (fun _ ->
                   { UseTypeChecker = None
                     IgnoreFiles = None
  -                  Analysers = Map.ofList [] }
  +                  Analysers = Map.ofList [] })
   
           let updatedPartial = updateConfigMap config existing existingPartial
   
  
positive.code:             | _ -> () ]
                      
      let getInitialPath dte loadedConfigs =
          match getSolutionPath dte with
          | Some(solutionPath) ->
              let commonToAllProjects = commonPath loadedConfigs solutionPath
  
              match commonToAllProjects with
              | Some(x) -> Some(x)
              | None -> Some(solutionPath)
          | None ->
              match getProjectPaths dte with
              | firstProject::_ ->
                  Some(firstProject)
              | [] -> None
  
      let getConfigForDirectory loadedConfigs directory =
          match getConfig loadedConfigs (normalisePath directory) with
          | Some(config) -> config
          | None -> defaultConfiguration
  
      let private settingFromObject (settingObj:obj) = 
          match settingObj with
  
negative.code: open FSharpVSPowerTools
  
  module LintUtils =
      open FSharpVSPowerTools.ProjectSystem
  
      let getProjectPaths (dte: EnvDTE.DTE) =
          listFSharpProjectsInSolution dte
          |> List.choose (fun project -> 
                  let projectFilePath = project.FullName
                  if not (String.IsNullOrEmpty projectFilePath) then
                      let projectDirectoryPath = Path.GetDirectoryName projectFilePath
                      Some (normalisePath projectDirectoryPath)
                  else
                      None)
  
      let getSolutionPath (dte: EnvDTE.DTE) =
          let solutionFilePath = dte.Solution.FullName
          if not (String.IsNullOrEmpty solutionFilePath) then 
              let solutionDirectoryPath = Path.GetDirectoryName solutionFilePath
              Some (normalisePath solutionDirectoryPath)
          else
              None
  
  