From 2746a72caa61db93a3c9b9228f5c8e2be5655909 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Mon, 3 Dec 2012 12:41:15 +0100
Subject: [PATCH] hbal: restore nice job ID display
This fixes:
Got job IDs JobId {fromJobId = 1052613}
And restores to:
Got job IDs 1052624
Other improvements could be done here, of course.
Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Guido Trotter <ultrotter@google.com>
---
htools/Ganeti/HTools/Program/Hbal.hs | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/htools/Ganeti/HTools/Program/Hbal.hs b/htools/Ganeti/HTools/Program/Hbal.hs
index fa0728bb0..c7e63728e 100644
--- a/htools/Ganeti/HTools/Program/Hbal.hs
+++ b/htools/Ganeti/HTools/Program/Hbal.hs
@@ -56,6 +56,7 @@ import Ganeti.HTools.CLI
import Ganeti.HTools.ExtLoader
import Ganeti.HTools.Types
import Ganeti.HTools.Loader
+import Ganeti.Types (fromJobId)
import Ganeti.Utils
import qualified Ganeti.Luxi as L
@@ -213,7 +214,8 @@ execJobSet master nl il cref (js:jss) = do
case jids of
Bad e -> return . Bad $ "Job submission error: " ++ formatError e
Ok x -> do
- putStrLn $ "Got job IDs " ++ commaJoin (map show x)
+ putStrLn $ "Got job IDs " ++
+ commaJoin (map (show . fromJobId) x)
waitForJobs client x
)
case jrs of
--
GitLab