diff options
author | nosami <jasonimison@gmail.com> | 2019-02-06 23:30:35 +0300 |
---|---|---|
committer | nosami <jasonimison@gmail.com> | 2019-02-07 17:33:35 +0300 |
commit | c671cd617538421916f112a429679f884693dbce (patch) | |
tree | d3436feb3dfaf061a477b1a611c68acf751cc9d5 /main/external/fsharpbinding | |
parent | 541f4946b67ffda359a6a0f0740f71a95904a2cc (diff) |
Fix syntax highlighting in F# Interactive
Fixes VSTS #783903
Diffstat (limited to 'main/external/fsharpbinding')
-rw-r--r-- | main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpBraceMatcher.fs | 2 | ||||
-rw-r--r-- | main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpInteractivePad.fs | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpBraceMatcher.fs b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpBraceMatcher.fs index 8ad9442cdf..e87085a1d7 100644 --- a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpBraceMatcher.fs +++ b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpBraceMatcher.fs @@ -52,7 +52,7 @@ type FSharpBraceMatcher() = if caretOffset = -1 || caretOffset >= editor.Length then Task.FromResult(Nullable()) else - let isFsi = editor.FileName.ToString() = "__FSI__.fsx" + let isFsi = editor.FileName.ToString() = FsiDocumentContext.DocumentName match editor.GetCharAt(caretOffset), isFsi with | '(', false | ')', false -> diff --git a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpInteractivePad.fs b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpInteractivePad.fs index dd5d0032d1..2650e8681c 100644 --- a/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpInteractivePad.fs +++ b/main/external/fsharpbinding/MonoDevelop.FSharpBinding/FSharpInteractivePad.fs @@ -64,7 +64,7 @@ type ImageRendererMarker(line, image:Xwt.Drawing.Image) = type FsiDocumentContext() = inherit DocumentContext() - let name = "__FSI__.fsx" + static let name = "__FSI__.fs" let pd = new FSharpParsedDocument(name, None, None) :> ParsedDocument let project = Services.ProjectService.CreateDotNetProject ("F#") @@ -84,6 +84,7 @@ type FsiDocumentContext() = override x.Name = name override x.AnalysisDocument with get() = null override x.UpdateParseDocument() = Task.FromResult pd + static member DocumentName = name member x.CompletionWidget with set (value) = completionWidget <- value |