Revision 2a8e2dc9 htools/Ganeti/HTools/Loader.hs
b/htools/Ganeti/HTools/Loader.hs | ||
---|---|---|
7 | 7 |
|
8 | 8 |
{- |
9 | 9 |
|
10 |
Copyright (C) 2009, 2010 Google Inc. |
|
10 |
Copyright (C) 2009, 2010, 2011 Google Inc.
|
|
11 | 11 |
|
12 | 12 |
This program is free software; you can redistribute it and/or modify |
13 | 13 |
it under the terms of the GNU General Public License as published by |
... | ... | |
198 | 198 |
il4 = Container.map (filterExTags allextags . |
199 | 199 |
updateMovable exinsts) il3 |
200 | 200 |
nl2 = foldl' fixNodes nl (Container.elems il4) |
201 |
nl3 = Container.map (\node -> Node.buildPeers node il4) nl2
|
|
201 |
nl3 = Container.map (flip Node.buildPeers il4) nl2
|
|
202 | 202 |
node_names = map Node.name (Container.elems nl) |
203 | 203 |
inst_names = map Instance.name il |
204 | 204 |
common_suffix = longestDomain (node_names ++ inst_names) |
Also available in: Unified diff