Revision 59bcd180 src/Ganeti/HsConstants.hs
| b/src/Ganeti/HsConstants.hs | ||
|---|---|---|
| 452 | 452 |
sfUsed :: String |
| 453 | 453 |
sfUsed = Types.storageFieldToRaw SFUsed |
| 454 | 454 |
|
| 455 |
-- * Local disk status |
|
| 456 |
|
|
| 457 |
ldsFaulty :: Int |
|
| 458 |
ldsFaulty = Types.localDiskStatusToRaw DiskStatusFaulty |
|
| 459 |
|
|
| 460 |
ldsOkay :: Int |
|
| 461 |
ldsOkay = Types.localDiskStatusToRaw DiskStatusOk |
|
| 462 |
|
|
| 463 |
ldsUnknown :: Int |
|
| 464 |
ldsUnknown = Types.localDiskStatusToRaw DiskStatusUnknown |
|
| 465 |
|
|
| 466 |
ldsNames :: Map Int String |
|
| 467 |
ldsNames = |
|
| 468 |
Map.fromList [ (Types.localDiskStatusToRaw ds, |
|
| 469 |
localDiskStatusName ds) | ds <- [minBound..] ] |
|
| 470 |
|
|
| 455 | 471 |
-- * Disk template types |
| 456 | 472 |
|
| 457 | 473 |
dtDiskless :: String |
| ... | ... | |
| 503 | 519 |
fdLoop :: String |
| 504 | 520 |
fdLoop = Types.fileDriverToRaw FileLoop |
| 505 | 521 |
|
| 522 |
-- | The set of drbd-like disk types |
|
| 523 |
ldsDrbd :: FrozenSet String |
|
| 524 |
ldsDrbd = ConstantUtils.mkSet [Types.diskTemplateToRaw DTDrbd8] |
|
| 525 |
|
|
| 506 | 526 |
-- * Disk access mode |
| 507 | 527 |
|
| 508 | 528 |
diskRdonly :: String |
Also available in: Unified diff