We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent e7cad27 commit cfbc9c5Copy full SHA for cfbc9c5
ghcide/test/exe/Main.hs
@@ -4608,6 +4608,11 @@ bootTests = testCase "boot-def-test" $ runWithExtraFiles "boot" $ \dir -> do
4608
liftIO $ runInDir dir $ do
4609
cDoc <- createDoc cPath "haskell" cSource
4610
_ <- getHover cDoc $ Position 4 3
4611
+ ~() <- skipManyTill anyMessage $ satisfyMaybe $ \case
4612
+ FromServerMess (SCustomMethod "ghcide/reference/ready") (NotMess NotificationMessage{_params = fp}) -> do
4613
+ A.Success fp' <- pure $ fromJSON fp
4614
+ if equalFilePath fp' cPath then pure () else Nothing
4615
+ _ -> Nothing
4616
closeDoc cDoc
4617
4618
cdoc <- createDoc cPath "haskell" cSource
0 commit comments