Revision 8d38fb72 src/Ganeti/HTools/Program/Hroller.hs

b/src/Ganeti/HTools/Program/Hroller.hs
58 58 
    , oDataFile
59 59 
    , oIAllocSrc
60 60 
    , oOfflineNode
61 
    , oOfflineMaintenance
61 62 
    , oVerbose
62 63 
    , oQuiet
63 64 
    , oNoHeaders
......
143 144 
                             , hasTag $ optNodeTags opts
144 145 
                             , hasGroup wantedGroup ])
145 146 
              nlf
147 
      mkGraph = if optOfflineMaintenance opts
148 
                   then Node.mkNodeGraph
149 
                   else Node.mkRebootNodeGraph nlf
146 150 

  		





  147
  151
  
    
  -- TODO: fail if instances are running (with option to warn only)


  		





  148
  152
  
    

  		





  149
  
  
    
  nodeGraph <- case Node.mkNodeGraph nodes ilf of


  		





  
  153
  
    
  nodeGraph <- case mkGraph nodes ilf of


  		





  150
  154
  
    
                     Nothing -> exitErr "Cannot create node graph"


  		





  151
  155
  
    
                     Just g -> return g


  		





  152
  156
  
    

  		












Also available in:
  Unified diff