From 14fbd75bb7a29e04c4cc459a5f43625829fccdda Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ren=C3=A9=20Nussbaumer?= <rn@google.com>
Date: Thu, 1 Mar 2012 10:54:54 +0100
Subject: [PATCH] hinfo: Adjust the verbosity
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Signed-off-by: RenΓ© Nussbaumer <rn@google.com>
Reviewed-by: Iustin Pop <iustin@google.com>
---
htools/Ganeti/HTools/Program/Hinfo.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/htools/Ganeti/HTools/Program/Hinfo.hs b/htools/Ganeti/HTools/Program/Hinfo.hs
index ad160aed9..5accbdb65 100644
--- a/htools/Ganeti/HTools/Program/Hinfo.hs
+++ b/htools/Ganeti/HTools/Program/Hinfo.hs
@@ -126,7 +126,7 @@ commonInfo verbose gl nl il = do
gl_size (plural gl_size "node group" "node groups")::IO ()
let csf = commonSuffix nl il
- when (not (null csf) && verbose > 1) $
+ when (not (null csf) && verbose > 2) $
printf "Note: Stripping common suffix of '%s' from names\n" csf
-- | Main function.
@@ -142,10 +142,10 @@ main opts args = do
(ClusterData gl fixed_nl ilf ctags ipol) <- loadExternalData opts
- when (verbose > 1) $ do
- putStrLn $ "Loaded cluster tags: " ++ intercalate "," ctags
+ putStrLn $ "Loaded cluster tags: " ++ intercalate "," ctags
+
+ when (verbose > 2) $ do
putStrLn $ "Loaded cluster ipolicy: " ++ show ipol
- putStrLn $ "Loaded node groups: " ++ show gl
nlf <- setNodeStatus opts fixed_nl
--
GitLab