anchor.diff:  let refreshOrResearch fsReader subDirResults progress model = asyncSeqResult {
       match model.CurrentSearch with
       | Some currentSearch ->
  -        let! newModel = model |> Nav.openPath fsReader model.Location (SelectName model.SelectedItem.Name)
  +        let selectType = SelectName model.SelectedItem.Name
  +        let! newModel = model |> Nav.openPath fsReader model.Location selectType
           let input, case, regex, sub = currentSearch
  -        yield!
  +        let searchModels =
               { newModel with
                   InputText = input
                   SearchCaseSensitive = case
  
positive.code:             }
              |> Search.search fsReader subDirResults progress
              |> AsyncSeq.map Ok
      | None ->
          yield! Nav.refresh fsReader model
  }
  
negative.code: ﻿module Koffee.MainLogic
  
  open System.Text.RegularExpressions
  open System.Threading.Tasks
  