Revision f4531f51

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