Add settings for enabling FSharpLinter integration

Author: Krzysztof-Cieslak

release/package.json

@@ -202,6 +202,11 @@
           "type": "boolean",
           "default": true,
           "description": "Includes keywords in autocomplete"
+        },
+        "FSharp.linter": {
+          "type": "boolean",
+          "default": true,
+          "description": "Enables integration with FSharpLinter (additional warnigns)"
         }
       }
     }

src/Components/Linter.fs

@@ -22,8 +22,9 @@ module Linter =
     let mutable private currentDiagnostic = languages.createDiagnosticCollection ()
 
     let private mapResult file (ev : LintResult) =
+        let setting = workspace.getConfiguration().get("FSharp.linter", true)
         let res =
-            if ev |> unbox <> null then
+            if ev |> unbox <> null && setting  then
                 ev.Data
                 |> Seq.map (fun d ->
                     let range = Range(float d.Range.StartLine - 1., float d.Range.StartColumn - 1., float d.Range.EndLine - 1., float d.Range.EndColumn - 1.)