Render hover doc

Author: July541

ghcide/src/Development/IDE/Core/Actions.hs

@@ -77,7 +77,7 @@ getAtPoint file pos = runMaybeT $ do
     mergeContent Nothing x@Just{} = x
     mergeContent (Just (r1, txt1)) (Just (r2, txt2)) =
       if r1 == r2
-        then Just (r1, txt1 <> txt2)
+        then Just (r1, txt1 <> filter (not . T.null) txt2)
         else Just (r1, txt1)
 
 toCurrentLocations :: PositionMapping -> [Location] -> [Location]

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

@@ -217,7 +217,8 @@ fixityAtPoint (HAR _ hf _ _ _) env tcGblEnv pos = fmap listToMaybe $ sequence $
     fixityInfo ast = do
       let range = realSrcSpanToRange $ nodeSpan ast
           names = mapMaybe eitherToMaybe $ M.keys $ getNodeIds ast
-      getFixity names >>= (\fixities -> pure (Just range, [toHoverContent fixities]))
+      fixities <- getFixity names
+      pure (Just range, [toHoverContent fixities])
 
     -- We use `handleGhcException` here to prevent hover crashed.
     -- Because `runTcInteractive` may throw an exception if something

ghcide/test/exe/Main.hs

@@ -6550,10 +6550,11 @@ hoverFixityTests = testGroup "Explicit fixity"
     , hoverTest "signature" (Position 35 2) "infixr 9 `>>>:`"
     , hoverTest "operator" (Position 36 2) "infixr 9 `>>>:`"
     , hoverTest "escape" (Position 39 2) "infixl 3 `~\\:`"
+    , expectFail $ hoverTest "import" (Position 2 18) "Control.Monad***"
     -- It will cause error like: "Failed to load interface for \8216Fixity\8217\nIt is not a module in the current program, or in any known package."
     -- while we look up fixities from imported local defined module, see test below.
     , expectFailBecause "Not support yet"
-        $ hoverTestImport "import" (Position 4 7) "infixr 9 `>>>:`"
+        $ hoverTestImport "imported" (Position 4 7) "infixr 9 `>>>:`"
     ]
     where
         hoverTest = hoverTest' "Fixity.hs"