Revision 7d81bb8b src/Ganeti/Constants.hs

b/src/Ganeti/Constants.hs
1322 1322
esActionVerify :: String
1323 1323
esActionVerify = "verify"
1324 1324

  
1325
esActionSnapshot :: String
1326
esActionSnapshot = "snapshot"
1327

  
1325 1328
esScriptCreate :: String
1326 1329
esScriptCreate = esActionCreate
1327 1330

  
......
1343 1346
esScriptVerify :: String
1344 1347
esScriptVerify = esActionVerify
1345 1348

  
1349
esScriptSnapshot :: String
1350
esScriptSnapshot = esActionSnapshot
1351

  
1346 1352
esScripts :: FrozenSet String
1347 1353
esScripts =
1348 1354
  ConstantUtils.mkSet [esScriptAttach,
......
1351 1357
                       esScriptGrow,
1352 1358
                       esScriptRemove,
1353 1359
                       esScriptSetinfo,
1354
                       esScriptVerify]
1360
                       esScriptVerify,
1361
                       esScriptSnapshot]
1355 1362

  
1356 1363
esParametersFile :: String
1357 1364
esParametersFile = "parameters.list"
......
2316 2323
idiskAccess :: String
2317 2324
idiskAccess = "access"
2318 2325

  
2326
idiskSnapshotName :: String
2327
idiskSnapshotName = "snapshot_name"
2328

  
2319 2329
idiskParamsTypes :: Map String VType
2320 2330
idiskParamsTypes =
2321 2331
  Map.fromList [(idiskSize, VTypeSize),
......
2326 2336
                (idiskMetavg, VTypeString),
2327 2337
                (idiskProvider, VTypeString),
2328 2338
                (idiskAccess, VTypeString),
2339
                (idiskSnapshotName, VTypeString),
2329 2340
                (idiskName, VTypeMaybeString)]
2330 2341

  
2331 2342
idiskParams :: FrozenSet String

Also available in: Unified diff