Skip to content

Commit e61663d

Browse files
committed
Fix accidentally broken codeLens
1 parent 52ea29f commit e61663d

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

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

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -106,7 +106,7 @@ descriptor recorder plId =
106106
(defaultPluginDescriptor plId desc)
107107
{ pluginHandlers = mkPluginHandler SMethod_TextDocumentCodeLens codeLensProvider
108108
<> mkResolveHandler SMethod_CodeLensResolve codeLensResolveProvider
109-
<> mkPluginHandler SMethod_TextDocumentInlayHint whereClauseInlayHints
109+
<> mkPluginHandler SMethod_TextDocumentInlayHint whereClauseInlayHints
110110
, pluginCommands = [PluginCommand typeLensCommandId "adds a signature" commandHandler]
111111
, pluginRules = rules recorder
112112
, pluginConfigDescriptor = defaultConfigDescriptor {configCustomConfig = mkCustomConfig properties}
@@ -346,8 +346,8 @@ gblBindingType (Just hsc) (Just gblEnv) = do
346346
renderBind id = do
347347
let name = idName id
348348
hasSig name $ do
349-
(_, sig) <- bindToSig id hsc rdrEnv
350-
pure $ GlobalBindingTypeSig name sig (name `elemNameSet` exports)
349+
(name', sig) <- bindToSig id hsc rdrEnv
350+
pure $ GlobalBindingTypeSig name (printName name' <> " :: " <> sig) (name `elemNameSet` exports)
351351
patToSig p = do
352352
let name = patSynName p
353353
hasSig name

0 commit comments

Comments
 (0)