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