module Ganeti.HTools.Simu
(
loadData
+ , parseData
) where
-import Control.Monad
import Text.Printf (printf)
import Ganeti.HTools.Utils
_ -> fail "Invalid cluster specification"
-- | Builds the cluster data from node\/instance files.
+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.
loadData :: String -- ^ Cluster description in text format
- -> IO (Result (Node.AssocList, Instance.AssocList))
-loadData ndata = -- IO monad, just for consistency with the other loaders
- return $ 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
- in (idx, Node.setIdx n idx)
- ) [1..cnt]
- return (nodes, [])
+ -> IO (Result (Node.AssocList, Instance.AssocList, [String]))
+loadData = -- IO monad, just for consistency with the other loaders
+ return . parseData