Revision 89c758c6
| b/htools/Ganeti/HTools/Types.hs | ||
|---|---|---|
| 111 | 111 |
defaultGroupID :: GroupID |
| 112 | 112 |
defaultGroupID = "00000000-0000-0000-0000-000000000000" |
| 113 | 113 |
|
| 114 |
-- | Instance disk template type. |
|
| 115 |
$(THH.declareSADT "DiskTemplate" |
|
| 116 |
[ ("DTDiskless", 'C.dtDiskless)
|
|
| 117 |
, ("DTFile", 'C.dtFile)
|
|
| 118 |
, ("DTSharedFile", 'C.dtSharedFile)
|
|
| 119 |
, ("DTPlain", 'C.dtPlain)
|
|
| 120 |
, ("DTBlock", 'C.dtBlock)
|
|
| 121 |
, ("DTDrbd8", 'C.dtDrbd8)
|
|
| 122 |
]) |
|
| 123 |
$(THH.makeJSONInstance ''DiskTemplate) |
|
| 124 |
|
|
| 114 | 125 |
-- | The Group allocation policy type. |
| 115 | 126 |
-- |
| 116 | 127 |
-- Note that the order of constructors is important as the automatic |
| ... | ... | |
| 245 | 256 |
| FailoverAndReplace Ndx -- ^ Failover, replace secondary (f, r:ns) |
| 246 | 257 |
deriving (Show, Read) |
| 247 | 258 |
|
| 248 |
-- | Instance disk template type. |
|
| 249 |
$(THH.declareSADT "DiskTemplate" |
|
| 250 |
[ ("DTDiskless", 'C.dtDiskless)
|
|
| 251 |
, ("DTFile", 'C.dtFile)
|
|
| 252 |
, ("DTSharedFile", 'C.dtSharedFile)
|
|
| 253 |
, ("DTPlain", 'C.dtPlain)
|
|
| 254 |
, ("DTBlock", 'C.dtBlock)
|
|
| 255 |
, ("DTDrbd8", 'C.dtDrbd8)
|
|
| 256 |
]) |
|
| 257 |
$(THH.makeJSONInstance ''DiskTemplate) |
|
| 258 |
|
|
| 259 | 259 |
-- | Formatted solution output for one move (involved nodes and |
| 260 | 260 |
-- commands. |
| 261 | 261 |
type MoveJob = ([Ndx], Idx, IMove, [String]) |
Also available in: Unified diff