Revision 4f83a560 Ganeti/HTools/CLI.hs

b/Ganeti/HTools/CLI.hs
57 57 
    , oMaxCpu
58 58 
    , oMinDisk
59 59 
    , oDiskMoves
60 
    , oDynuFile
60 61 
    , oShowVer
61 62 
    , oShowHelp
62 63 
    ) where
......
103 104 
    , optMcpu      :: Double         -- ^ Max cpu ratio for nodes
104 105 
    , optMdsk      :: Double         -- ^ Max disk usage ratio for nodes
105 106 
    , optDiskMoves :: Bool           -- ^ Allow disk moves
107 
    , optDynuFile  :: Maybe FilePath -- ^ Optional file with dynamic use data
106 108 
    , optVerbose   :: Int            -- ^ Verbosity level
107 109 
    , optShowVer   :: Bool           -- ^ Just show the program version
108 110 
    , optShowHelp  :: Bool           -- ^ Just show the help
......
135 137 
 , optMcpu      = -1
136 138 
 , optMdsk      = -1
137 139 
 , optDiskMoves = True
140 
 , optDynuFile  = Nothing
138 141 
 , optVerbose   = 1
139 142 
 , optShowVer   = False
140 143 
 , optShowHelp  = False
......
271 274 
             "disallow disk moves from the list of allowed instance changes,\
272 275 
             \ thus allowing only the 'cheap' failover/migrate operations"
273 276 

  		





  
  277
  
    
oDynuFile :: OptType


  		





  
  278
  
    
oDynuFile = Option "U" ["dynu-file"]


  		





  
  279
  
    
            (ReqArg (\ f opts -> opts { optDynuFile = Just f }) "FILE")


  		





  
  280
  
    
            "Import dynamic utilisation data from the given FILE"


  		





  
  281
  
    

  		





  274
  282
  
    
oShowVer :: OptType


  		





  275
  283
  
    
oShowVer = Option "V" ["version"]


  		





  276
  284
  
    
           (NoArg (\ opts -> opts { optShowVer = True}))


  		












Also available in:
  Unified diff