some cleanup in src/Components (ionide#1921)

Author: dawedawe

src/Components/Diagnostics.fs

@@ -53,7 +53,7 @@ Error: %A
 
 ### Steps to reproduce
 
-<!-- Add here the step to reproduce you problem. Example: -->
+<!-- Add here the steps to reproduce you problem. Example: -->
 <!-- 1. Open an F# file -->
 <!-- 2. Ctrl + P > "F# Add Reference" -->
             """

src/Components/Gitignore.fs

@@ -1,4 +1,4 @@
-/// Prompt users to add VSCode lines to their gitignore if the config is set
+// Prompt users to add VSCode lines to their gitignore if the config is set
 namespace Ionide.VSCode.FSharp
 
 module Gitignore =

src/Components/SolutionExplorer.fs

@@ -1024,20 +1024,13 @@ module SolutionExplorer =
         NodeReveal.activate context rootChanged.event treeView
 
         let wsProvider =
-            let viewLoading path = "<b>Status:</b> loading.."
+            let viewLoading = "<b>Status:</b> loading.."
 
-            let viewLanguageNotSupported path = "<b>Status:</b> language not supported"
+            let viewLanguageNotSupported = "<b>Status:</b> language not supported"
 
             let viewParsed (proj: Project) =
                 match getProjectModel proj with
-                | (Project(_,
-                           _,
-                           _,
-                           files,
-                           ProjectReferencesList(_, projRefs, _),
-                           PackageReferenceList(_, refs, _),
-                           _,
-                           project)) ->
+                | (Project(_, _, _, _, _, PackageReferenceList(_, refs, _), _, project)) ->
                     let files = project.Files
 
                     let projRefs = project.ProjectReferences |> Array.map (fun n -> n.ProjectFileName)
@@ -1112,7 +1105,7 @@ module SolutionExplorer =
                     |> String.concat "<br />"
                 | _ -> "Failed to generate status report..."
 
-            let viewFailed path error =
+            let viewFailed error =
                 let sdkErrorRegex =
                     Regex(
                         "A compatible SDK version for global\.json version: \[([\d.]+)\].*was not found.*",
@@ -1154,12 +1147,11 @@ module SolutionExplorer =
 
                             match Project.tryFindInWorkspace path with
                             | None -> sprintf "Project '%s' not found" path
-                            | Some(Project.ProjectLoadingState.Loading path) -> viewLoading path
+                            | Some(Project.ProjectLoadingState.Loading _path) -> viewLoading
                             | Some(Project.ProjectLoadingState.Loaded proj) -> viewParsed proj
-                            | Some(Project.ProjectLoadingState.NotRestored(path, error)) -> viewFailed path error
-                            | Some(Project.ProjectLoadingState.Failed(path, error)) -> viewFailed path error
-                            | Some(Project.ProjectLoadingState.LanguageNotSupported path) ->
-                                viewLanguageNotSupported path
+                            | Some(Project.ProjectLoadingState.NotRestored(_path, error)) -> viewFailed error
+                            | Some(Project.ProjectLoadingState.Failed(_path, error)) -> viewFailed error
+                            | Some(Project.ProjectLoadingState.LanguageNotSupported _path) -> viewLanguageNotSupported
                         | _ -> sprintf "Requested uri: %s" (uri.toString ())
 
                     U2.Case1 message |> Some }
@@ -1181,12 +1173,12 @@ module SolutionExplorer =
             | ProjectFailedToLoad(_, path, name, _) -> ShowStatus.CreateOrShow(path, name)
             | ProjectNotRestored(_, path, name, _) -> ShowStatus.CreateOrShow(path, name)
             | Model.ProjectLoading(_, path, name) -> ShowStatus.CreateOrShow(path, name)
-            | Model.Project(_, path, name, _, _, _, _, proj) -> ShowStatus.CreateOrShow(path, name)
+            | Model.Project(_, path, name, _, _, _, _, _proj) -> ShowStatus.CreateOrShow(path, name)
             | _ -> ()
 
         let runDebug m =
             match m with
-            | Model.Project(_, path, name, _, _, _, _, proj) -> proj |> Debugger.buildAndDebug
+            | Model.Project(_, _path, _name, _, _, _, _, proj) -> proj |> Debugger.buildAndDebug
             | _ -> Promise.empty
 
         let setLaunchSettingsCommand m =