Fix maxLevel comparison

haskell · Jan 7, 2025 · 05210a4 · 05210a4
1 parent 3af1299
commit 05210a4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Cabal/src/Distribution/Simple/Compiler.hs b/Cabal/src/Distribution/Simple/Compiler.hs
@@ -334,7 +334,7 @@ intToOptimisationLevel i
           ++ show maxLevel
   where
     minLevel = fromEnum (minBound :: OptimisationLevel)
-    maxLevel = i <= fromEnum (maxBound :: OptimisationLevel)
+    maxLevel = fromEnum (maxBound :: OptimisationLevel)
 
 -- ------------------------------------------------------------