Revision 2cdaf225 htools/Ganeti/HTools/QC.hs
| b/htools/Ganeti/HTools/QC.hs | ||
|---|---|---|
| 1426 | 1426 |
case genClusterAlloc count node inst of |
| 1427 | 1427 |
Types.Bad msg -> failTest msg |
| 1428 | 1428 |
Types.Ok (nl, il, inst') -> |
| 1429 |
conjoin $ map (\mode -> check_EvacMode defGroup inst' $
|
|
| 1429 |
conjoin . map (\mode -> check_EvacMode defGroup inst' $
|
|
| 1430 | 1430 |
Cluster.tryNodeEvac defGroupList nl il mode |
| 1431 | 1431 |
[Instance.idx inst']) . |
| 1432 | 1432 |
evacModeOptions . |
| ... | ... | |
| 1894 | 1894 |
-- ready |
| 1895 | 1895 |
server <- run $ Luxi.getServer fpath |
| 1896 | 1896 |
-- fork the server responder |
| 1897 |
_ <- run $ forkIO $
|
|
| 1897 |
_ <- run . forkIO $
|
|
| 1898 | 1898 |
bracket |
| 1899 | 1899 |
(Luxi.acceptClient server) |
| 1900 | 1900 |
(\c -> Luxi.closeClient c >> removeFile fpath) |
Also available in: Unified diff