@@ -843,6 +843,7 @@ findDefinitionAndHoverTests = let
843843 mclL36 = Position 36 1 ; mcl = [mkR 36 0 36 14]
844844 mclL37 = Position 37 1
845845 docL41 = Position 41 1 ; doc = [ExpectHoverText ["Recognizable docs: kpqz"]]
846+ ; constr = [ExpectHoverText ["Monad m =>"]]
846847 eitL40 = Position 40 28 ; kindE = [ExpectHoverText [":: * -> * -> *\n"]]
847848 intL40 = Position 40 34 ; kindI = [ExpectHoverText [":: *\n"]]
848849 tvrL40 = Position 40 37 ; kindV = [ExpectHoverText [":: * -> *\n"]]
@@ -884,6 +885,7 @@ findDefinitionAndHoverTests = let
884885 , test no broken chrL36 litC "literal Char in hover info #274"
885886 , test no broken txtL8 litT "literal Text in hover info #274"
886887 , test no broken lstL43 litL "literal List in hover info #274"
888+ , test no broken docL41 constr "type constraint in hover info #283"
887889 ]
888890 where yes, broken :: (TestTree -> Maybe TestTree)
889891 yes = Just -- test should run and pass