Minor refactor: spell out max supported GHC once

ulysses4ever · Dec 22, 2024 · d24d38f · d24d38f
1 parent 5ec4dd1
commit d24d38f
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/Cabal/src/Distribution/Simple/GHC.hs b/Cabal/src/Distribution/Simple/GHC.hs
@@ -163,14 +163,15 @@ configure verbosity hcPath hcPkgPath conf0 = do
       (userMaybeSpecifyPath "ghc" hcPath conf0)
   let implInfo = ghcVersionImplInfo ghcVersion
 
-  -- Cabal currently supports ghc >= 7.0.1 && < 9.12
+  -- Cabal currently supports GHC up to `maxGhcVersion`
   -- ... and the following odd development version
-  unless (ghcVersion < mkVersion [9, 12]) $
+  let maxGhcVersion = mkVersion [9, 14]
+  unless (ghcVersion < maxGhcVersion) $
     warn verbosity $
       "Unknown/unsupported 'ghc' version detected "
         ++ "(Cabal "
         ++ prettyShow cabalVersion
-        ++ " supports 'ghc' version < 9.12): "
+        ++ " supports 'ghc' version < " ++ prettyShow maxGhcVersion ++ "): "
         ++ programPath ghcProg
         ++ " is version "
         ++ prettyShow ghcVersion