Revision 71375ef7 htools/Ganeti/HTools/Text.hs
b/htools/Ganeti/HTools/Text.hs | ||
---|---|---|
104 | 104 |
|
105 | 105 |
-- | Generate complete cluster data from node and instance lists. |
106 | 106 |
serializeCluster :: ClusterData -> String |
107 |
serializeCluster (ClusterData gl nl il ctags) = |
|
107 |
serializeCluster (ClusterData gl nl il ctags _) =
|
|
108 | 108 |
let gdata = serializeGroups gl |
109 | 109 |
ndata = serializeNodes gl nl |
110 | 110 |
idata = serializeInstances nl il |
... | ... | |
221 | 221 |
{- instance file: name mem disk status pnode snode -} |
222 | 222 |
(_, il) <- loadTabular ilines (loadInst ktn) |
223 | 223 |
{- the tags are simply line-based, no processing needed -} |
224 |
return (ClusterData gl nl il ctags) |
|
224 |
return (ClusterData gl nl il ctags defIPolicy)
|
|
225 | 225 |
|
226 | 226 |
-- | Top level function for data loading. |
227 | 227 |
loadData :: String -- ^ Path to the text file |
Also available in: Unified diff