Revision 4b763320

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