anchor.diff:      | Success
       | Failure of reason:string
   
  -    let saveViewModel loadedConfigs (viewModel:OptionsViewModel) =
  +    let saveViewModel loadedConfigs (viewModel: OptionsViewModel) =
           let directory = viewModel.CurrentFilePath
           let filepath = directory </> SettingsFileName
       
  
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:         let existing = getConfigForDirectory loadedConfigs directory
  
          let existingPartial = 
              getPartialConfig loadedConfigs normalisedDir
              |> Option.getOrTry (fun _ ->
                  { UseTypeChecker = None
                    IgnoreFiles = None
                    Analysers = Map.ofList [] })
  
          let updatedPartial = updateConfigMap config existing existingPartial
  
  