Revision f4531f51 Ganeti/HTools/Loader.hs
b/Ganeti/HTools/Loader.hs | ||
---|---|---|
32 | 32 |
, assignIndices |
33 | 33 |
, lookupNode |
34 | 34 |
, lookupInstance |
35 |
, lookupGroup |
|
35 | 36 |
, commonSuffix |
36 | 37 |
, RqType(..) |
37 | 38 |
, Request(..) |
... | ... | |
88 | 89 |
Nothing -> fail $ "Unknown instance '" ++ inst ++ "'" |
89 | 90 |
Just idx -> return idx |
90 | 91 |
|
92 |
-- | Lookups a group into an assoc list. |
|
93 |
lookupGroup :: (Monad m) => NameAssoc -> String -> String -> m Gdx |
|
94 |
lookupGroup ktg nname gname = |
|
95 |
case M.lookup gname ktg of |
|
96 |
Nothing -> fail $ "Unknown group '" ++ gname ++ "' for node " ++ nname |
|
97 |
Just idx -> return idx |
|
98 |
|
|
91 | 99 |
-- | Given a list of elements (and their names), assign indices to them. |
92 | 100 |
assignIndices :: (Element a) => |
93 | 101 |
[(String, a)] |
Also available in: Unified diff