Fix broken tests for signatures

haskell · Sep 17, 2022 · 3cc39a3 · 3cc39a3
1 parent a66a6c5
commit 3cc39a3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/plugins/hls-call-hierarchy-plugin/src/Ide/Plugin/CallHierarchy/Internal.hs b/plugins/hls-call-hierarchy-plugin/src/Ide/Plugin/CallHierarchy/Internal.hs
@@ -146,7 +146,7 @@ construct nfp hf (ident, contexts, ssp)
 
     renderTyDecl = case ident of
       Left _ -> Nothing
-      Right name -> case getNameBindingInClass name ssp (getAsts hf) of
+      Right name -> case getNameBinding name (getAsts hf) of
         Nothing -> Nothing
         Just sp -> case resolveIntoCallHierarchy hf (realSrcSpanToRange sp ^. L.start) nfp of
           Just (Just items) -> listToMaybe items

diff --git a/plugins/hls-call-hierarchy-plugin/test/Main.hs b/plugins/hls-call-hierarchy-plugin/test/Main.hs
@@ -166,13 +166,13 @@ prepareCallHierarchyTests =
           expected = mkCallHierarchyItemC "A" SkConstructor range selRange
       oneCaseWithCreate contents 1 13 expected
   , testGroup "type signature"
-      [ knownBrokenForGhcVersions [GHC94] "type signature broken" $ testCase "next line" $ do
+      [ testCase "next line" $ do
           let contents = T.unlines ["a::Int", "a=3"]
               range = mkRange 1 0 1 3
               selRange = mkRange 1 0 1 1
               expected = mkCallHierarchyItemV "a" SkFunction range selRange
           oneCaseWithCreate contents 0 0 expected
-      , knownBrokenForGhcVersions [GHC94] "type signature broken" $ testCase "multi functions" $ do
+      , testCase "multi functions" $ do
           let contents = T.unlines [ "a,b::Int", "a=3", "b=4"]
               range = mkRange 2 0 2 3
               selRange = mkRange 2 0 2 1