Add module to SemanticTokenTypes (#1137)

* Add module to SemanticTokenTypes

* Update HighlightingTests.fs

Author: nojaf

src/FsAutoComplete/LspHelpers.fs

@@ -465,6 +465,7 @@ module ClassificationUtils =
     /// computation expressions
     | Cexpr = 23
     | Text = 24
+    | Module = 25
 
   [<RequireQualifiedAccess; Flags>]
   type SemanticTokenModifier =
@@ -502,7 +503,7 @@ module ClassificationUtils =
     | SemanticClassificationType.Property -> SemanticTokenTypes.Property, []
     | SemanticClassificationType.MutableVar
     | SemanticClassificationType.MutableRecordField -> SemanticTokenTypes.Member, [ SemanticTokenModifier.Mutable ]
-    | SemanticClassificationType.Module
+    | SemanticClassificationType.Module -> SemanticTokenTypes.Module, []
     | SemanticClassificationType.Namespace -> SemanticTokenTypes.Namespace, []
     | SemanticClassificationType.Printf -> SemanticTokenTypes.Regexp, []
     | SemanticClassificationType.ComputationExpression -> SemanticTokenTypes.Cexpr, []

test/FsAutoComplete.Tests.Lsp/HighlightingTests.fs

@@ -148,4 +148,4 @@ let tests state =
           tokenIsOfType (3, 52) ClassificationUtils.SemanticTokenTypes.Type fullHighlights // the `string` type annotation in the PooPoo srtp member
           tokenIsOfType (6, 21) ClassificationUtils.SemanticTokenTypes.EnumMember fullHighlights // the `PeePee` AP application in the `yeet` function definition
           tokenIsOfType (9, 10) ClassificationUtils.SemanticTokenTypes.Type fullHighlights //the `SomeJson` type alias should be a type
-          tokenIsOfType (15, 2) ClassificationUtils.SemanticTokenTypes.Namespace fullHighlights ] ] // tests that module coloration isn't overwritten by function coloration when a module function is used, so Foo in Foo.x should be module-colored
+          tokenIsOfType (15, 2) ClassificationUtils.SemanticTokenTypes.Module fullHighlights ] ] // tests that module coloration isn't overwritten by function coloration when a module function is used, so Foo in Foo.x should be module-colored