[PATCH master] hinfo: Adjust the verbosity

[René Nussbaumer]

---
htools/Ganeti/HTools/Program/Hinfo.hs | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/htools/Ganeti/HTools/Program/Hinfo.hs b/htools/Ganeti/HTools/Program/Hinfo.hs
index ad160ae..c49d62e 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,7 +142,7 @@ main opts args = do

(ClusterData gl fixed_nl ilf ctags ipol) <- loadExternalData opts

- when (verbose > 1) $ do
+ when (verbose > 3) $ do
putStrLn $ "Loaded cluster tags: " ++ intercalate "," ctags
putStrLn $ "Loaded cluster ipolicy: " ++ show ipol
putStrLn $ "Loaded node groups: " ++ show gl
--
1.7.7.3

[René Nussbaumer]

---
Adapted as of offline discussion
htools/Ganeti/HTools/Program/Hinfo.hs | 8 ++++----
1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/htools/Ganeti/HTools/Program/Hinfo.hs b/htools/Ganeti/HTools/Program/Hinfo.hs
index ad160ae..5accbdb 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

--
1.7.7.3

[Iustin Pop]

LGTM, thanks!

iustin