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