Revision e7724ccc Ganeti/HTools/Loader.hs

b/Ganeti/HTools/Loader.hs
139 139 
mergeData um (nl, il) = do
140 140 
  let il2 = Container.fromAssocList il
141 141 
  il3 <- foldM (\im (name, n_util) -> do
142 
                  idx <- Container.findByName im name
143 
                  let inst = Container.find idx im
144 
                      new_i = inst { Instance.util = n_util }
145 
                  return $ Container.add idx new_i im
142 
                  inst <- Container.findByName im name
143 
                  let new_i = inst { Instance.util = n_util }
144 
                  return $ Container.add (Instance.idx inst) new_i im
146 145 
               ) il2 um
147 146 
  let nl2 = foldl' fixNodes nl (Container.elems il3)
148 147 
  let nl3 = Container.fromAssocList

Also available in: Unified diff