Revision 22278fa7 htools/Ganeti/HTools/Program/Hspace.hs
| b/htools/Ganeti/HTools/Program/Hspace.hs | ||
|---|---|---|
| 23 | 23 |
|
| 24 | 24 |
-} |
| 25 | 25 |
|
| 26 |
module Ganeti.HTools.Program.Hspace (main, options) where |
|
| 26 |
module Ganeti.HTools.Program.Hspace |
|
| 27 |
(main |
|
| 28 |
, options |
|
| 29 |
, arguments |
|
| 30 |
) where |
|
| 27 | 31 |
|
| 28 | 32 |
import Control.Monad |
| 29 | 33 |
import Data.Char (toUpper, toLower) |
| ... | ... | |
| 40 | 44 |
import qualified Ganeti.HTools.Node as Node |
| 41 | 45 |
import qualified Ganeti.HTools.Instance as Instance |
| 42 | 46 |
|
| 47 |
import Ganeti.Common |
|
| 43 | 48 |
import Ganeti.HTools.Types |
| 44 | 49 |
import Ganeti.HTools.CLI |
| 45 | 50 |
import Ganeti.HTools.ExtLoader |
| ... | ... | |
| 69 | 74 |
, oSaveCluster |
| 70 | 75 |
] |
| 71 | 76 |
|
| 77 |
-- | The list of arguments supported by the program. |
|
| 78 |
arguments :: [ArgCompletion] |
|
| 79 |
arguments = [] |
|
| 80 |
|
|
| 72 | 81 |
-- | The allocation phase we're in (initial, after tiered allocs, or |
| 73 | 82 |
-- after regular allocation). |
| 74 | 83 |
data Phase = PInitial |
Also available in: Unified diff