Revision 2c9336a4 htools/Ganeti/HTools/CLI.hs

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

  		












Also available in:
  Unified diff