Revision 1b0a6356 htools/Ganeti/HTools/CLI.hs
b/htools/Ganeti/HTools/CLI.hs | ||
---|---|---|
250 | 250 |
oIDisk :: OptType |
251 | 251 |
oIDisk = Option "" ["disk"] |
252 | 252 |
(ReqArg (\ d opts -> do |
253 |
dsk <- annotateResult ("--disk option") (parseUnit d)
|
|
253 |
dsk <- annotateResult "--disk option" (parseUnit d)
|
|
254 | 254 |
let ospec = optISpec opts |
255 | 255 |
nspec = ospec { rspecDsk = dsk } |
256 | 256 |
return $ opts { optISpec = nspec }) "DISK") |
... | ... | |
259 | 259 |
oIMem :: OptType |
260 | 260 |
oIMem = Option "" ["memory"] |
261 | 261 |
(ReqArg (\ m opts -> do |
262 |
mem <- annotateResult ("--memory option") (parseUnit m)
|
|
262 |
mem <- annotateResult "--memory option" (parseUnit m)
|
|
263 | 263 |
let ospec = optISpec opts |
264 | 264 |
nspec = ospec { rspecMem = mem } |
265 | 265 |
return $ opts { optISpec = nspec }) "MEMORY") |
Also available in: Unified diff