Skip to content

Commit 3cc39a3

Browse files
committed
Fix broken tests for signatures
1 parent a66a6c5 commit 3cc39a3

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

plugins/hls-call-hierarchy-plugin/src/Ide/Plugin/CallHierarchy/Internal.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -146,7 +146,7 @@ construct nfp hf (ident, contexts, ssp)
146146

147147
renderTyDecl = case ident of
148148
Left _ -> Nothing
149-
Right name -> case getNameBindingInClass name ssp (getAsts hf) of
149+
Right name -> case getNameBinding name (getAsts hf) of
150150
Nothing -> Nothing
151151
Just sp -> case resolveIntoCallHierarchy hf (realSrcSpanToRange sp ^. L.start) nfp of
152152
Just (Just items) -> listToMaybe items

plugins/hls-call-hierarchy-plugin/test/Main.hs

+2-2
Original file line numberDiff line numberDiff line change
@@ -166,13 +166,13 @@ prepareCallHierarchyTests =
166166
expected = mkCallHierarchyItemC "A" SkConstructor range selRange
167167
oneCaseWithCreate contents 1 13 expected
168168
, testGroup "type signature"
169-
[ knownBrokenForGhcVersions [GHC94] "type signature broken" $ testCase "next line" $ do
169+
[ testCase "next line" $ do
170170
let contents = T.unlines ["a::Int", "a=3"]
171171
range = mkRange 1 0 1 3
172172
selRange = mkRange 1 0 1 1
173173
expected = mkCallHierarchyItemV "a" SkFunction range selRange
174174
oneCaseWithCreate contents 0 0 expected
175-
, knownBrokenForGhcVersions [GHC94] "type signature broken" $ testCase "multi functions" $ do
175+
, testCase "multi functions" $ do
176176
let contents = T.unlines [ "a,b::Int", "a=3", "b=4"]
177177
range = mkRange 2 0 2 3
178178
selRange = mkRange 2 0 2 1

0 commit comments

Comments
 (0)