Revision f56013fd htools/Ganeti/OpParams.hs
b/htools/Ganeti/OpParams.hs | ||
---|---|---|
432 | 432 |
_ -> case readJSON v::Text.JSON.Result [(DiskIndex, IDiskParams)] of |
433 | 433 |
Text.JSON.Ok params -> liftM RecreateDisksParams (mkNonEmpty params) |
434 | 434 |
_ -> fail $ "Can't parse disk information as either list of disk" |
435 |
++ " indices or list of disk parameters; value recevied:"
|
|
435 |
++ " indices or list of disk parameters; value received:"
|
|
436 | 436 |
++ show (pp_value v) |
437 | 437 |
|
438 | 438 |
instance JSON RecreateDisksInfo where |
Also available in: Unified diff