+parseData :: String -- ^ Cluster description in text format
+ -> Result (Node.AssocList, Instance.AssocList, [String])
+parseData ndata = do
+ (cnt, disk, mem, cpu) <- parseDesc ndata
+ let nodes = map (\idx ->
+ let n = Node.create (printf "node%03d" idx)
+ (fromIntegral mem) 0 mem
+ (fromIntegral disk) disk
+ (fromIntegral cpu) False defaultUUID
+ in (idx, Node.setIdx n idx)
+ ) [1..cnt]
+ return (nodes, [], [])
+
+-- | Builds the cluster data from node\/instance files.