Improve diagnostic message

Author: pepeiborra

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

@@ -143,7 +143,9 @@ extensiblePlugins defaultConfig xs = Plugin mempty handlers
         let fs = filter (\(pid,_) -> pluginEnabled m pid config) fs'
         case nonEmpty fs of
           Nothing -> pure $ Left $ ResponseError InvalidRequest
-            ("No plugin enabled for " <> T.pack (show m) <> ", available: " <> T.pack (show $ map fst fs))
+            ("No plugin enabled for " <> T.pack (show m) <>
+             ", available: " <> T.pack (show $ map (\(x@(PluginId p),_) -> (p, x `elem` map fst fs)) xs) <>
+             ", config" <> T.pack (show config))
             Nothing
           Just fs -> do
             let msg e pid = "Exception in plugin " <> T.pack (show pid) <> "while processing " <> T.pack (show m) <> ": " <> T.pack (show e)