anchor.diff:      }
   
       let addSubDirResults newItems model =
  -        let filter = getFilter model |? cnst []
  +        let filter = model.SearchCurrent |> Option.bind (getFilter model.Config.ShowHidden) |? cnst []
           let items =
               match filter newItems, model.Items with
               | [], _ -> model.Items
  
positive.code:             |> moveCursorTo true false (fun i -> i.Name |> String.startsWithIgnoreCase prefix)
          | None -> model
  
      let private getFilter model =
          model.InputText
          |> Option.ofString
          |> Option.bind (fun input ->
              if model.SearchInput.Regex then
                  let options = if model.SearchInput.CaseSensitive then RegexOptions.None else RegexOptions.IgnoreCase
                  try
                      let re = Regex(input, options)
                      Some (List.filter (fun item -> re.IsMatch item.Name))
                  with :? System.ArgumentException -> None
              else
                  Some (filterByTerms false model.SearchInput.CaseSensitive input (fun item -> item.Name))
          )
  
      let private enumerateSubDirs (fsReader: IFileSystemReader) (subDirResults: Event<_>) (progress: Event<_>)
  
negative.code:     }
  
      let search fsReader subDirResults progress (model: MainModel) = asyncSeq {
          let input = { model.SearchInput with Terms = model.InputText }
          let model = { model with SearchCurrent = Some input }
          match model.InputText |> String.isNotEmpty, getFilter model.Config.ShowHidden input with
          | true, Some filter ->
              let withItems items model =
                  let noResults = [ { Item.Empty with Name = "<No Search Results>"; Path = model.Location } ]
  