anchor.diff:              | ClipCopy -> SyncResult (Action.clipCopy os)
               | Recycle -> AsyncResult (Action.recycle fs)
               | SortList field -> Sync (Nav.sortList field)
  -            | ToggleHidden -> AsyncResult (toggleHidden fs subDirResults progress)
  +            | ToggleHidden -> Sync toggleHidden
               | OpenSplitScreenWindow -> SyncResult (Action.openSplitScreenWindow os getScreenBounds)
               | OpenWithTextEditor -> SyncResult (Action.openWithTextEditor os)
               | OpenExplorer -> Sync (Action.openExplorer os)
  
positive.code:         yield! Nav.refresh fsReader model
  }
  
  let toggleHidden fsReader subDirResults progress (model: MainModel) = asyncSeqResult {
      let model = { model with Config = { model.Config with ShowHidden = not model.Config.ShowHidden } }
      yield model
      yield! refreshOrResearch fsReader subDirResults progress { model with Status = Some <| MainStatus.toggleHidden model.Config.ShowHidden }
  }
  
  let inputCharTyped fs cancelInput char model = asyncSeqResult {
      let withBookmark char model =
  
negative.code:             |> moveCursorTo true false (fun i -> i.Name |> String.startsWithIgnoreCase prefix)
          | None -> model
  
      let getFilter showHidden searchInput =
          searchInput.Terms
          |> Option.ofString
          |> Option.bind (fun input ->
  