Revision 608efcce Ganeti/HTools/Loader.hs
| b/Ganeti/HTools/Loader.hs | ||
|---|---|---|
| 23 | 23 |
import Ganeti.HTools.Types |
| 24 | 24 |
|
| 25 | 25 |
-- | Lookups a node into an assoc list |
| 26 |
lookupNode :: (Monad m) => NameAssoc -> String -> String -> m Int
|
|
| 26 |
lookupNode :: (Monad m) => [(String, Ndx)] -> String -> String -> m Ndx
|
|
| 27 | 27 |
lookupNode ktn inst node = |
| 28 | 28 |
case lookup node ktn of |
| 29 | 29 |
Nothing -> fail $ "Unknown node '" ++ node ++ "' for instance " ++ inst |
| ... | ... | |
| 37 | 37 |
. zip [0..] |
| 38 | 38 |
|
| 39 | 39 |
-- | For each instance, add its index to its primary and secondary nodes |
| 40 |
fixNodes :: [(Int, Node.Node)]
|
|
| 41 |
-> [(Int, Instance.Instance)]
|
|
| 42 |
-> [(Int, Node.Node)]
|
|
| 40 |
fixNodes :: [(Ndx, Node.Node)]
|
|
| 41 |
-> [(Idx, Instance.Instance)]
|
|
| 42 |
-> [(Ndx, Node.Node)]
|
|
| 43 | 43 |
fixNodes nl il = |
| 44 | 44 |
foldl' (\accu (idx, inst) -> |
| 45 | 45 |
let |
Also available in: Unified diff