Revision 5b11f8db htools/Ganeti/HTools/CLI.hs

b/htools/Ganeti/HTools/CLI.hs
199 199 
instance StandardOptions Options where
200 200 
  helpRequested = optShowHelp
201 201 
  verRequested  = optShowVer
202 
  requestHelp   = \opts -> opts { optShowHelp = True }
203 
  requestVer    = \opts -> opts { optShowVer  = True }
202 
  requestHelp o = o { optShowHelp = True }
203 
  requestVer  o = o { optShowVer  = True }
204 204 

  		





  205
  205
  
    
-- * Helper functions


  		





  206
  206
  
    

  		





  ......




  539
  539
  
    
      m_cpu = optMcpu opts


  		





  540
  540
  
    
      m_dsk = optMdsk opts


  		





  541
  541
  
    

  		





  542
  
  
    
  unless (null offline_wrong) $ do


  		





  
  542
  
    
  unless (null offline_wrong) .


  		





  543
  543
  
    
         exitErr $ printf "wrong node name(s) set as offline: %s\n"


  		





  544
  544
  
    
                   (commaJoin (map lrContent offline_wrong))


  		





  545
  545
  
    
  let setMCpuFn = case m_cpu of


  		












Also available in:
  Unified diff