Option Analyzer

analyzer.fs

[<Analyzer>]
let optionValueAnalyzer : Analyzer =
    fun ctx ->
        let state = ResizeArray<range>()
        let handler (range: range) (m: FSharpMemberOrFunctionOrValue) =
            let name = String.Join(".", m.DeclaringEntity.Value.FullName, m.DisplayName)
            if name = "Microsoft.FSharp.Core.FSharpOption`1.Value" then
                state.Add range
        ctx.TypedTree.Declarations |> List.iter (visitDeclaration handler)
        state
        |> Seq.map (fun r ->
            { Type = "Option.Value analyzer"
              Message = "Option.Value shouldn't be used"
              Code = "OV001"
              Severity = Warning
              Range = r
              Fixes = []}
        )
        |> Seq.toList