diff --git a/FsAutoComplete.sln b/FsAutoComplete.sln index cf0ffb22e..aa0dce89c 100644 --- a/FsAutoComplete.sln +++ b/FsAutoComplete.sln @@ -1,4 +1,3 @@ - Microsoft Visual Studio Solution File, Format Version 12.00 # Visual Studio 2013 VisualStudioVersion = 12.0.30501.0 @@ -12,6 +11,11 @@ Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "FsAutoComplete", "FsAutoCom EndProject Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "FsAutoComplete.Tests", "FsAutoComplete.Tests\FsAutoComplete.Tests.fsproj", "{F5EBDD99-5ED7-4311-A5CB-7CFCE696FF88}" EndProject +Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Solution Items", "Solution Items", "{E1A34828-1EA8-44F8-8377-10DCC312EB8B}" + ProjectSection(SolutionItems) = preProject + build.fsx = build.fsx + EndProjectSection +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU diff --git a/FsAutoComplete/App.config b/FsAutoComplete/App.config new file mode 100755 index 000000000..8ec277837 --- /dev/null +++ b/FsAutoComplete/App.config @@ -0,0 +1,22 @@ + + + + + + + + + + + + + + + + + + + + + + diff --git a/FsAutoComplete/CompilerServiceInterface.fs b/FsAutoComplete/CompilerServiceInterface.fs index edbc5b781..55f9f0bae 100644 --- a/FsAutoComplete/CompilerServiceInterface.fs +++ b/FsAutoComplete/CompilerServiceInterface.fs @@ -154,3 +154,15 @@ type FSharpCompilerServiceChecker() = with e -> Failure e.Message +open System.Reflection +module CompilerServiceInterface = + let addMSBuildv14BackupResolution () = + let onResolveEvent = new ResolveEventHandler( fun sender evArgs -> + let requestedAssembly = AssemblyName(evArgs.Name) + if requestedAssembly.Name.StartsWith("Microsoft.Build") then + requestedAssembly.Version <- Version("14.0.0.0") + Assembly.Load (requestedAssembly) + else + null + ) + AppDomain.CurrentDomain.add_AssemblyResolve(onResolveEvent) \ No newline at end of file diff --git a/FsAutoComplete/FsAutoComplete.fsproj b/FsAutoComplete/FsAutoComplete.fsproj index b52cf6080..7dc04f151 100644 --- a/FsAutoComplete/FsAutoComplete.fsproj +++ b/FsAutoComplete/FsAutoComplete.fsproj @@ -70,7 +70,7 @@ - + diff --git a/FsAutoComplete/Program.fs b/FsAutoComplete/Program.fs index 7228b5a35..5be2082ce 100644 --- a/FsAutoComplete/Program.fs +++ b/FsAutoComplete/Program.fs @@ -249,8 +249,8 @@ module internal Main = 0 with e -> - let msg = "Unexpected internal error. Please report at\ - https://github.com/fsharp/FsAutoComplete/issues,\ + let msg = "Unexpected internal error. Please report at \ + https://github.com/fsharp/FsAutoComplete/issues, \ attaching the following stack trace:\n" + e.Message + e.StackTrace Response.error msg @@ -264,6 +264,7 @@ module internal Main = 1 else try + CompilerServiceInterface.addMSBuildv14BackupResolution() async { while true do let cmd = CommandInput.parseCommand(Console.ReadLine())