Skip to content

Commit af0dda4

Browse files
committed
Improve diagnostic message
1 parent 1cd28fe commit af0dda4

File tree

1 file changed

+3
-1
lines changed
  • ghcide/src/Development/IDE/Plugin

1 file changed

+3
-1
lines changed

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

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -143,7 +143,9 @@ extensiblePlugins defaultConfig xs = Plugin mempty handlers
143143
let fs = filter (\(pid,_) -> pluginEnabled m pid config) fs'
144144
case nonEmpty fs of
145145
Nothing -> pure $ Left $ ResponseError InvalidRequest
146-
("No plugin enabled for " <> T.pack (show m) <> ", available: " <> T.pack (show $ map fst fs))
146+
("No plugin enabled for " <> T.pack (show m) <>
147+
", available: " <> T.pack (show $ map (\(x@(PluginId p),_) -> (p, x `elem` map fst fs)) xs) <>
148+
", config" <> T.pack (show config))
147149
Nothing
148150
Just fs -> do
149151
let msg e pid = "Exception in plugin " <> T.pack (show pid) <> "while processing " <> T.pack (show m) <> ": " <> T.pack (show e)

0 commit comments

Comments
 (0)