-getDefinitions doc pos =
- let params = TextDocumentPositionParams doc pos
- in getResponseResult <$> request TextDocumentDefinition params
+getDefinitions doc pos = do
+ let params = TextDocumentPositionParams doc pos Nothing
+ rsp <- request TextDocumentDefinition params :: Session DefinitionResponse
+ case getResponseResult rsp of
+ SingleLoc loc -> pure [loc]
+ MultiLoc locs -> pure locs