Revision 9cf4267a Ganeti/HTools/Loader.hs

b/Ganeti/HTools/Loader.hs
96 96 
      nl2 = fixNodes nl il
97 97 
      il3 = Container.fromAssocList il
98 98 
      nl3 = Container.fromAssocList
99 
            (map (\ (k, v) -> (k, Node.buildPeers v il3 (length nl2))) nl2)
99 
            (map (\ (k, v) -> (k, Node.buildPeers v il3)) nl2)
100 100 
      node_names = map Node.name $ Container.elems nl3
101 101 
      inst_names = map Instance.name $ Container.elems il3
102 102 
      common_suffix = longestDomain (node_names ++ inst_names)

Also available in: Unified diff