Revision 64b0309a src/Ganeti/Query/Node.hs
b/src/Ganeti/Query/Node.hs | ||
---|---|---|
31 | 31 |
|
32 | 32 |
import Control.Applicative |
33 | 33 |
import Data.List |
34 |
import Data.Maybe |
|
34 | 35 |
import qualified Data.Map as Map |
35 | 36 |
import qualified Text.JSON as J |
36 | 37 |
|
... | ... | |
221 | 222 |
maybeCollectLiveData False _ nodes = |
222 | 223 |
return $ zip nodes (repeat $ Left (RpcResultError "Live data disabled")) |
223 | 224 |
maybeCollectLiveData True cfg nodes = do |
224 |
let vgs = [clusterVolumeGroupName $ configCluster cfg]
|
|
225 |
let vgs = maybeToList . clusterVolumeGroupName $ configCluster cfg
|
|
225 | 226 |
hvs = [getDefaultHypervisor cfg] |
226 | 227 |
step n (bn, gn, em) = |
227 | 228 |
let ndp' = getNodeNdParams cfg n |
Also available in: Unified diff