ghcide-1.1.0.0: src/Development/IDE/Plugin.hs

module Development.IDE.Plugin ( Plugin(..) ) where

import           Data.Default
import           Development.Shake

import           Development.IDE.LSP.Server
import qualified Language.LSP.Server        as LSP

data Plugin c = Plugin
    {pluginRules    :: Rules ()
    ,pluginHandlers :: LSP.Handlers (ServerM c)
    }

instance Default (Plugin c) where
    def = Plugin mempty mempty

instance Semigroup (Plugin c) where
    Plugin x1 h1 <> Plugin x2 h2 = Plugin (x1<>x2) (h1 <> h2)

instance Monoid (Plugin c) where
    mempty = def