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