Add callHierarchy/outgoingCalls

Author: banacorn

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

@@ -98,3 +98,24 @@ data CallHierarchyIncomingCall = CallHierarchyIncomingCall
   deriving (Read, Show, Eq)
 
 deriveJSON lspOptions ''CallHierarchyIncomingCall
+
+-- -------------------------------------
+
+makeExtendingDatatype
+  "CallHierarchyOutgoingCallsParams"
+  [''WorkDoneProgressParams, ''PartialResultParams]
+  [("_item", [t|CallHierarchyItem|])]
+deriveJSON lspOptions ''CallHierarchyOutgoingCallsParams
+
+-- -------------------------------------
+
+data CallHierarchyOutgoingCall = CallHierarchyOutgoingCall
+  { -- | The item that is called.
+    _from :: CallHierarchyItem,
+    -- | The range at which this item is called. This is the range relative to
+    -- the caller, e.g the item passed to `callHierarchy/outgoingCalls` request.
+    _fromRanges :: List Range
+  }
+  deriving (Read, Show, Eq)
+
+deriveJSON lspOptions ''CallHierarchyOutgoingCall

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

@@ -124,6 +124,7 @@ type family MessageParams (m :: Method f t) :: Type where
   -- Call Hierarchy 
   MessageParams TextDocumentCallHierarchy          = CallHierarchyPrepareParams
   MessageParams CallHierarchyIncomingCalls         = CallHierarchyIncomingCallsParams
+  MessageParams CallHierarchyOutgoingCalls         = CallHierarchyOutgoingCallsParams
 -- Server
     -- Window
   MessageParams WindowShowMessage                  = ShowMessageParams
@@ -200,6 +201,7 @@ type family ResponseResult (m :: Method f Request) :: Type where
   -- Call Hierarchy
   ResponseResult TextDocumentCallHierarchy     = List CallHierarchyItem
   ResponseResult CallHierarchyIncomingCalls    = List CallHierarchyIncomingCall
+  ResponseResult CallHierarchyOutgoingCalls    = List CallHierarchyOutgoingCall
   -- Custom can be either a notification or a message
 -- Server
   -- Window

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

@@ -78,6 +78,7 @@ data Method (f :: From) (t :: MethodType) where
   -- Call Hierarchy
   TextDocumentCallHierarchy          :: Method FromClient Request
   CallHierarchyIncomingCalls         :: Method FromClient Request
+  CallHierarchyOutgoingCalls         :: Method FromClient Request
 
 -- ServerMethods
   -- Window
@@ -150,6 +151,7 @@ data SMethod (m :: Method f t) where
   STextDocumentSelectionRange         :: SMethod TextDocumentSelectionRange
   STextDocumentCallHierarchy          :: SMethod TextDocumentCallHierarchy
   SCallHierarchyIncomingCalls         :: SMethod CallHierarchyIncomingCalls
+  SCallHierarchyOutgoingCalls         :: SMethod CallHierarchyOutgoingCalls
 
   SWindowShowMessage                  :: SMethod WindowShowMessage
   SWindowShowMessageRequest           :: SMethod WindowShowMessageRequest
@@ -275,6 +277,7 @@ instance FromJSON SomeClientMethod where
   parseJSON (A.String "textDocument/selectionRange")         = pure $ SomeClientMethod STextDocumentFoldingRange
   parseJSON (A.String "textDocument/prepareCallHierarchy")   = pure $ SomeClientMethod STextDocumentCallHierarchy
   parseJSON (A.String "callHierarchy/incomingCalls")         = pure $ SomeClientMethod SCallHierarchyIncomingCalls
+  parseJSON (A.String "callHierarchy/outgoingCalls")         = pure $ SomeClientMethod SCallHierarchyOutgoingCalls
   parseJSON (A.String "window/workDoneProgress/cancel")      = pure $ SomeClientMethod SWindowWorkDoneProgressCancel
 -- Cancelling
   parseJSON (A.String "$/cancelRequest")                     = pure $ SomeClientMethod SCancelRequest
@@ -369,6 +372,7 @@ instance A.ToJSON (SMethod m) where
   toJSON STextDocumentDocumentLink           = A.String "textDocument/documentLink"
   toJSON STextDocumentCallHierarchy          = A.String "textDocument/prepareCallHierarchy"
   toJSON SCallHierarchyIncomingCalls         = A.String "callHierarchy/incomingCalls"
+  toJSON SCallHierarchyOutgoingCalls         = A.String "callHierarchy/outgoingCalls"
   toJSON SDocumentLinkResolve                = A.String "documentLink/resolve"
   toJSON SWindowWorkDoneProgressCancel       = A.String "window/workDoneProgress/cancel"
 -- Server

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

@@ -252,6 +252,7 @@ splitClientMethod STextDocumentFoldingRange = IsClientReq
 splitClientMethod STextDocumentSelectionRange = IsClientReq
 splitClientMethod STextDocumentCallHierarchy = IsClientReq
 splitClientMethod SCallHierarchyIncomingCalls = IsClientReq
+splitClientMethod SCallHierarchyOutgoingCalls = IsClientReq
 splitClientMethod SCancelRequest = IsClientNot
 splitClientMethod SCustomMethod{} = IsClientEither
 

lsp/test/MethodSpec.hs

@@ -57,7 +57,8 @@ clientMethods = [
   ,"textDocument/rename"
   ,"textDocument/prepareRename"
   ,"textDocument/prepareCallHierarchy"
-  ,"callHierarchy/incomingCalls"
+  ,"callHierarchy/incomingCalls",
+  ,"callHierarchy/outgoingCalls"
   ]
 
 serverMethods :: [T.Text]