Revision 22278fa7 htools/Ganeti/HTools/Program/Hail.hs
| b/htools/Ganeti/HTools/Program/Hail.hs | ||
|---|---|---|
| 23 | 23 |
|
| 24 | 24 |
-} |
| 25 | 25 |
|
| 26 |
module Ganeti.HTools.Program.Hail (main, options) where |
|
| 26 |
module Ganeti.HTools.Program.Hail |
|
| 27 |
( main |
|
| 28 |
, options |
|
| 29 |
, arguments |
|
| 30 |
) where |
|
| 27 | 31 |
|
| 28 | 32 |
import Control.Monad |
| 29 | 33 |
import Data.Maybe (fromMaybe, isJust) |
| ... | ... | |
| 32 | 36 |
|
| 33 | 37 |
import qualified Ganeti.HTools.Cluster as Cluster |
| 34 | 38 |
|
| 39 |
import Ganeti.Common |
|
| 35 | 40 |
import Ganeti.HTools.CLI |
| 36 | 41 |
import Ganeti.HTools.IAlloc |
| 37 | 42 |
import Ganeti.HTools.Loader (Request(..), ClusterData(..)) |
| ... | ... | |
| 47 | 52 |
, oVerbose |
| 48 | 53 |
] |
| 49 | 54 |
|
| 55 |
-- | The list of arguments supported by the program. |
|
| 56 |
arguments :: [ArgCompletion] |
|
| 57 |
arguments = [ArgCompletion OptComplFile 1 (Just 1)] |
|
| 58 |
|
|
| 50 | 59 |
wrapReadRequest :: Options -> [String] -> IO Request |
| 51 | 60 |
wrapReadRequest opts args = do |
| 52 | 61 |
when (null args) $ do |
Also available in: Unified diff