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