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