Revision e8d4d41e src/Ganeti/HsConstants.hs

b/src/Ganeti/HsConstants.hs
1200 1200
rpcConnectTimeout :: Int
1201 1201
rpcConnectTimeout = 5
1202 1202

  
1203
-- OS
1204

  
1205
osScriptCreate :: String
1206
osScriptCreate = "create"
1207

  
1208
osScriptExport :: String
1209
osScriptExport = "export"
1210

  
1211
osScriptImport :: String
1212
osScriptImport = "import"
1213

  
1214
osScriptRename :: String
1215
osScriptRename = "rename"
1216

  
1217
osScriptVerify :: String
1218
osScriptVerify = "verify"
1219

  
1220
osScripts :: [String]
1221
osScripts = [osScriptCreate, osScriptExport, osScriptImport, osScriptRename,
1222
             osScriptVerify]
1223

  
1224
osApiFile :: String
1225
osApiFile = "ganeti_api_version"
1226

  
1227
osVariantsFile :: String
1228
osVariantsFile = "variants.list"
1229

  
1230
osParametersFile :: String
1231
osParametersFile = "parameters.list"
1232

  
1233
osValidateParameters :: String
1234
osValidateParameters = "parameters"
1235

  
1236
osValidateCalls :: FrozenSet String
1237
osValidateCalls = ConstantUtils.mkSet [osValidateParameters]
1238

  
1239
-- | External Storage (ES) related constants
1240

  
1241
esActionAttach :: String
1242
esActionAttach = "attach"
1243

  
1244
esActionCreate :: String
1245
esActionCreate = "create"
1246

  
1247
esActionDetach :: String
1248
esActionDetach = "detach"
1249

  
1250
esActionGrow :: String
1251
esActionGrow = "grow"
1252

  
1253
esActionRemove :: String
1254
esActionRemove = "remove"
1255

  
1256
esActionSetinfo :: String
1257
esActionSetinfo = "setinfo"
1258

  
1259
esActionVerify :: String
1260
esActionVerify = "verify"
1261

  
1262
esScriptCreate :: String
1263
esScriptCreate = esActionCreate
1264

  
1265
esScriptRemove :: String
1266
esScriptRemove = esActionRemove
1267

  
1268
esScriptGrow :: String
1269
esScriptGrow = esActionGrow
1270

  
1271
esScriptAttach :: String
1272
esScriptAttach = esActionAttach
1273

  
1274
esScriptDetach :: String
1275
esScriptDetach = esActionDetach
1276

  
1277
esScriptSetinfo :: String
1278
esScriptSetinfo = esActionSetinfo
1279

  
1280
esScriptVerify :: String
1281
esScriptVerify = esActionVerify
1282

  
1283
esScripts :: FrozenSet String
1284
esScripts =
1285
  ConstantUtils.mkSet [esScriptAttach,
1286
                       esScriptCreate,
1287
                       esScriptDetach,
1288
                       esScriptGrow,
1289
                       esScriptRemove,
1290
                       esScriptSetinfo,
1291
                       esScriptVerify]
1292

  
1293
esParametersFile :: String
1294
esParametersFile = "parameters.list"
1295

  
1203 1296
-- * VTypes
1204 1297

  
1205 1298
vtypeBool :: VType

Also available in: Unified diff