Accept broken call-hierarchy tests

Author: wz1000

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"
-      [ testCase "next line" $ do
+      [ knownBrokenForGhcVersions [GHC94] "type signature broken" $ 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
-      , testCase "multi functions" $ do
+      , knownBrokenForGhcVersions [GHC94] "type signature broken" $ 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