clean up

Author: pepeiborra

ghcide/src/Development/IDE/Plugin/HLS.hs

@@ -173,7 +173,6 @@ extensibleNotificationPlugins defaultConfig xs = Plugin mempty handlers
     handlers = mconcat $ do
       (IdeNotification m :=> IdeNotificationHandler fs') <- DMap.assocs handlers'
       pure $ notificationHandler m $ \ide params -> do
-        liftIO $ logInfo (ideLogger ide) "extensibleNotificationPlugins handler entered"
         config <- fromMaybe defaultConfig <$> Ide.PluginUtils.getClientConfig
         let fs = filter (\(pid,_) -> pluginEnabledNotification m pid config) fs'
         case nonEmpty fs of

hls-plugin-api/src/Ide/Types.hs

@@ -236,20 +236,9 @@ newtype PluginHandler a (m :: Method FromClient Request)
 
 newtype PluginNotificationHandler a (m :: Method FromClient Notification)
   = PluginNotificationHandler (PluginId -> a -> MessageParams m -> LspM Config ())
--- newtype PluginNotificationHandler a (m :: Method FromClient Notification)
---   = PluginNotificationHandler (PluginNotificationMethodHandler a m)`
-
-{-
-From Zubin
-alanz_: I would say `newtype PluginNotificationHandler a (m :: Method FromClient Notification) = PluginNotificationHandler (PluginNotificationMethodHandler a m)`
-16:28 and `newtype PluginNotificationHandlers a = PluginNotificationHandlers (DMap SMethod (PluginNotificationHandler a))
-
--}
 
 newtype PluginHandlers a             = PluginHandlers             (DMap IdeMethod       (PluginHandler a))
 newtype PluginNotificationHandlers a = PluginNotificationHandlers (DMap IdeNotification (PluginNotificationHandler a))
--- newtype PluginNotificationHandlers a = PluginNotificationHandlers (DMap SMethod (PluginNotificationHandler a))
-
 instance Semigroup (PluginHandlers a) where
   (PluginHandlers a) <> (PluginHandlers b) = PluginHandlers $ DMap.unionWithKey go a b
     where