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