Revision 22278fa7 htools/Ganeti/HTools/Program/Hbal.hs
| b/htools/Ganeti/HTools/Program/Hbal.hs | ||
|---|---|---|
| 24 | 24 |
-} |
| 25 | 25 |
|
| 26 | 26 |
module Ganeti.HTools.Program.Hbal |
| 27 |
( main |
|
| 28 |
, options |
|
| 29 |
, iterateDepth |
|
| 30 |
) where |
|
| 27 |
( main |
|
| 28 |
, options |
|
| 29 |
, arguments |
|
| 30 |
, iterateDepth |
|
| 31 |
) where |
|
| 31 | 32 |
|
| 32 | 33 |
import Control.Concurrent (threadDelay) |
| 33 | 34 |
import Control.Exception (bracket) |
| ... | ... | |
| 48 | 49 |
import qualified Ganeti.HTools.Node as Node |
| 49 | 50 |
import qualified Ganeti.HTools.Instance as Instance |
| 50 | 51 |
|
| 52 |
import Ganeti.Common |
|
| 51 | 53 |
import Ganeti.HTools.CLI |
| 52 | 54 |
import Ganeti.HTools.ExtLoader |
| 53 | 55 |
import Ganeti.HTools.Types |
| ... | ... | |
| 88 | 90 |
, oSaveCluster |
| 89 | 91 |
] |
| 90 | 92 |
|
| 93 |
-- | The list of arguments supported by the program. |
|
| 94 |
arguments :: [ArgCompletion] |
|
| 95 |
arguments = [] |
|
| 96 |
|
|
| 91 | 97 |
{- | Start computing the solution at the given depth and recurse until
|
| 92 | 98 |
we find a valid solution or we exceed the maximum depth. |
| 93 | 99 |
|
Also available in: Unified diff