Skip to content

Commit c413c0b

Browse files
author
Omar Tawfik
committed
Address PR Comments
1 parent b8d337b commit c413c0b

File tree

1 file changed

+4
-1
lines changed

1 file changed

+4
-1
lines changed

vsintegration/src/FSharp.Editor/LanguageService.fs

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -82,7 +82,10 @@ type internal FSharpLanguageService(package : FSharpPackage) =
8282
if obj.ReferenceEquals(workspace.ProjectTracker.GetProject(projectId), null) then
8383
let projectContextFactory = this.Package.ComponentModel.GetService<IWorkspaceProjectContextFactory>();
8484
let errorReporter = ProjectExternalErrorReporter(projectId, "FS", this.SystemServiceProvider)
85-
let outputFlag = (site.CompilerFlags() |> Seq.find(fun flag -> flag.StartsWith("-o:"))).Substring(3)
85+
let outputFlag = site.CompilerFlags() |> Seq.pick(fun flag ->
86+
if flag.StartsWith("-o:") then Some(flag.Substring(3))
87+
else if flag.StartsWith("--out:") then Some(flag.Substring(6))
88+
else None)
8689
let outputPath = if Path.IsPathRooted(outputFlag) then outputFlag else Path.Combine(Path.GetDirectoryName(projectFileName), outputFlag)
8790

8891
let projectContext = projectContextFactory.CreateProjectContext(FSharpCommonConstants.FSharpLanguageName, projectFileName, projectFileName, projectGuid, hier, outputPath, errorReporter)

0 commit comments

Comments
 (0)