Skip to content

Commit

Permalink
Format Code
Browse files Browse the repository at this point in the history
  • Loading branch information
Booksbaum committed Feb 22, 2023
1 parent 6833080 commit d154e2e
Showing 1 changed file with 5 additions and 7 deletions.
12 changes: 5 additions & 7 deletions src/FsAutoComplete/LspServers/AdaptiveFSharpLspServer.fs
Original file line number Diff line number Diff line change
Expand Up @@ -1044,9 +1044,7 @@ type AdaptiveFSharpLspServer(workspaceLoader: IWorkspaceLoader, lspClient: FShar
AMap.union loses wins

let allProjectOptions' =
allProjectOptions
|> AMap.toASetValues
|> ASet.collect (ASet.ofAVal)
allProjectOptions |> AMap.toASetValues |> ASet.collect (ASet.ofAVal)


let getProjectOptionsForFile (filePath: string<LocalPath>) =
Expand Down Expand Up @@ -1767,7 +1765,8 @@ type AdaptiveFSharpLspServer(workspaceLoader: IWorkspaceLoader, lspClient: FShar
let findReferencesForSymbolInFile (file: string<LocalPath>, project, symbol) =
async {
let checker = checker |> AVal.force
if File.Exists (UMX.untag file) then

if File.Exists(UMX.untag file) then
// `FSharpChecker.FindBackgroundReferencesInFile` only works with existing files
return! checker.FindReferencesForSymbolInFile(UMX.untag file, project, symbol)
else
Expand All @@ -1781,10 +1780,9 @@ type AdaptiveFSharpLspServer(workspaceLoader: IWorkspaceLoader, lspClient: FShar
}

let tryGetProjectOptionsForFsproj (file: string<LocalPath>) =
forceGetProjectOptions file
|> Option.ofResult
forceGetProjectOptions file |> Option.ofResult

let getAllProjectOptions () : _ seq =
let getAllProjectOptions () : _ seq =
allProjectOptions'.Content |> AVal.force :> _

Commands.symbolUseWorkspace
Expand Down

0 comments on commit d154e2e

Please sign in to comment.