Disable deps CodeLens when InlayHints are available

Author: batkot

plugins/hls-cabal-plugin/src/Ide/Plugin/Cabal.hs

@@ -9,7 +9,8 @@ module Ide.Plugin.Cabal (descriptor, haskellInteractionDescriptor, Log (..)) whe
 
 import           Control.Concurrent.Strict
 import           Control.DeepSeq
-import           Control.Lens                                  ((^.))
+import           Control.Lens                                  (_Just, (^.),
+                                                                (^?))
 import           Control.Monad.Extra
 import           Control.Monad.IO.Class
 import           Control.Monad.Trans.Class                     (lift)
@@ -382,20 +383,33 @@ cabalAddCodeAction state plId (CodeActionParams _ _ (TextDocumentIdentifier uri)
 
 lens :: PluginMethodHandler IdeState LSP.Method_TextDocumentCodeLens
 lens state _plId clp = do
-  let uri = clp ^. JL.textDocument . JL.uri
-  nfp <- getNormalizedFilePathE uri
-  cabalFields <- runActionE "cabal.cabal-code-lens" state $ useE ParseCabalFields nfp
-  (hscEnv -> hsc) <- runActionE "cabal.cabal-code-lens" state $ useE GhcSession nfp
-  pure $ InL $ Dependencies.dependencyVersionLens cabalFields hsc
+  packageDependenciesLens <-
+    fmap (Maybe.fromMaybe mempty) $
+      whenMaybe (not $ inlayHintCapabilityAvailable state) $ do
+        let uri = clp ^. JL.textDocument . JL.uri
+        nfp <- getNormalizedFilePathE uri
+        cabalFields <- runActionE "cabal.cabal-code-lens" state $ useE ParseCabalFields nfp
+        (hscEnv -> hsc) <- runActionE "cabal.cabal-code-lens" state $ useE GhcSession nfp
+        pure $ Dependencies.dependencyVersionLens cabalFields hsc
 
+  pure $ InL packageDependenciesLens
 
 hints :: PluginMethodHandler IdeState LSP.Method_TextDocumentInlayHint
 hints state _plId clp = do
-  let uri = clp ^. JL.textDocument . JL.uri
-  nfp <- getNormalizedFilePathE uri
-  cabalFields <- runActionE "cabal.cabal-hints" state $ useE ParseCabalFields nfp
-  (hscEnv -> hsc) <- runActionE "cabal.cabal-hints" state $ useE GhcSession nfp
-  pure $ InL $ Dependencies.dependencyVersionHints cabalFields hsc
+  packageDependenciesHints <-
+    fmap (Maybe.fromMaybe mempty) $
+      whenMaybe (inlayHintCapabilityAvailable state) $ do
+        let uri = clp ^. JL.textDocument . JL.uri
+        nfp <- getNormalizedFilePathE uri
+        cabalFields <- runActionE "cabal.cabal-hints" state $ useE ParseCabalFields nfp
+        (hscEnv -> hsc) <- runActionE "cabal.cabal-hints" state $ useE GhcSession nfp
+        pure $ Dependencies.dependencyVersionHints cabalFields hsc
+  pure $ InL packageDependenciesHints
+
+inlayHintCapabilityAvailable :: IdeState -> Bool
+inlayHintCapabilityAvailable state =
+  let clientCaps = Shake.clientCapabilities $ shakeExtras state
+  in  Maybe.isJust $ clientCaps ^? JL.textDocument . _Just . JL.inlayHint . _Just
 
 -- | Handler for hover messages.
 --