From e0c85e0825b87a8574b17390e362f07d48b9d6a4 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Wed, 15 Dec 2010 19:07:57 +0100
Subject: [PATCH] hbal: display the group name in the multi-group case
Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Balazs Lecz <leczb@google.com>
---
hbal.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/hbal.hs b/hbal.hs
index 47ad6b112..408cdb8f9 100644
--- a/hbal.hs
+++ b/hbal.hs
@@ -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
--
GitLab