Revision 179c0828 htools/Ganeti/HTools/IAlloc.hs
| b/htools/Ganeti/HTools/IAlloc.hs | ||
|---|---|---|
| 237 | 237 |
" were moved successfully" |
| 238 | 238 |
in Ok (info, showJSON (mes, fes, Cluster.esOpCodes es), fin_nl, fin_il) |
| 239 | 239 |
|
| 240 |
-- | Process a request and return new node lists |
|
| 240 |
-- | Process a request and return new node lists.
|
|
| 241 | 241 |
processRequest :: Request -> Result IAllocResult |
| 242 | 242 |
processRequest request = |
| 243 | 243 |
let Request rqtype (ClusterData gl nl il _) = request |
| ... | ... | |
| 251 | 251 |
Cluster.tryNodeEvac gl nl il mode xi >>= |
| 252 | 252 |
formatNodeEvac gl nl il |
| 253 | 253 |
|
| 254 |
-- | Reads the request from the data file(s) |
|
| 254 |
-- | Reads the request from the data file(s).
|
|
| 255 | 255 |
readRequest :: Options -> [String] -> IO Request |
| 256 | 256 |
readRequest opts args = do |
| 257 | 257 |
when (null args) $ do |
Also available in: Unified diff