Revision 040afc35 hscan.hs
| b/hscan.hs | ||
|---|---|---|
| 21 | 21 |
import qualified Ganeti.HTools.Node as Node |
| 22 | 22 |
import qualified Ganeti.HTools.Instance as Instance |
| 23 | 23 |
import qualified Ganeti.HTools.CLI as CLI |
| 24 |
import Ganeti.HTools.Rapi
|
|
| 24 |
import qualified Ganeti.HTools.Rapi as Rapi
|
|
| 25 | 25 |
import Ganeti.HTools.Utils |
| 26 | 26 |
|
| 27 | 27 |
-- | Command line options structure. |
| ... | ... | |
| 158 | 158 |
do |
| 159 | 159 |
printf "%-*s " nlen name |
| 160 | 160 |
hFlush stdout |
| 161 |
node_data <- getNodes name |
|
| 162 |
inst_data <- getInstances name |
|
| 163 |
let ldresult = join $ |
|
| 164 |
liftM2 Cluster.loadData node_data inst_data |
|
| 161 |
input_data <- Rapi.loadData name |
|
| 162 |
let ldresult = input_data >>= Cluster.loadData |
|
| 165 | 163 |
(case ldresult of |
| 166 | 164 |
Bad err -> printf "\nError: failed to load data. \ |
| 167 | 165 |
\Details:\n%s\n" err |
Also available in: Unified diff