- disk = case getIntElement "disk_usage" a of
- Left _ -> let log_sz = applyEither2 (+)
- (getIntElement "sda_size" a)
- (getIntElement "sdb_size" a)
- in applyEither2 (+) log_sz
- (Right $ drbdOverhead * 2)
- Right x -> Right x
- bep = fromObj "beparams" a
+ disk = getIntElement "disk_usage" a
+ mem = getObjectElement "beparams" a >>= getIntElement "memory"