Welcome to mirror list, hosted at ThFree Co, Russian Federation.

github.com/mono/monodevelop.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
path: root/main
diff options
context:
space:
mode:
authorJason Imison <nosami@users.noreply.github.com>2017-08-01 13:55:14 +0300
committerGitHub <noreply@github.com>2017-08-01 13:55:14 +0300
commit4dc87ae95578f9ee75178f5a76799831098ca985 (patch)
treee0fd9ec4e8b9e5118b5ee0f982d7d24d6ecb09c1 /main
parentbf8ae1b849d4c26c10d897b05c8e048735a1ee8f (diff)
parenta6f7b014ee0d4f6684f26759e508a16f16020313 (diff)
Merge pull request #2847 from mono/fix-57061
[F#] Fixes #57061
Diffstat (limited to 'main')
-rw-r--r--main/external/fsharpbinding/MonoDevelop.FSharpBinding/Services/LanguageService.fs3
1 files changed, 2 insertions, 1 deletions
diff --git a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/Services/LanguageService.fs b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/Services/LanguageService.fs
index 9d7c9e3755..0f458d2198 100644
--- a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/Services/LanguageService.fs
+++ b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/Services/LanguageService.fs
@@ -360,6 +360,7 @@ type LanguageService(dirtyNotify, _extraProjectInfo) as x =
let getReferencedProjects (project:DotNetProject) =
project.GetReferencedAssemblyProjects config
|> Seq.filter (fun p -> p <> project && p.SupportedLanguages |> Array.contains "F#")
+
let rec getOptions referencedProject =
let projectOptions = CompilerArguments.getArgumentsFromProject referencedProject referencedAssemblies
match projectOptions with
@@ -372,7 +373,7 @@ type LanguageService(dirtyNotify, _extraProjectInfo) as x =
| Some outFile, Some opts -> (outFile, opts) :: acc
| _ -> acc) ([])
- (Some (referencedProject.GetOutputFileName(config).ChangeExtension(".ref").ToString()), Some ({ projOptions with ReferencedProjects = referencedProjectOptions |> Array.ofList } ))
+ (Some (referencedProject.GetOutputFileName(config).ToString()), Some ({ projOptions with ReferencedProjects = referencedProjectOptions |> Array.ofList } ))
| None -> None, None
let _file, projectOptions = getOptions project
projectOptions