Revision d752eb39 Ganeti/HTools/Instance.hs

b/Ganeti/HTools/Instance.hs
37 37 
data Instance = Instance { name :: String   -- ^ The instance name
38 38 
                         , mem :: Int       -- ^ Memory of the instance
39 39 
                         , dsk :: Int       -- ^ Disk size of instance
40 
                         , vcpus :: Int     -- ^ Number of VCPUs
40 41 
                         , running :: Bool  -- ^ Whether the instance
41 42 
                                            -- is running
42 43 
                         , run_st :: String -- ^ Original (text) run status
......
64 65 
--
65 66 
-- Some parameters are not initialized by function, and must be set
66 67 
-- later (via 'setIdx' for example).
67 
create :: String -> Int -> Int -> String -> T.Ndx -> T.Ndx -> Instance
68 
create name_init mem_init dsk_init run_init pn sn =
68 
create :: String -> Int -> Int -> Int -> String -> T.Ndx -> T.Ndx -> Instance
69 
create name_init mem_init dsk_init vcpus_init run_init pn sn =
69 70 
    Instance {
70 71 
          name = name_init,
71 72 
          mem = mem_init,
72 73 
          dsk = dsk_init,
74 
          vcpus = vcpus_init,
73 75 
          running = case run_init of
74 76 
                      "running" -> True
75 77 
                      "ERROR_up" -> True

Also available in: Unified diff