diff --git a/ghcide/src/Development/IDE/Plugin/HLS.hs b/ghcide/src/Development/IDE/Plugin/HLS.hs index 2113a38b779..c42c16a314e 100644 --- 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)