showGhc -> showNameWithoutUniques

Author: wz1000

ghcide/src/Development/IDE/Spans/Common.hs

@@ -39,7 +39,6 @@ import Development.IDE.GHC.Util
 type DocMap = NameEnv SpanDoc
 type KindMap = NameEnv TyThing
 
-
 showGhc :: Outputable a => a -> T.Text
 showGhc = showSD . ppr
 

ghcide/src/Development/IDE/Spans/Documentation.hs

@@ -99,8 +99,8 @@ getDocumentationsTryGhc env mod sources names = do
             src <- toFileUriText $ lookupSrcHtmlForModule df mod
             return (doc, src)
           Nothing -> pure (Nothing, Nothing)
-      let docUri = (<> "#" <> selector <> showGhc name) <$> docFu
-          srcUri = (<> "#" <> showGhc name) <$> srcFu
+      let docUri = (<> "#" <> selector <> showNameWithoutUniques name) <$> docFu
+          srcUri = (<> "#" <> showNameWithoutUniques name) <$> srcFu
           selector
             | isValName name = "v:"
             | otherwise = "t:"