Revision 734b1ff1
b/Ganeti/HTools/IAlloc.hs | ||
---|---|---|
49 | 49 |
-> JSObject JSValue |
50 | 50 |
-> Result (String, Instance.Instance) |
51 | 51 |
parseBaseInstance n a = do |
52 |
disk <- case fromObj "disk_usage" a of |
|
53 |
Bad _ -> do |
|
54 |
all_d <- fromObj "disks" a >>= asObjectList |
|
55 |
szd <- mapM (fromObj "size") all_d |
|
56 |
let sze = map (+128) szd |
|
57 |
szf = (sum sze)::Int |
|
58 |
return szf |
|
59 |
x@(Ok _) -> x |
|
52 |
disk <- fromObj "disk_space_total" a |
|
60 | 53 |
mem <- fromObj "memory" a |
61 | 54 |
let running = "running" |
62 | 55 |
return $ (n, Instance.create n mem disk running 0 0) |
Also available in: Unified diff