anchor.diff:                              do! runAsync (fun () -> fileSysAction node.Path newPath)
                               this.OpenPath model.Path (SelectName newName) model
                               model.ItemBuffer <- None
  -                            model |> this.PerformedAction action
  +                            model |> MainHandler.performedAction action
                           with | ex -> model |> MainStatus.setActionExceptionStatus action ex
           | None -> ()
       }
  
positive.code:         match model.LastSearch with
          | Some str -> search str reverse model
          | None -> ()
  
  
  type MainController(fileSys: IFileSystemService,
  
negative.code:         | _ -> ()
      }
  
      member private this.Create = MainHandler.create fileSys.Create this.OpenPath
      member this.Rename = MainHandler.rename fileSys.Move this.OpenPath
  
      member this.StartMove model =
          match model.SelectedNode.Type with
  