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