Fix missing 'namespace' token type (#412)

Fixes #410.

Author: michaelpj

lsp-test/test/Test.hs

@@ -429,7 +429,7 @@ main = hspec $ around withDummyServer $ do
     it "full works" $ \(hin, hout) -> runSessionWithHandles hin hout def fullCaps "." $ do
       let doc = TextDocumentIdentifier (Uri "")
       Just toks <- getSemanticTokens doc
-      liftIO $ toks ^. xdata `shouldBe` List [0,1,2,0,0]
+      liftIO $ toks ^. xdata `shouldBe` List [0,1,2,1,0]
 
 didChangeCaps :: ClientCapabilities
 didChangeCaps = def { _workspace = Just workspaceCaps }

lsp-types/src/Language/LSP/Types/SemanticTokens.hs

@@ -29,7 +29,8 @@ import           Data.Maybe                                   (fromMaybe,
 import           Data.String
 
 data SemanticTokenTypes =
-  SttType
+  SttNamespace
+  | SttType
   | SttClass
   | SttEnum
   | SttInterface
@@ -54,6 +55,7 @@ data SemanticTokenTypes =
   deriving (Show, Read, Eq, Ord)
 
 instance A.ToJSON SemanticTokenTypes where
+  toJSON SttNamespace     = A.String "namespace"
   toJSON SttType          = A.String "type"
   toJSON SttClass         = A.String "class"
   toJSON SttEnum          = A.String "enum"
@@ -78,6 +80,7 @@ instance A.ToJSON SemanticTokenTypes where
   toJSON (SttUnknown t)   = A.String t
 
 instance A.FromJSON SemanticTokenTypes where
+  parseJSON (A.String "namespace")     = pure SttNamespace
   parseJSON (A.String "type")          = pure SttType
   parseJSON (A.String "class")         = pure SttClass
   parseJSON (A.String "enum")          = pure SttEnum
@@ -105,7 +108,8 @@ instance A.FromJSON SemanticTokenTypes where
 -- | The set of semantic token types which are "known" (i.e. listed in the LSP spec).
 knownSemanticTokenTypes :: [SemanticTokenTypes]
 knownSemanticTokenTypes = [
-  SttType
+  SttNamespace
+  , SttType
   , SttClass
   , SttEnum
   , SttInterface