module Ide.Plugin.CallHierarchy (descriptor) where

import           Development.IDE
import qualified Ide.Plugin.CallHierarchy.Internal as X
import           Ide.Types
import           Language.LSP.Types

descriptor :: PluginId -> PluginDescriptor IdeState
descriptor plId = (defaultPluginDescriptor plId)
    { Ide.Types.pluginHandlers =
        mkPluginHandler STextDocumentPrepareCallHierarchy X.prepareCallHierarchy
     <> mkPluginHandler SCallHierarchyIncomingCalls X.incomingCalls
     <> mkPluginHandler SCallHierarchyOutgoingCalls X.outgoingCalls
    }