Revision 2c3273e7
b/htools/Ganeti/HTools/Loader.hs | ||
---|---|---|
34 | 34 |
, lookupInstance |
35 | 35 |
, lookupGroup |
36 | 36 |
, commonSuffix |
37 |
, RelocMode(..) |
|
37 | 38 |
, RqType(..) |
38 | 39 |
, Request(..) |
39 | 40 |
, ClusterData(..) |
... | ... | |
59 | 60 |
|
60 | 61 |
-- * Types |
61 | 62 |
|
63 |
-- | The iallocator multi-evac group mode type. |
|
64 |
data RelocMode = KeepGroup |
|
65 |
| ChangeGroup [Gdx] |
|
66 |
| AnyGroup |
|
67 |
deriving (Show, Read) |
|
68 |
|
|
62 | 69 |
{-| The iallocator request type. |
63 | 70 |
|
64 | 71 |
This type denotes what request we got from Ganeti and also holds |
... | ... | |
70 | 77 |
| Relocate Idx Int [Ndx] -- ^ Move an instance to a new |
71 | 78 |
-- secondary node |
72 | 79 |
| Evacuate [Ndx] -- ^ Evacuate nodes |
80 |
| MultiReloc [Idx] RelocMode -- ^ Multi-relocate mode |
|
73 | 81 |
deriving (Show, Read) |
74 | 82 |
|
75 | 83 |
-- | A complete request, as received from Ganeti. |
b/htools/hail.hs | ||
---|---|---|
74 | 74 |
Relocate idx reqn exnodes -> Cluster.tryMGReloc gl nl il |
75 | 75 |
idx reqn exnodes |
76 | 76 |
Evacuate exnodes -> Cluster.tryMGEvac gl nl il exnodes |
77 |
MultiReloc _ _ -> fail "multi-reloc not handled" |
|
77 | 78 |
|
78 | 79 |
-- | Reads the request from the data file(s) |
79 | 80 |
readRequest :: Options -> [String] -> IO Request |
Also available in: Unified diff