Skip to content

Commit 7546d4b

Browse files
committed
Fix two hover tests
1 parent 6505233 commit 7546d4b

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

ghcide/test/exe/Main.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3978,8 +3978,8 @@ findDefinitionAndHoverTests = let
39783978
spaceL37 = Position 41 24 ; space = [ExpectNoDefinitions, ExpectHoverText [":: Char"]]
39793979
docL41 = Position 45 1 ; doc = [ExpectHoverText ["Recognizable docs: kpqz"]]
39803980
; constr = [ExpectHoverText ["Monad m"]]
3981-
eitL40 = Position 44 28 ; kindE = [ExpectHoverText [":: * -> * -> *\n"]]
3982-
intL40 = Position 44 34 ; kindI = [ExpectHoverText [":: *\n"]]
3981+
eitL40 = Position 44 28 ; kindE = [ExpectHoverText [if ghcVersion >= GHC92 then ":: Type -> Type -> Type\n" else ":: * -> * -> *\n"]]
3982+
intL40 = Position 44 34 ; kindI = [ExpectHoverText [if ghcVersion >= GHC92 then ":: Type\n" else ":: *\n"]]
39833983
tvrL40 = Position 44 37 ; kindV = [ExpectHoverText [":: * -> *\n"]]
39843984
intL41 = Position 45 20 ; litI = [ExpectHoverText ["7518"]]
39853985
chrL36 = Position 41 24 ; litC = [ExpectHoverText ["'f'"]]

0 commit comments

Comments
 (0)