Use ProjectLoader.loadProject + getLoadedProjectInfo instead of WorkspaceLoader

Adopt the simpler lower-level API from Ionide.ProjInfo (as in PR #1055):
- Replace WorkspaceLoader.Create + Notifications + LoadProjects with
  ProjectLoader.loadProject + ProjectLoader.getLoadedProjectInfo
- Add explicit Microsoft.Build reference (compile-time only, ExcludeAssets=runtime)
  since ProjectCollection is now directly instantiated in user code
- Fewer lines of code, no async notification subscription needed

Co-authored-by: Copilot <223556219+Copilot@users.noreply.github.com>

Author: github-actions[bot]

src/fsdocs-tool/ProjectCracker.fs

@@ -290,32 +290,19 @@ module Crack =
         let loggedMessages = System.Collections.Concurrent.ConcurrentQueue<string>()
 
         let result =
+            // Needs to be done before any ProjectCollection is created
             let cwd = System.Environment.CurrentDirectory |> System.IO.DirectoryInfo
             let dotnetExe = getDotnetHostPath () |> Option.map System.IO.FileInfo
-            let toolsPath = Init.init cwd dotnetExe
-            let loader = WorkspaceLoader.Create(toolsPath, extraMsbuildProperties)
-
-            use _ =
-                loader.Notifications.Subscribe(fun msg ->
-                    match msg with
-                    | WorkspaceProjectState.Failed(_, err) -> loggedMessages.Enqueue(err.ToString())
-                    | _ -> ())
-
-            let projects =
-                loader.LoadProjects([ projectFile ], customProperties, BinaryLogGeneration.Off)
-                |> Seq.toList
-
-            match projects with
-            | projOptions :: _ -> Ok projOptions
-            | [] ->
-                let msgs = loggedMessages.ToArray() |> Array.toList
-
-                let errMsg =
-                    match msgs with
-                    | msg :: _ -> msg
-                    | [] -> sprintf "Failed to load project '%s'" projectFile
-
-                Error errMsg
+            let _toolsPath = Init.init cwd dotnetExe
+            let projectCollection = new Microsoft.Build.Evaluation.ProjectCollection(dict extraMsbuildProperties)
+
+            match ProjectLoader.loadProject projectFile BinaryLogGeneration.Off projectCollection with
+            | Ok loadedProject ->
+                match ProjectLoader.getLoadedProjectInfo projectFile customProperties loadedProject with
+                | Ok(ProjectLoader.LoadedProjectInfo.StandardProjectInfo projOptions) -> Ok projOptions
+                | Ok _ -> Error $"project '%s{projectFile}' is not a standard project"
+                | Error e -> Error e
+            | Error e -> Error e
 
         let msgs = (loggedMessages.ToArray() |> Array.toList)
 

src/fsdocs-tool/fsdocs-tool.fsproj

@@ -51,6 +51,7 @@
     <PackageReference Include="FSharp.Core" />
     <PackageReference Include="CommandLineParser" />
     <PackageReference Include="Ionide.ProjInfo" />
+    <PackageReference Include="Microsoft.Build" IncludeAssets="compile" ExcludeAssets="runtime" PrivateAssets="all" />
     <PackageReference Include="Suave" />
   </ItemGroup>
 </Project>