Improve diagnostic message

haskell · Feb 21, 2021 · 3f9de5f · 3f9de5f
1 parent 30645d3
commit 3f9de5f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/ghcide/src/Development/IDE/Plugin/HLS.hs b/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)