Revision c854092b Ganeti/HTools/Loader.hs

b/Ganeti/HTools/Loader.hs
188 188 
      common_suffix = longestDomain (node_names ++ inst_names)
189 189 
      snl = Container.map (computeAlias common_suffix) nl3
190 190 
      sil = Container.map (computeAlias common_suffix) il4
191 
  in if not $ all (`elem` inst_names) exinsts
191 
      all_inst_names = concatMap allNames $ Container.elems sil
192 
  in if not $ all (`elem` all_inst_names) exinsts
192 193 
     then Bad $ "Some of the excluded instances are unknown: " ++
193 
          show (exinsts \\ inst_names)
194 
          show (exinsts \\ all_inst_names)
194 195 
     else Ok (snl, sil, tags)
195 196 

  		





  196
  197
  
    
-- | Checks the cluster data for consistency.


  		












Also available in:
  Unified diff