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
diff options
context:
space:
mode:
Diffstat (limited to 'main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpInteractivePad.fs')
-rw-r--r--main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpInteractivePad.fs9
1 files changed, 4 insertions, 5 deletions
diff --git a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpInteractivePad.fs b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpInteractivePad.fs
index b67f0b0b05..dd5d0032d1 100644
--- a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpInteractivePad.fs
+++ b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpInteractivePad.fs
@@ -408,10 +408,10 @@ type FSharpInteractivePad(editor:TextEditor) as this =
member x.LoadReferences(project:FSharpProject) =
LoggingService.LogDebug ("FSI: #LoadReferences")
- let orderedreferences = project.GetOrderedReferences()
-
- orderedreferences
- |> List.iter (fun a -> x.SendCommand (sprintf @"#r ""%s""" a.Path))
+ async {
+ let! orderedReferences = project.GetOrderedReferences (CompilerArguments.getConfig())
+ orderedReferences |> List.iter (fun a -> x.SendCommand (sprintf @"#r ""%s""" a.Path))
+ } |> Async.StartImmediate
override x.Initialize(container:MonoDevelop.Ide.Gui.IPadWindow) =
LoggingService.LogDebug ("InteractivePad: created!")
@@ -599,7 +599,6 @@ type FSharpFsiEditorCompletion() =
override x.Run() =
async {
let project = IdeApp.Workbench.ActiveDocument.Project :?> FSharpProject
- do! project.GetReferences()
FSharpInteractivePad.Fsi
|> Option.iter (fun fsi -> fsi.LoadReferences(project)
FSharpInteractivePad.BringToFront(false))