Revision 8af72964 src/Ganeti/HTools/CLI.hs

b/src/Ganeti/HTools/CLI.hs
55 55 
  , oGroup
56 56 
  , oIAllocSrc
57 57 
  , oInstMoves
58 
  , oJobDelay
58 59 
  , genOLuxiSocket
59 60 
  , oLuxiSocket
60 61 
  , oMachineReadable
......
118 119 
  , optIAllocSrc   :: Maybe FilePath -- ^ The iallocation spec
119 120 
  , optSelInst     :: [String]       -- ^ Instances to be excluded
120 121 
  , optLuxi        :: Maybe FilePath -- ^ Collect data from Luxi
122 
  , optJobDelay    :: Double         -- ^ Delay before executing first job
121 123 
  , optMachineReadable :: Bool       -- ^ Output machine-readable format
122 124 
  , optMaster      :: String         -- ^ Collect data from RAPI
123 125 
  , optMaxLength   :: Int            -- ^ Stop after this many steps
......
162 164 
  , optIAllocSrc   = Nothing
163 165 
  , optSelInst     = []
164 166 
  , optLuxi        = Nothing
167 
  , optJobDelay    = 10
165 168 
  , optMachineReadable = False
166 169 
  , optMaster      = ""
167 170 
  , optMaxLength   = -1
......
326 329 
   "Specify an iallocator spec as the cluster data source",
327 330 
   OptComplFile)
328 331 

  		





  
  332
  
    
oJobDelay :: OptType


  		





  
  333
  
    
oJobDelay =


  		





  
  334
  
    
  (Option "" ["job-delay"]


  		





  
  335
  
    
   (reqWithConversion (tryRead "job delay")


  		





  
  336
  
    
    (\d opts -> Ok opts { optJobDelay = d }) "SECONDS")


  		





  
  337
  
    
   "insert this much delay before the execution of repair jobs\


  		





  
  338
  
    
   \ to allow the tool to continue processing instances",


  		





  
  339
  
    
   OptComplFloat)


  		





  
  340
  
    

  		





  329
  341
  
    
genOLuxiSocket :: String -> OptType


  		





  330
  342
  
    
genOLuxiSocket defSocket =


  		





  331
  343
  
    
  (Option "L" ["luxi"]


  		












Also available in:
  Unified diff