diff --git a/Cabal/src/Distribution/Simple/Compiler.hs b/Cabal/src/Distribution/Simple/Compiler.hs
index fbf159f11a6..148733ea7bb 100644
--- a/Cabal/src/Distribution/Simple/Compiler.hs
+++ b/Cabal/src/Distribution/Simple/Compiler.hs
@@ -371,22 +371,32 @@ instance Parsec DebugInfoLevel where
   parsec = parsecDebugInfoLevel
 
 parsecDebugInfoLevel :: CabalParsing m => m DebugInfoLevel
-parsecDebugInfoLevel = flagToDebugInfoLevel . pure <$> parsecToken
+parsecDebugInfoLevel = boolParser <|> intParser
+  where
+    boolParser = bool NoDebugInfo NormalDebugInfo <$> parsec
+    intParser = intToDebugInfoLevel <$> integral
 
 flagToDebugInfoLevel :: Maybe String -> DebugInfoLevel
 flagToDebugInfoLevel Nothing = NormalDebugInfo
 flagToDebugInfoLevel (Just s) = case reads s of
-  [(i, "")]
-    | i >= fromEnum (minBound :: DebugInfoLevel)
-        && i <= fromEnum (maxBound :: DebugInfoLevel) ->
-        toEnum i
-    | otherwise ->
-        error $
-          "Bad debug info level: "
-            ++ show i
-            ++ ". Valid values are 0..3"
+  [(i, "")] -> intToDebugInfoLevel i
   _ -> error $ "Can't parse debug info level " ++ s
 
+intToDebugInfoLevel :: Int -> DebugInfoLevel
+intToDebugInfoLevel i
+  | i >= minLevel && i <= maxLevel = toEnum i
+  | otherwise =
+      error $
+        "Bad debug info level: "
+          ++ show i
+          ++ ". Valid values are "
+          ++ show minLevel
+          ++ ".."
+          ++ show maxLevel
+  where
+    minLevel = fromEnum (minBound :: DebugInfoLevel)
+    maxLevel = fromEnum (maxBound :: DebugInfoLevel)
+
 -- ------------------------------------------------------------
 
 -- * Languages and Extensions
diff --git a/cabal-testsuite/PackageTests/ProjectConfig/DebugInfo/cabal.out b/cabal-testsuite/PackageTests/ProjectConfig/DebugInfo/cabal.out
index 19b2a69fa0a..733b6d5a815 100644
--- a/cabal-testsuite/PackageTests/ProjectConfig/DebugInfo/cabal.out
+++ b/cabal-testsuite/PackageTests/ProjectConfig/DebugInfo/cabal.out
@@ -8,3 +8,6 @@ In order, the following would be built:
 # cabal build
 Warnings found while parsing the project file, cabal.boolean.project:
  - cabal.boolean.project:2:1: The field "debug-info" is specified more than once at positions 2:1, 3:1
+Build profile: -w ghc-<GHCVER> -O1
+In order, the following would be built:
+ - debug-info-0 (lib) (first run)
diff --git a/cabal-testsuite/PackageTests/ProjectConfig/DebugInfo/cabal.test.hs b/cabal-testsuite/PackageTests/ProjectConfig/DebugInfo/cabal.test.hs
index 66fb7f795f0..c0a56a3580b 100644
--- a/cabal-testsuite/PackageTests/ProjectConfig/DebugInfo/cabal.test.hs
+++ b/cabal-testsuite/PackageTests/ProjectConfig/DebugInfo/cabal.test.hs
@@ -6,7 +6,5 @@ main = cabalTest . recordMode RecordMarked $ do
   numeric <- cabal' "build" ["--project-file=cabal.numeric.project", "--dry-run"]
   assertOutputDoesNotContain errMsg numeric
 
-  boolean <- fails $ cabal' "build" ["--project-file=cabal.boolean.project", "--dry-run"]
-  -- TODO: When fixed, change this to assertOutputDoesNotContain.
-  assertOutputContains errMsg boolean
-  pure ()
+  boolean <- cabal' "build" ["--project-file=cabal.boolean.project", "--dry-run"]
+  assertOutputDoesNotContain errMsg boolean
diff --git a/changelog.d/12202.md b/changelog.d/12202.md
new file mode 100644
index 00000000000..ba99c7f4575
--- /dev/null
+++ b/changelog.d/12202.md
@@ -0,0 +1,8 @@
+---
+synopsis: Fix parsing of boolean values ​​to debug-info
+packages: [Cabal]
+prs: 12202
+issues: 12140
+---
+
+`False` values ​​are treated as `NoDebugInfo`, and `True` values ​​are treated as `NormalDebugInfo`.