We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent b7c4274 commit 41b1085Copy full SHA for 41b1085
ghcide/test/exe/Main.hs
@@ -4359,7 +4359,7 @@ findDefinitionAndHoverTests = let
4359
, tst (getTypeDefinitions, checkDefs) aL20 sourceFilePath (pure [ExpectNoDefinitions]) "Polymorphic variable"]
4360
4361
recordDotSyntaxTests
4362
- | ghcVersion == GHC92 =
+ | ghcVersion >= GHC92 =
4363
[ tst (getHover, checkHover) (Position 19 24) (T.unpack "RecordDotSyntax.hs") (pure [ExpectHoverText ["x :: MyRecord"]]) "hover over parent"
4364
, tst (getHover, checkHover) (Position 19 25) (T.unpack "RecordDotSyntax.hs") (pure [ExpectHoverText ["_ :: MyChild"]]) "hover over dot shows child"
4365
, tst (getHover, checkHover) (Position 19 26) (T.unpack "RecordDotSyntax.hs") (pure [ExpectHoverText ["_ :: MyChild"]]) "hover over child"
0 commit comments