Revision d9f1d93c src/Ganeti/OpParams.hs
| b/src/Ganeti/OpParams.hs | ||
|---|---|---|
| 32 | 32 |
-} |
| 33 | 33 |
|
| 34 | 34 |
module Ganeti.OpParams |
| 35 |
( TagType(..) |
|
| 36 |
, ReplaceDisksMode(..) |
|
| 35 |
( ReplaceDisksMode(..) |
|
| 37 | 36 |
, DiskIndex |
| 38 | 37 |
, mkDiskIndex |
| 39 | 38 |
, unDiskIndex |
| ... | ... | |
| 301 | 300 |
Ok n -> n |
| 302 | 301 |
Bad msg -> error msg |
| 303 | 302 |
|
| 304 |
-- ** Tags |
|
| 305 |
|
|
| 306 |
-- | Data type representing what items do the tag operations apply to. |
|
| 307 |
$(declareSADT "TagType" |
|
| 308 |
[ ("TagTypeInstance", 'C.tagInstance)
|
|
| 309 |
, ("TagTypeNode", 'C.tagNode)
|
|
| 310 |
, ("TagTypeGroup", 'C.tagNodegroup)
|
|
| 311 |
, ("TagTypeCluster", 'C.tagCluster)
|
|
| 312 |
]) |
|
| 313 |
$(makeJSONInstance ''TagType) |
|
| 314 |
|
|
| 315 | 303 |
-- ** Disks |
| 316 | 304 |
|
| 317 | 305 |
-- | Replace disks type. |
Also available in: Unified diff