Revision e7aa0b03

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