Revision 81879d92 src/Ganeti/HTools/Program/Hsqueeze.hs

b/src/Ganeti/HTools/Program/Hsqueeze.hs
228 228 
      off_cmd =
229 229 
        Cluster.formatCmds off_jobs
230 230 
        ++ "\necho Power Commands\n"
231 
        ++ (toOffline >>= printf "  gnt-node power off -f %s\n" . Node.alias)
231 
        ++ (toOffline >>= printf "  gnt-node power -f off %s\n" . Node.alias)
232 232 
      toOnline = tryOnline minInstance conf onlineCandidates
233 233 
      nodesToOnline = fromMaybe onlineCandidates toOnline
234 234 
      ((fin_on_nl, fin_on_il), on_mvs) =
......
238 238 
      on_jobs = Cluster.splitJobs on_mvs
239 239 
      on_cmd =
240 240 
        "echo Power Commands\n"
241 
        ++ (nodesToOnline >>= printf "  gnt-node power on -f %s\n" . Node.alias)
241 
        ++ (nodesToOnline >>= printf "  gnt-node power -f on %s\n" . Node.alias)
242 242 
        ++ Cluster.formatCmds on_jobs
243 243 

  		





  244
  244
  
    
  when (verbose > 1) . putStrLn 


  		












Also available in:
  Unified diff