Revision 3603605a htools/Ganeti/HTools/Program/Hail.hs
| b/htools/Ganeti/HTools/Program/Hail.hs | ||
|---|---|---|
| 26 | 26 |
module Ganeti.HTools.Program.Hail (main) where |
| 27 | 27 |
|
| 28 | 28 |
import Control.Monad |
| 29 |
import Data.Maybe (fromMaybe) |
|
| 29 | 30 |
import System.Environment (getArgs) |
| 30 | 31 |
import System.IO |
| 31 | 32 |
|
| ... | ... | |
| 74 | 75 |
maybeSaveData savecluster "pre-ialloc" "before iallocator run" cdata |
| 75 | 76 |
|
| 76 | 77 |
let (maybe_ni, resp) = runIAllocator request |
| 77 |
(fin_nl, fin_il) = maybe (cdNodes cdata, cdInstances cdata) id maybe_ni
|
|
| 78 |
(fin_nl, fin_il) = fromMaybe (cdNodes cdata, cdInstances cdata) maybe_ni
|
|
| 78 | 79 |
putStrLn resp |
| 79 | 80 |
|
| 80 | 81 |
maybePrintNodes shownodes "Final cluster" (Cluster.printNodes fin_nl) |
Also available in: Unified diff