From 0a01a22d47f64f8fdd55df4a604beb1766deeec4 Mon Sep 17 00:00:00 2001
From: Saad Ahmed <65092551+SaadAhmedGit@users.noreply.github.com>
Date: Fri, 19 Aug 2022 17:19:20 +0500
Subject: [PATCH] Assertions enabled warning now outputs using pre-defined API

---
 cabal-install/main/Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/cabal-install/main/Main.hs b/cabal-install/main/Main.hs
index 76ff7b80c10..7c74359c25d 100644
--- a/cabal-install/main/Main.hs
+++ b/cabal-install/main/Main.hs
@@ -149,7 +149,7 @@ import Distribution.Simple.Program.Db (reconfigurePrograms)
 import qualified Distribution.Simple.Setup as Cabal
 import Distribution.Simple.Utils
          ( cabalVersion, die', dieNoVerbosity, info, notice, topHandler
-         , findPackageDesc, tryFindPackageDesc, createDirectoryIfMissingVerbose )
+         , findPackageDesc, tryFindPackageDesc, createDirectoryIfMissingVerbose, warn )
 import Distribution.Text
          ( display )
 import Distribution.Verbosity as Verbosity
@@ -192,10 +192,10 @@ main = do
 warnIfAssertionsAreEnabled :: IO ()
 warnIfAssertionsAreEnabled =
   assert False (return ()) `catch`
-  (\(_e :: AssertionFailed) -> hPutStrLn stderr assertionsEnabledMsg)
+  (\(_e :: AssertionFailed) -> warn normal assertionsEnabledMsg)
   where
     assertionsEnabledMsg =
-      "Warning: this is a debug build of cabal-install with assertions enabled."
+      "this is a debug build of cabal-install with assertions enabled."
 
 mainWorker :: [String] -> IO ()
 mainWorker args = do