Revision e7aa0b03 src/Ganeti/HTools/Program/Hroller.hs

b/src/Ganeti/HTools/Program/Hroller.hs
277 277 
  let showGroup = if optOneStepOnly opts
278 278 
                    then mapM_ putStrLn
279 279 
                    else putStrLn . commaJoin
280 
      showMoves :: [(String, String)] -> IO ()
280 281 
      showMoves = if optPrintMoves opts
281 282 
                    then mapM_ $ putStrLn . uncurry (printf "  %s %s")
282 283 
                    else const $ return ()

Also available in: Unified diff