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