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