@@ -187,7 +187,8 @@ tests = let
187
187
holeL65 = Position 65 8 ; hleInfo2 = [ExpectHoverText [" _ :: a -> Maybe a" ]]
188
188
cccL17 = Position 17 16 ; docLink = [ExpectHoverTextRegex " \\ *Defined in 'GHC.Types'\\ * \\ *\\ (ghc-prim-[0-9.]+\\ )\\ *\n\n " ]
189
189
imported = Position 56 13 ; importedSig = getDocUri " Foo.hs" >>= \ foo -> return [ExpectHoverText [" foo" , " Foo" , " Haddock" ], mkL foo 5 0 5 3 ]
190
- reexported = Position 55 14 ; reexportedSig = getDocUri " Bar.hs" >>= \ bar -> return [ExpectHoverText [" Bar" , " Bar" , " Haddock" ], if ghcVersion >= GHC94 && ghcVersion < GHC910 then mkL bar 3 5 3 8 else mkL bar 3 0 3 14 ]
190
+ reexported = Position 55 14
191
+ reexportedSig = getDocUri " Bar.hs" >>= \ bar -> return [ExpectHoverText [" Bar" , " Bar" , " Haddock" ], if ghcVersion >= GHC94 && ghcVersion < GHC910 || not isWindows then mkL bar 3 5 3 8 else mkL bar 3 0 3 14 ]
191
192
thLocL57 = Position 59 10 ; thLoc = [ExpectHoverText [" Identity" ]]
192
193
cmtL68 = Position 67 0 ; lackOfdEq = [ExpectHoverExcludeText [" $dEq" ]]
193
194
import310 = Position 3 10 ; pkgTxt = [ExpectHoverText [" Data.Text\n\n text-" ]]
@@ -237,9 +238,9 @@ tests = let
237
238
, testM yes yes imported importedSig " Imported symbol"
238
239
, if isWindows then
239
240
-- Flaky on Windows: https://github.com/haskell/haskell-language-server/issues/2997
240
- testM no yes reexported reexportedSig " Imported symbol ( reexported) "
241
+ testM no yes reexported reexportedSig " Imported symbol reexported"
241
242
else
242
- testM yes yes reexported reexportedSig " Imported symbol ( reexported) "
243
+ testM yes yes reexported reexportedSig " Imported symbol reexported"
243
244
, test no yes thLocL57 thLoc " TH Splice Hover"
244
245
, test yes yes import310 pkgTxt " show package name and its version"
245
246
]
0 commit comments