Avoid creating an empty section if no instances are found

haskell · Feb 11, 2024 · cf69ce5 · cf69ce5
1 parent cdefac2
commit cf69ce5
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/ghcide/src/Development/IDE/Spans/AtPoint.hs b/ghcide/src/Development/IDE/Spans/AtPoint.hs
@@ -316,7 +316,10 @@ atPoint IdeOptions{} (HAR _ hf _ _ (kind :: HieKind hietype)) (DKMap dm km) env
                 instancesForName :: IO (Maybe [ClsInst])
                 instancesForName = runMaybeT $ do
                     typ <- MaybeT . pure $ lookupNameEnv km n >>= tyThingAsDataType
-                    liftIO $ evalGhcEnv env $ getInstancesForType typ
+                    clsInst <- liftIO $ evalGhcEnv env $ getInstancesForType typ
+                    -- Avoid creating an empty wrapped section if no instances are found
+                    guard $ not $ null clsInst
+                    return clsInst
 
                 -- | Gets the datatype `Type` corresponding to a TyThing, if it repressents a datatype or
                 -- a data constructor.