Revision 4b763320 src/Ganeti/Query/Node.hs
b/src/Ganeti/Query/Node.hs | ||
---|---|---|
43 | 43 |
import Ganeti.Query.Language |
44 | 44 |
import Ganeti.Query.Common |
45 | 45 |
import Ganeti.Query.Types |
46 |
import Ganeti.Storage.Utils
|
|
46 |
import qualified Ganeti.Types as T
|
|
47 | 47 |
import Ganeti.Utils (niceSort) |
48 | 48 |
|
49 | 49 |
-- | Runtime is the resulting type for NodeInfo call. |
... | ... | |
233 | 233 |
collectLiveData False _ nodes = |
234 | 234 |
return $ zip nodes (repeat $ Left (RpcResultError "Live data disabled")) |
235 | 235 |
collectLiveData True cfg nodes = do |
236 |
let storage_units = getClusterStorageUnits cfg |
|
236 |
let vgs = maybeToList . clusterVolumeGroupName $ configCluster cfg |
|
237 |
-- FIXME: This currently sets every storage unit to LVM |
|
238 |
storage_units = zip (repeat T.StorageLvmVg) vgs ++ |
|
239 |
zip (repeat T.StorageLvmPv) vgs |
|
237 | 240 |
hvs = [getDefaultHypervisorSpec cfg] |
238 | 241 |
step n (bn, gn, em) = |
239 | 242 |
let ndp' = getNodeNdParams cfg n |
Also available in: Unified diff