Revision 313fdabc src/Ganeti/HTools/CLI.hs

b/src/Ganeti/HTools/CLI.hs
69 69 
  , oNoHeaders
70 70 
  , oNoSimulation
71 71 
  , oNodeSim
72 
  , oNodeTags
72 73 
  , oOfflineNode
73 74 
  , oOutputDir
74 75 
  , oPrintCommands
......
135 136 
  , optNoHeaders   :: Bool           -- ^ Do not show a header line
136 137 
  , optNoSimulation :: Bool          -- ^ Skip the rebalancing dry-run
137 138 
  , optNodeSim     :: [String]       -- ^ Cluster simulation mode
139 
  , optNodeTags    :: Maybe [String] -- ^ List of node tags to restrict to
138 140 
  , optOffline     :: [String]       -- ^ Names of offline nodes
139 141 
  , optOutPath     :: FilePath       -- ^ Path to the output directory
140 142 
  , optSaveCluster :: Maybe FilePath -- ^ Save cluster state to this file
......
182 184 
  , optNoHeaders   = False
183 185 
  , optNoSimulation = False
184 186 
  , optNodeSim     = []
187 
  , optNodeTags    = Nothing
185 188 
  , optOffline     = []
186 189 
  , optOutPath     = "."
187 190 
  , optSaveCluster = Nothing
......
452 455 
   \ 'alloc_policy,num_nodes,disk,ram,cpu'",
453 456 
   OptComplString)
454 457 

  		





  
  458
  
    
oNodeTags :: OptType


  		





  
  459
  
    
oNodeTags =


  		





  
  460
  
    
  (Option "" ["node-tags"]


  		





  
  461
  
    
   (ReqArg (\ f opts -> Ok opts { optNodeTags = Just $ sepSplit ',' f })


  		





  
  462
  
    
    "TAG,...") "Restrict to nodes with the given tags",


  		





  
  463
  
    
   OptComplString)


  		





  
  464
  
    
     


  		





  455
  465
  
    
oOfflineNode :: OptType


  		





  456
  466
  
    
oOfflineNode =


  		





  457
  467
  
    
  (Option "O" ["offline"]


  		












Also available in:
  Unified diff