Commit 14fbd75b authored by René Nussbaumer's avatar René Nussbaumer
Browse files

hinfo: Adjust the verbosity


Signed-off-by: default avatarRené Nussbaumer <rn@google.com>
Reviewed-by: default avatarIustin Pop <iustin@google.com>
parent d0a14556
......@@ -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
when (verbose > 2) $ do
putStrLn $ "Loaded cluster ipolicy: " ++ show ipol
putStrLn $ "Loaded node groups: " ++ show gl
nlf <- setNodeStatus opts fixed_nl
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment