Revision d752eb39 Ganeti/HTools/IAlloc.hs
b/Ganeti/HTools/IAlloc.hs | ||
---|---|---|
51 | 51 |
parseBaseInstance n a = do |
52 | 52 |
disk <- fromObj "disk_space_total" a |
53 | 53 |
mem <- fromObj "memory" a |
54 |
vcpus <- fromObj "vcpus" a |
|
54 | 55 |
let running = "running" |
55 |
return $ (n, Instance.create n mem disk running 0 0) |
|
56 |
return $ (n, Instance.create n mem disk vcpus running 0 0)
|
|
56 | 57 |
|
57 | 58 |
-- | Parses an instance as found in the cluster instance list. |
58 | 59 |
parseInstance :: NameAssoc -- ^ The node name-to-index association list |
Also available in: Unified diff