Don't suggest if nothing to change

Author: berberman

plugins/hls-haddock-comments-plugin/src/Ide/Plugin/HaddockComments.hs

@@ -64,6 +64,7 @@ runGenComments GenComments {..} mLocDecls mAnns range
     Just anns <- mAnns,
     [(locDecl, src, x)] <- [(locDecl, l, x) | locDecl@(L l (fromDecl -> Just x)) <- locDecls, inRange range l],
     annKeys <- collectKeys x,
+    not $ null annKeys,
     and $ maybe False fresh . flip Map.lookup anns <$> annKeys,
     anns' <- foldr (Map.adjust updateAnn) anns annKeys,
     Just range' <- calcRange src range,