From 7ed65f5a1bc8e040e318ccff395f53a9bbfd8217 Mon Sep 17 00:00:00 2001
From: John Ericson <John.Ericson@Obsidian.Systems>
Date: Fri, 15 Sep 2023 16:44:32 -0400
Subject: [PATCH] hadrian: Increase verbosity of certain cabal commands
This is a hack to get around the cabal function we're calling
*decreasing* the verbosity it passes to another function, which is the
stuff we often actually care about. Sigh.
Keeping this a separate commit so if this makes things too verbose it is
easy to revert.
---
hadrian/src/Hadrian/Haskell/Cabal/Parse.hs | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/hadrian/src/Hadrian/Haskell/Cabal/Parse.hs b/hadrian/src/Hadrian/Haskell/Cabal/Parse.hs
index dbd59beab099..f19f61e3aa70 100644
--- a/hadrian/src/Hadrian/Haskell/Cabal/Parse.hs
+++ b/hadrian/src/Hadrian/Haskell/Cabal/Parse.hs
@@ -194,12 +194,13 @@ copyPackage context@Context {..} = do
C.defaultMainWithHooksNoReadArgs C.autoconfUserHooks gpd
[ "copy", "--builddir", ctxPath, "--target-package-db", pkgDbPath, v ]
+-- | Increase by 1 by because 'simpleUserHooks' calls 'lessVerbose'
shakeVerbosityToCabalFlag :: Verbosity -> String
shakeVerbosityToCabalFlag = \case
Diagnostic -> "-v3"
- Verbose -> "-v2"
+ Verbose -> "-v3"
Silent -> "-v0"
- _ -> "-v1"
+ _ -> "-v2"
-- | What type of file is Main
data MainSourceType = HsMain | CppMain | CMain
--
GitLab