Revision 9fdd3d0f htools/Ganeti/HTools/CLI.hs

b/htools/Ganeti/HTools/CLI.hs
107 107 
  { optDataFile    :: Maybe FilePath -- ^ Path to the cluster data file
108 108 
  , optDiskMoves   :: Bool           -- ^ Allow disk moves
109 109 
  , optInstMoves   :: Bool           -- ^ Allow instance moves
110 
  , optDiskTemplate :: DiskTemplate  -- ^ The requested disk template
110 
  , optDiskTemplate :: Maybe DiskTemplate  -- ^ Override for the disk template
111 111 
  , optDynuFile    :: Maybe FilePath -- ^ Optional file with dynamic use data
112 112 
  , optEvacMode    :: Bool           -- ^ Enable evacuation mode
113 113 
  , optExInst      :: [String]       -- ^ Instances to be excluded
......
146 146 
  { optDataFile    = Nothing
147 147 
  , optDiskMoves   = True
148 148 
  , optInstMoves   = True
149 
  , optDiskTemplate = DTDrbd8
149 
  , optDiskTemplate = Nothing
150 150 
  , optDynuFile    = Nothing
151 151 
  , optEvacMode    = False
152 152 
  , optExInst      = []
......
214 214 
oDiskTemplate = Option "" ["disk-template"]
215 215 
                (ReqArg (\ t opts -> do
216 216 
                           dt <- diskTemplateFromRaw t
217 
                           return $ opts { optDiskTemplate = dt }) "TEMPLATE")
218 
                "select the desired disk template"
217 
                           return $ opts { optDiskTemplate = Just dt })
218 
                 "TEMPLATE") "select the desired disk template"
219 219 

  		





  220
  220
  
    
oSelInst :: OptType


  		





  221
  221
  
    
oSelInst = Option "" ["select-instances"]


  		












Also available in:
  Unified diff