File tree Expand file tree Collapse file tree 1 file changed +1
-1
lines changed Expand file tree Collapse file tree 1 file changed +1
-1
lines changed Original file line number Diff line number Diff line change @@ -4359,7 +4359,7 @@ findDefinitionAndHoverTests = let
4359
4359
, tst (getTypeDefinitions, checkDefs) aL20 sourceFilePath (pure [ExpectNoDefinitions ]) " Polymorphic variable" ]
4360
4360
4361
4361
recordDotSyntaxTests
4362
- | ghcVersion = = GHC92 =
4362
+ | ghcVersion > = GHC92 =
4363
4363
[ tst (getHover, checkHover) (Position 19 24 ) (T. unpack " RecordDotSyntax.hs" ) (pure [ExpectHoverText [" x :: MyRecord" ]]) " hover over parent"
4364
4364
, tst (getHover, checkHover) (Position 19 25 ) (T. unpack " RecordDotSyntax.hs" ) (pure [ExpectHoverText [" _ :: MyChild" ]]) " hover over dot shows child"
4365
4365
, tst (getHover, checkHover) (Position 19 26 ) (T. unpack " RecordDotSyntax.hs" ) (pure [ExpectHoverText [" _ :: MyChild" ]]) " hover over child"
You can’t perform that action at this time.
0 commit comments