Commit e0c85e08 authored by Iustin Pop's avatar Iustin Pop
Browse files

hbal: display the group name in the multi-group case


Signed-off-by: default avatarIustin Pop <iustin@google.com>
Reviewed-by: default avatarBalazs Lecz <leczb@google.com>
parent e4d8071d
......@@ -271,7 +271,8 @@ main = do
let ngroups = Cluster.splitCluster nlf ilf
when (length ngroups > 1 && isNothing (optGroup opts)) $ do
hPutStrLn stderr "Found multiple node groups:"
mapM_ (hPutStrLn stderr . (" " ++) . show . fst ) ngroups
mapM_ (hPutStrLn stderr . (" " ++) . Group.name .
(flip Container.find gl) . fst) ngroups
hPutStrLn stderr "Aborting."
exitWith $ ExitFailure 1
......
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