Revision a5450d2a src/Ganeti/OpParams.hs
| b/src/Ganeti/OpParams.hs | ||
|---|---|---|
| 301 | 301 |
|
| 302 | 302 |
-- ** Disks |
| 303 | 303 |
|
| 304 |
-- | Replace disks type. |
|
| 305 |
$(declareSADT "ReplaceDisksMode" |
|
| 306 |
[ ("ReplaceOnPrimary", 'C.replaceDiskPri)
|
|
| 307 |
, ("ReplaceOnSecondary", 'C.replaceDiskSec)
|
|
| 308 |
, ("ReplaceNewSecondary", 'C.replaceDiskChg)
|
|
| 309 |
, ("ReplaceAuto", 'C.replaceDiskAuto)
|
|
| 310 |
]) |
|
| 311 |
$(makeJSONInstance ''ReplaceDisksMode) |
|
| 312 |
|
|
| 313 | 304 |
-- | Disk index type (embedding constraints on the index value via a |
| 314 | 305 |
-- smart constructor). |
| 315 | 306 |
newtype DiskIndex = DiskIndex { unDiskIndex :: Int }
|
Also available in: Unified diff