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:     | Success
      | Failure of reason:string
  
      let saveViewModel loadedConfigs (viewModel:OptionsViewModel) =
          let directory = viewModel.CurrentFilePath
          let filepath = directory </> SettingsFileName
      
  
negative.code:             | _ -> () ]
                      
      let getInitialPath dte loadedConfigs =
          getSolutionPath dte
          |> Option.bind (fun solutionPath ->
              commonPath loadedConfigs solutionPath
              |> Option.orElse (Some solutionPath))
          |> Option.orTry (fun _ ->
              getProjectPaths dte |> List.tryHead)
  
      let getConfigForDirectory loadedConfigs directory =
          normalisePath directory
          |> getConfig loadedConfigs
          |> Option.getOrElse defaultConfiguration
  
      let private settingFromObject (settingObj:obj) = 
          match settingObj with
  