Revision c478f837 htools/hscan.hs
| b/htools/hscan.hs | ||
|---|---|---|
| 1 |
{-# LANGUAGE CPP #-}
|
|
| 2 |
|
|
| 3 | 1 |
{-| Scan clusters via RAPI or LUXI and write state data files.
|
| 4 | 2 |
|
| 5 | 3 |
-} |
| ... | ... | |
| 40 | 38 |
import qualified Ganeti.HTools.Cluster as Cluster |
| 41 | 39 |
import qualified Ganeti.HTools.Node as Node |
| 42 | 40 |
import qualified Ganeti.HTools.Instance as Instance |
| 43 |
#ifndef NO_CURL |
|
| 44 | 41 |
import qualified Ganeti.HTools.Rapi as Rapi |
| 45 |
#endif |
|
| 46 | 42 |
import qualified Ganeti.HTools.Luxi as Luxi |
| 47 | 43 |
import Ganeti.HTools.Loader (checkData, mergeData, ClusterData(..)) |
| 48 | 44 |
import Ganeti.HTools.Text (serializeCluster) |
| ... | ... | |
| 155 | 151 |
result <- writeData nlen name opts input_data |
| 156 | 152 |
unless result $ exitWith $ ExitFailure 2 |
| 157 | 153 |
|
| 158 |
#ifndef NO_CURL |
|
| 159 | 154 |
results <- mapM (\name -> Rapi.loadData name >>= writeData nlen name opts) |
| 160 | 155 |
clusters |
| 161 | 156 |
unless (all id results) $ exitWith (ExitFailure 2) |
| 162 |
#else |
|
| 163 |
when (not $ null clusters) $ do |
|
| 164 |
putStrLn "RAPI/curl backend disabled at compile time, cannot scan clusters" |
|
| 165 |
exitWith $ ExitFailure 1 |
|
| 166 |
#endif |
|
Also available in: Unified diff