Revision 10f396e1 Ganeti/HTools/CLI.hs

b/Ganeti/HTools/CLI.hs
37 37
    , oDiskMoves
38 38
    , oDynuFile
39 39
    , oEvacMode
40
    , oExInst
40 41
    , oExTags
41 42
    , oExecJobs
42 43
    , oIDisk
......
87 88
    , optDiskMoves   :: Bool           -- ^ Allow disk moves
88 89
    , optDynuFile    :: Maybe FilePath -- ^ Optional file with dynamic use data
89 90
    , optEvacMode    :: Bool           -- ^ Enable evacuation mode
91
    , optExInst      :: [String]       -- ^ Instances to be excluded
90 92
    , optExTags      :: Maybe [String] -- ^ Tags to use for exclusion
91 93
    , optExecJobs    :: Bool           -- ^ Execute the commands via Luxi
92 94
    , optINodes      :: Int            -- ^ Nodes required for an instance
......
118 120
 , optDiskMoves   = True
119 121
 , optDynuFile    = Nothing
120 122
 , optEvacMode    = False
123
 , optExInst      = []
121 124
 , optExTags      = Nothing
122 125
 , optExecJobs    = False
123 126
 , optINodes      = 2
......
167 170
            "enable evacuation mode, where the algorithm only moves \
168 171
            \ instances away from offline and drained nodes"
169 172

  
173
oExInst :: OptType
174
oExInst = Option "" ["exclude-instances"]
175
          (ReqArg (\ f opts -> Ok opts { optExInst = sepSplit ',' f }) "INSTS")
176
          "exclude given instances  from any moves"
177

  
170 178
oExTags :: OptType
171 179
oExTags = Option "" ["exclusion-tags"]
172 180
            (ReqArg (\ f opts -> Ok opts { optExTags = Just $ sepSplit ',' f })

Also available in: Unified diff