|
7 | 7 | {-# LANGUAGE DuplicateRecordFields #-}
|
8 | 8 | {-# LANGUAGE GADTs #-}
|
9 | 9 | {-# LANGUAGE ImplicitParams #-}
|
| 10 | +{-# LANGUAGE MultiWayIf #-} |
10 | 11 | {-# LANGUAGE PatternSynonyms #-}
|
11 | 12 | {-# LANGUAGE PolyKinds #-}
|
12 | 13 | {-# LANGUAGE TypeOperators #-}
|
@@ -81,7 +82,7 @@ import System.Exit (ExitCode (ExitSuccess
|
81 | 82 | import System.FilePath
|
82 | 83 | import System.IO.Extra hiding (withTempDir)
|
83 | 84 | import qualified System.IO.Extra
|
84 |
| -import System.Info.Extra (isWindows) |
| 85 | +import System.Info.Extra (isWindows, isMac) |
85 | 86 | import System.Mem (performGC)
|
86 | 87 | import System.Process.Extra (CreateProcess (cwd),
|
87 | 88 | createPipe, proc,
|
@@ -4047,9 +4048,13 @@ findDefinitionAndHoverTests = let
|
4047 | 4048 | , test no skip cccL17 docLink "Haddock html links"
|
4048 | 4049 | , testM yes yes imported importedSig "Imported symbol"
|
4049 | 4050 | , testM yes yes reexported reexportedSig "Imported symbol (reexported)"
|
4050 |
| - , if ghcVersion == GHC90 && isWindows then |
| 4051 | + , if | ghcVersion == GHC90 && isWindows -> |
4051 | 4052 | test no broken thLocL57 thLoc "TH Splice Hover"
|
4052 |
| - else |
| 4053 | + | ghcVersion == GHC92 && (isWindows || isMac) -> |
| 4054 | + -- Some GHC 9.2 distributions ship without .hi docs |
| 4055 | + -- https://gitlab.haskell.org/ghc/ghc/-/issues/20903 |
| 4056 | + test no broken thLocL57 thLoc "TH Splice Hover" |
| 4057 | + | otherwise -> |
4053 | 4058 | test no yes thLocL57 thLoc "TH Splice Hover"
|
4054 | 4059 | ]
|
4055 | 4060 | where yes, broken :: (TestTree -> Maybe TestTree)
|
|
0 commit comments