Revision 4892d955 htools/Ganeti/HTools/ExtLoader.hs
b/htools/Ganeti/HTools/ExtLoader.hs | ||
---|---|---|
44 | 44 |
import qualified Ganeti.HTools.Rapi as Rapi |
45 | 45 |
import qualified Ganeti.HTools.Simu as Simu |
46 | 46 |
import qualified Ganeti.HTools.Text as Text |
47 |
import qualified Ganeti.HTools.IAlloc as IAlloc |
|
47 | 48 |
import Ganeti.HTools.Loader (mergeData, checkData, ClusterData(..) |
48 | 49 |
, commonSuffix) |
49 | 50 |
|
... | ... | |
78 | 79 |
lsock = optLuxi opts |
79 | 80 |
tfile = optDataFile opts |
80 | 81 |
simdata = optNodeSim opts |
82 |
iallocsrc = optIAllocSrc opts |
|
81 | 83 |
setRapi = mhost /= "" |
82 | 84 |
setLuxi = isJust lsock |
83 | 85 |
setSim = (not . null) simdata |
84 | 86 |
setFile = isJust tfile |
87 |
setIAllocSrc = isJust iallocsrc |
|
85 | 88 |
allSet = filter id [setRapi, setLuxi, setFile] |
86 | 89 |
exTags = case optExTags opts of |
87 | 90 |
Nothing -> [] |
... | ... | |
109 | 112 |
| setLuxi -> wrapIO $ Luxi.loadData $ fromJust lsock |
110 | 113 |
| setSim -> Simu.loadData simdata |
111 | 114 |
| setFile -> wrapIO $ Text.loadData $ fromJust tfile |
115 |
| setIAllocSrc -> wrapIO $ IAlloc.loadData $ fromJust iallocsrc |
|
112 | 116 |
| otherwise -> return $ Bad "No backend selected! Exiting." |
113 | 117 |
|
114 | 118 |
let ldresult = input_data >>= mergeData util_data' exTags selInsts exInsts |
Also available in: Unified diff