Revision 5f828ce4 htools/Ganeti/HTools/CLI.hs

b/htools/Ganeti/HTools/CLI.hs
200 200 
oDiskTemplate :: OptType
201 201 
oDiskTemplate = Option "" ["disk-template"]
202 202 
                (ReqArg (\ t opts -> do
203 
                           dt <- diskTemplateFromString t
203 
                           dt <- diskTemplateFromRaw t
204 204 
                           return $ opts { optDiskTemplate = dt }) "TEMPLATE")
205 205 
                "select the desired disk template"
206 206 

  		












Also available in:
  Unified diff