Revision a5450d2a src/Ganeti/Types.hs
| b/src/Ganeti/Types.hs | ||
|---|---|---|
| 143 | 143 |
, storageFieldToRaw |
| 144 | 144 |
, DiskAccessMode(..) |
| 145 | 145 |
, diskAccessModeToRaw |
| 146 |
, ReplaceDisksMode(..) |
|
| 147 |
, replaceDisksModeToRaw |
|
| 146 | 148 |
) where |
| 147 | 149 |
|
| 148 | 150 |
import Control.Monad (liftM) |
| ... | ... | |
| 779 | 781 |
, ( "DiskKernelspace", "kernelspace") |
| 780 | 782 |
]) |
| 781 | 783 |
$(THH.makeJSONInstance ''DiskAccessMode) |
| 784 |
|
|
| 785 |
-- | Replace disks type. |
|
| 786 |
$(THH.declareLADT ''String "ReplaceDisksMode" |
|
| 787 |
[ -- Replace disks on primary |
|
| 788 |
("ReplaceOnPrimary", "replace_on_primary")
|
|
| 789 |
-- Replace disks on secondary |
|
| 790 |
, ("ReplaceOnSecondary", "replace_on_secondary")
|
|
| 791 |
-- Change secondary node |
|
| 792 |
, ("ReplaceNewSecondary", "replace_new_secondary")
|
|
| 793 |
, ("ReplaceAuto", "replace_auto")
|
|
| 794 |
]) |
|
| 795 |
$(THH.makeJSONInstance ''ReplaceDisksMode) |
|
Also available in: Unified diff