File tree Expand file tree Collapse file tree 2 files changed +13
-5
lines changed
Expand file tree Collapse file tree 2 files changed +13
-5
lines changed Original file line number Diff line number Diff line change @@ -136,6 +136,12 @@ module Ignore =
136136
137137 codeToRanges
138138
139+ let getAnalyzerIgnoreRanges ( parseFileResults : FSharpParseFileResults ) sourceText =
140+ parseFileResults.ParseTree
141+ |> getCodeComments
142+ |> getIgnoreComments sourceText
143+ |> getIgnoreRanges
144+
139145module EntityCache =
140146 let private entityCache = EntityCache()
141147
@@ -422,11 +428,7 @@ module Utils =
422428 TypedTree = checkFileResults.ImplementationFile
423429 CheckProjectResults = checkProjectResults
424430 ProjectOptions = projectOptions
425- AnalyzerIgnoreRanges =
426- parseFileResults.ParseTree
427- |> Ignore.getCodeComments
428- |> Ignore.getIgnoreComments sourceText
429- |> Ignore.getIgnoreRanges
431+ AnalyzerIgnoreRanges = Ignore.getAnalyzerIgnoreRanges parseFileResults sourceText
430432 }
431433
432434 let createFCS documentSource =
Original file line number Diff line number Diff line change @@ -14,6 +14,12 @@ type AnalyzerIgnoreRange =
1414 | NextLine of commentLine : int
1515 | CurrentLine of commentLine : int
1616
17+ module Ignore =
18+ val getAnalyzerIgnoreRanges :
19+ parseFileResults: FSharpParseFileResults ->
20+ sourceText: ISourceText ->
21+ Map< string, AnalyzerIgnoreRange list>
22+
1723[<AbstractClass>]
1824[<AttributeUsage( AttributeTargets.Method
1925 ||| AttributeTargets.Property
You can’t perform that action at this time.
0 commit comments