hls-call-hierarchy-plugin 2.2.0.0 → 2.3.0.0

raw patch · 2 files changed

+8/−8 lines, 2 filesdep ~ghcidedep ~hls-plugin-apidep ~hls-test-utilsPVP 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
• test/Main.hs +4/−4

@@ -1,6 +1,6 @@ cabal-version:      2.4 name:               hls-call-hierarchy-plugin-version:            2.2.0.0+version:            2.3.0.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>@@ -33,9 +33,9 @@     , base                  >=4.12 && <5     , containers     , extra-    , ghcide                == 2.2.0.0+    , ghcide                == 2.3.0.0     , hiedb-    , hls-plugin-api        == 2.2.0.0+    , hls-plugin-api        == 2.3.0.0     , lens     , lsp                    >=2.2.0.0     , sqlite-simple@@ -59,7 +59,7 @@     , extra     , filepath     , hls-call-hierarchy-plugin-    , hls-test-utils              == 2.2.0.0+    , hls-test-utils              == 2.3.0.0     , ghcide-test-utils     , lens     , lsp

@@ -8,7 +8,7 @@  import           Control.Lens               (set, (^.)) import           Control.Monad.Extra-import           Data.Aeson+import qualified Data.Aeson                 as Aeson import           Data.Functor               ((<&>)) import           Data.List                  (sort, tails) import qualified Data.Map                   as M@@ -527,9 +527,9 @@     assertHierarchyItem selRange selRange'     case xdata' of       Nothing -> assertFailure ("In " ++ show c ++ ", got Nothing for data but wanted " ++ show xdata)-      Just v -> case fromJSON v of-        Success v -> assertBool ("In " ++ show c ++ " wanted data prefix: " ++ show xdata) (xdata `T.isPrefixOf` v)-        Error err -> assertFailure ("In " ++ show c ++ " wanted data prefix: " ++ show xdata ++ " but json parsing failed with " ++ show err)+      Just v -> case Aeson.fromJSON v of+        Aeson.Success v -> assertBool ("In " ++ show c ++ " wanted data prefix: " ++ show xdata) (xdata `T.isPrefixOf` v)+        Aeson.Error err -> assertFailure ("In " ++ show c ++ " wanted data prefix: " ++ show xdata ++ " but json parsing failed with " ++ show err)   where     tags = Nothing     detail = Just "Main"