fix textDocument/selectionRange's method (#388)

* fix selection range

* remove Arbitrary instance for Value when aeson provides it

Author: Kobayashi

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

@@ -320,7 +320,7 @@ instance FromJSON SomeClientMethod where
   parseJSON (A.String "textDocument/rename")                 = pure $ SomeClientMethod STextDocumentRename
   parseJSON (A.String "textDocument/prepareRename")          = pure $ SomeClientMethod STextDocumentPrepareRename
   parseJSON (A.String "textDocument/foldingRange")           = pure $ SomeClientMethod STextDocumentFoldingRange
-  parseJSON (A.String "textDocument/selectionRange")         = pure $ SomeClientMethod STextDocumentFoldingRange
+  parseJSON (A.String "textDocument/selectionRange")         = pure $ SomeClientMethod STextDocumentSelectionRange
   parseJSON (A.String "textDocument/prepareCallHierarchy")   = pure $ SomeClientMethod STextDocumentPrepareCallHierarchy
   parseJSON (A.String "callHierarchy/incomingCalls")         = pure $ SomeClientMethod SCallHierarchyIncomingCalls
   parseJSON (A.String "callHierarchy/outgoingCalls")         = pure $ SomeClientMethod SCallHierarchyOutgoingCalls

lsp/test/JsonSpec.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP                  #-}
 {-# LANGUAGE UndecidableInstances #-}
 {-# LANGUAGE FlexibleContexts     #-}
 {-# LANGUAGE TypeInType           #-}
@@ -159,13 +160,15 @@ smallList = resize 3 . listOf
 instance (Arbitrary a) => Arbitrary (List a) where
   arbitrary = List <$> arbitrary
 
+#if !MIN_VERSION_aeson(2,0,3)
 instance Arbitrary J.Value where
   arbitrary = oneof
     [ J.String <$> arbitrary
     , J.Number <$> arbitrary
     , J.Bool <$> arbitrary
     , pure J.Null
     ]
+#endif
 
 -- ---------------------------------------------------------------------