diff --git a/Distribution/Simple/GHC.hs b/Distribution/Simple/GHC.hs
index 9c5271c0b63..e9705cca89d 100644
--- a/Distribution/Simple/GHC.hs
+++ b/Distribution/Simple/GHC.hs
@@ -714,7 +714,7 @@ constructCcCmdLine lbi bi pref filename verbosity
      in
         (odir,
          ghcCcOptions lbi bi odir
-         ++ (if verbosity > deafening then ["-v"] else [])
+         ++ (if verbosity >= deafening then ["-v"] else [])
          ++ ["-c",filename])
 
 
diff --git a/Distribution/Simple/Haddock.hs b/Distribution/Simple/Haddock.hs
index 7394ad74dd6..1e089b78f04 100644
--- a/Distribution/Simple/Haddock.hs
+++ b/Distribution/Simple/Haddock.hs
@@ -160,7 +160,7 @@ haddock pkg_descr lbi suffixes flags = do
     let cssFileFlag = case flagToMaybe $ haddockCss flags of
                         Nothing -> []
                         Just cssFile -> ["--css=" ++ cssFile]
-    let verboseFlags = if verbosity > deafening then ["--verbose"] else []
+    let verboseFlags = if verbosity >= deafening then ["--verbose"] else []
     when (hsColour && not have_src_hyperlink_flags) $
          die "haddock --hyperlink-source requires Haddock version 0.8 or later"
     let linkToHscolour = if hsColour
diff --git a/Distribution/Simple/NHC.hs b/Distribution/Simple/NHC.hs
index 0f1131417c3..b15809bbdfc 100644
--- a/Distribution/Simple/NHC.hs
+++ b/Distribution/Simple/NHC.hs
@@ -160,7 +160,7 @@ build pkg_descr lbi verbosity = do
     -- build any C sources
     unless (null (cSources bi)) $ do
        info verbosity "Building C Sources..."
-       let commonCcArgs = (if verbosity > deafening then ["-v"] else [])
+       let commonCcArgs = (if verbosity >= deafening then ["-v"] else [])
                        ++ ["-I" ++ dir | dir <- includeDirs bi]
                        ++ [opt | opt <- ccOptions bi]
                        ++ (if withOptimization lbi then ["-O2"] else [])