Currently only jobs count is showed. This patch is to show jobs as well according the Issue 357. Swap is applied to jobs in order to show a job name first.
Signed-off-by: Oleg Ponomarev <[email protected]> --- src/Ganeti/Jobs.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Ganeti/Jobs.hs b/src/Ganeti/Jobs.hs index a5bb44c..4024b50 100644 --- a/src/Ganeti/Jobs.hs +++ b/src/Ganeti/Jobs.hs @@ -44,6 +44,7 @@ module Ganeti.Jobs import Control.Concurrent (threadDelay) import Control.Exception (bracket) import Data.List +import Data.Tuple import Data.IORef import System.Exit import System.Posix.Process @@ -67,8 +68,9 @@ execCancelWrapper anno master cref jobs = do cancel <- readIORef cref if cancel > 0 then do - putStrLn $ "Exiting early due to user request, " ++ - show (length jobs) ++ " jobset(s) remaining." + putStrLn "Exiting early due to user request, " + putStrLn $ show (length jobs) ++ " jobset(s) not submitted:" + print $ map swap jobs return $ Ok () else execJobSet anno master cref jobs -- 1.9.1
