hls-call-hierarchy-plugin 1.0.2.0 → 1.0.3.0

raw patch · 2 files changed

+4/−39 lines, 2 filesdep ~ghcidedep ~hls-plugin-apidep ~hls-test-utilsnew-uploaderPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: ghcide, hls-plugin-api, hls-test-utils

API changes (from Hackage documentation)

Files

• hls-call-hierarchy-plugin.cabal +4/−4
• src/Ide/Plugin/CallHierarchy/Internal.hs +0/−35

@@ -1,6 +1,6 @@ cabal-version:      2.4 name:               hls-call-hierarchy-plugin-version:            1.0.2.0+version:            1.0.3.0 synopsis:           Call hierarchy plugin for Haskell Language Server description:   Please see the README on GitHub at <https://github.com/haskell/haskell-language-server/tree/master/plugins/hls-call-hierarchy-plugin#readme>@@ -30,9 +30,9 @@     , containers     , extra     , ghc-    , ghcide                ^>=1.6+    , ghcide                ^>= 1.6 || ^>= 1.7     , hiedb-    , hls-plugin-api        ^>=1.2 || ^>= 1.3+    , hls-plugin-api        ^>= 1.2 || ^>= 1.3 || ^>= 1.4     , lens     , lsp                    >=1.2.0.1     , sqlite-simple@@ -55,7 +55,7 @@     , extra     , filepath     , hls-call-hierarchy-plugin-    , hls-test-utils              ^>=1.2+    , hls-test-utils              ^>=1.3     , lens     , lsp     , lsp-test

@@ -261,8 +261,6 @@   -> Action (Maybe [a]) queryCalls item queryFunc makeFunc merge   | Just nfp <- uriToNormalizedFilePath $ toNormalizedUri uri = do-    refreshHieDb-     ShakeExtras{withHieDb} <- getShakeExtras     maySymbol <- getSymbol nfp     case maySymbol of@@ -298,36 +296,3 @@                 Nothing  -> pure Nothing                 Just res -> pure res               Nothing -> pure Nothing---- Write modified foi files before queries.-refreshHieDb :: Action ()-refreshHieDb = do-    fs <- HM.keys . HM.filter (/= OnDisk) <$> getFilesOfInterestUntracked-    forM_ fs (\f -> do-        tmr <- use_ TypeCheck f-        hsc <- hscEnv <$> use_ GhcSession f-        (_, masts) <- liftIO $ generateHieAsts hsc tmr-        se <- getShakeExtras-        case masts of-            Nothing -> pure ()-            Just asts -> do-                source <- getSourceFileSource f-                let exports = tcg_exports $ tmrTypechecked tmr-                    msum = tmrModSummary tmr-                liftIO $ writeAndIndexHieFile hsc se msum f exports asts source-                pure ()-        )-    ShakeExtras{hiedbWriter} <- getShakeExtras-    liftIO $ atomically $ check $ indexPending hiedbWriter-    where-      check p = do-        v <- readTVar p-        if HM.null v then pure () else retry---- Copy unexport function form `ghcide/src/Development/IDE/Core/Rules.hs`-getSourceFileSource :: NormalizedFilePath -> Action BS.ByteString-getSourceFileSource nfp = do-    (_, msource) <- getFileContents nfp-    case msource of-        Nothing     -> liftIO $ BS.readFile (fromNormalizedFilePath nfp)-        Just source -> pure $ T.encodeUtf8 source