anchor.diff:          commands.registerCommand (
               "showProjStatusFromIndicator",
               (fun _ ->
  -                let name = path.basename (ProjectStatus.path)
  +                let name = node.path.basename (ProjectStatus.path)
   
                   ShowStatus.CreateOrShow(ProjectStatus.path, name) |> box |> Some)
           )
  
positive.code:                 item.description <- Some(sprintf "Directory with %i projects" dir.Fsprojs.Length)
                  item
              | WorkspacePeekFound.Solution sln ->
                  let relative = path.relative (workspace.rootPath.Value, sln.Path)
                  let item = createEmpty<QuickPickItem>
                  item.label <- sprintf "%s%s" check relative
                  item.description <- Some(sprintf "Solution with %i projects" (countProjectsInSln sln))
  
negative.code:             extensionWorkspaceState <- Some context.workspaceState
  
          let private parse (value: string) =
              let fullPath = node.path.resolve (workspace.rootPath.Value, value)
  
              if value.ToLowerInvariant().EndsWith(".sln") then
                  ConfiguredWorkspace.Solution fullPath
  