Revision 22278fa7 htools/Ganeti/HTools/Program/Hscan.hs
b/htools/Ganeti/HTools/Program/Hscan.hs | ||
---|---|---|
23 | 23 |
|
24 | 24 |
-} |
25 | 25 |
|
26 |
module Ganeti.HTools.Program.Hscan (main, options) where |
|
26 |
module Ganeti.HTools.Program.Hscan |
|
27 |
( main |
|
28 |
, options |
|
29 |
, arguments |
|
30 |
) where |
|
27 | 31 |
|
28 | 32 |
import Control.Monad |
29 | 33 |
import Data.Maybe (isJust, fromJust, fromMaybe) |
... | ... | |
43 | 47 |
import Ganeti.HTools.Loader (checkData, mergeData, ClusterData(..)) |
44 | 48 |
import Ganeti.HTools.Text (serializeCluster) |
45 | 49 |
|
50 |
import Ganeti.Common |
|
46 | 51 |
import Ganeti.HTools.CLI |
47 | 52 |
import Ganeti.HTools.Types |
48 | 53 |
|
... | ... | |
56 | 61 |
, oNoHeaders |
57 | 62 |
] |
58 | 63 |
|
64 |
-- | The list of arguments supported by the program. |
|
65 |
arguments :: [ArgCompletion] |
|
66 |
arguments = [ArgCompletion OptComplHost 0 Nothing] |
|
67 |
|
|
59 | 68 |
-- | Return a one-line summary of cluster state. |
60 | 69 |
printCluster :: Node.List -> Instance.List |
61 | 70 |
-> String |
Also available in: Unified diff