diff options
Diffstat (limited to 'main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpInteractivePad.fs')
-rw-r--r-- | main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpInteractivePad.fs | 9 |
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)) |