Revision fcd731d9

b/htools/Ganeti/HTools/Loader.hs
221 221 
  in if not $ all (`elem` all_inst_names) exinsts
222 222 
     then Bad $ "Some of the excluded instances are unknown: " ++
223 223 
          show (exinsts \\ all_inst_names)
224 
     else Ok cdata { cdNodes = snl, cdInstances = sil }
224 
     else if not $ all (`elem` all_inst_names) selinsts
225 
          then Bad $ "Some of the selected instances are unknown: " ++
226 
               show (selinsts \\ all_inst_names)
227 
          else Ok cdata { cdNodes = snl, cdInstances = sil }
225 228 

  		





  226
  229
  
    
-- | Checks the cluster data for consistency.


  		





  227
  230
  
    
checkData :: Node.List -> Instance.List


  		












Also available in:
  Unified diff