Revision d752eb39 Ganeti/HTools/Rapi.hs
b/Ganeti/HTools/Rapi.hs | ||
---|---|---|
82 | 82 |
name <- fromObj "name" a |
83 | 83 |
disk <- fromObj "disk_usage" a |
84 | 84 |
mem <- fromObj "beparams" a >>= fromObj "memory" |
85 |
vcpus <- fromObj "beparams" a >>= fromObj "vcpus" |
|
85 | 86 |
pnode <- fromObj "pnode" a >>= lookupNode ktn name |
86 | 87 |
snodes <- fromObj "snodes" a |
87 | 88 |
snode <- (if null snodes then return Node.noSecondary |
88 | 89 |
else readEitherString (head snodes) >>= lookupNode ktn name) |
89 | 90 |
running <- fromObj "status" a |
90 |
let inst = Instance.create name mem disk running pnode snode |
|
91 |
let inst = Instance.create name mem disk vcpus running pnode snode
|
|
91 | 92 |
return (name, inst) |
92 | 93 |
|
93 | 94 |
-- | Construct a node from a JSON object. |
Also available in: Unified diff