2012/10/5 Iustin Pop <[email protected]>: > --- a/htools/Ganeti/Query/Query.hs > +++ b/htools/Ganeti/Query/Query.hs > @@ -103,7 +103,9 @@ maybeCollectLiveData False _ nodes = > > maybeCollectLiveData True cfg nodes = do > let vgs = [clusterVolumeGroupName $ configCluster cfg] > - hvs = clusterEnabledHypervisors $ configCluster cfg > + hvs = case clusterEnabledHypervisors $ configCluster cfg of > + [] -> [XenPvm] -- this case shouldn't happen, but we handle it
Why do you hardcode XenPvm here? Shouldn't you rather raise an exception or have this in a global place? > + x:_ -> [x] > executeRpcCall nodes (RpcCallNodeInfo vgs hvs) Michael
